home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / testfmt.cbl < prev    next >
Encoding:
Text File  |  1993-07-28  |  197 b   |  5 lines
  1.             01 testfmt.
  2.              05 fld0                   PIC X(12).
  3.              05 r-fld0 redefines fld0 PIC X(1) occurs 12.
  4.              05 fld1                   PIC S9999999 value 0.
  5.