home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / message.cob < prev    next >
Encoding:
Text File  |  1993-07-28  |  472 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 message.
  8.        procedure division.
  9.        anf-section.
  10.        anf-001.
  11.            move 4 to FKZ.
  12.            move 0 to SM.
  13.            move "message " to FMT.
  14.            COPY messag1.
  15.            CALL "UNIF" using FKZ FMT FMT RET SM Daten.
  16.        anf-009.
  17.            stop run.
  18.