home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / ufco03.cbl < prev    next >
Encoding:
Text File  |  1993-07-28  |  410 b   |  11 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.