home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / test.cob < prev    next >
Encoding:
Text File  |  1993-07-28  |  467 b   |  18 lines
  1.        identification division.
  2.        program-id. test.
  3.        environment division.
  4.        data division.
  5.        working-storage section.
  6.            COPY UFCO03.
  7.            COPY test.
  8.        procedure division.
  9.        anf-section.
  10.        anf-001.
  11.            move 2 to FKZ.
  12.            move 0 to SM.
  13.            move "test    " to FMT.
  14.            COPY tes1.
  15.            CALL "UNIF" using FKZ FMT fld0 RET SM Daten.
  16.        anf-009.
  17.            stop run.
  18.