home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cobolwi / ufco03.cbl < prev    next >
Encoding:
Text File  |  1993-07-28  |  473 b   |  13 lines
  1.       ********************************************/
  2.       * standard include  -  MS Cobol3/ VS Cobol */
  3.       ********************************************/
  4.        77 FKZ     PIC 9(4) COMP VALUE 0.
  5.        77 FMT     PIC X(8) VALUE ALL SPACE.
  6.        77 RET     PIC 9(4) COMP.
  7.        77 SM      PIC 9(4) COMP VALUE 0.
  8.        01 DATEN.
  9.           03 DAT OCCURS 115.
  10.          05 DA PIC X(1) OCCURS 35.
  11.        01 DATEN1 redefines DATEN.
  12.       03 DATR  PIC X(1) OCCURS 4025.
  13.