home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / ufco030.cbl < prev    next >
Encoding:
Text File  |  1993-07-28  |  752 b   |  28 lines
  1.       *
  2.       * MS Cobol V3/ MF VS Cobol
  3.       * testprogramm test.cob
  4.       * (test alle ASCII-zeichen)
  5.       *
  6.       * achtung
  7.       * ablauf ohen test.bld nur möglich, wenn format test
  8.       * modifiziert ist (ALT227 bis ALT 255 nicht erlaubt!)
  9.       *
  10.        identification division.
  11.        program-id. testbsp.
  12.        environment division.
  13.        data division.
  14.        working-storage section.
  15.            COPY test.
  16.            COPY ufco03.
  17.        procedure division.
  18.        anf-section.
  19.        anf-000.
  20.            COPY tes1.
  21.        anf-001.
  22.            move 0 to SM.
  23.            move 1 to FKZ.
  24.            move "test    " to FMT.
  25.            call "UNIF" using FKZ FMT fld0 RET SM Daten.
  26.        anf-002.
  27.            stop run.
  28.