How to use a self declared type within the File Section?

Problem:

How to use a self declared type within the File Section?

       FD  EIN.

        01  EIN-SATZ.

            05  Testdate PblType-Dat.

             05  filler    pic x.

       working-storage section.

        01 PblType-Dat         is typedef pic  9(08).

Resolution:

Use a prototype for your program:

program-id. tst is PROTOTYPE.

working-storage section.

    01 PblType-Dat         is typedef pic  9(08).

end program tst.

program-id.tst.

...

FS EIN.

01  EIN-SATZ.

            05  Testdate PblType-Dat.

             05  filler    pic x.