home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / test.cbl < prev    next >
Encoding:
Text File  |  1993-07-28  |  672 b   |  14 lines
  1.             01 test.
  2.              05 fld0                   PIC X(5).
  3.              05 r-fld0 redefines fld0 PIC X(1) occurs 5.
  4.              05 fld1                   PIC X(6).
  5.              05 r-fld1 redefines fld1 PIC X(1) occurs 6.
  6.              05 fld2                   PIC X(7).
  7.              05 r-fld2 redefines fld2 PIC X(1) occurs 7.
  8.              05 fld3                   PIC X(8).
  9.              05 r-fld3 redefines fld3 PIC X(1) occurs 8.
  10.              05 fld4                   PIC X(9).
  11.              05 r-fld4 redefines fld4 PIC X(1) occurs 9.
  12.              05 fld5                   PIC X(10).
  13.              05 r-fld5 redefines fld5 PIC X(1) occurs 10.
  14.