home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cobolwi / ufco024.cbl < prev    next >
Encoding:
Text File  |  1993-07-28  |  896 b   |  33 lines
  1.       *  MF Professional Cobol/ VS Cobol
  2.       *  ufco024.cbl - generic example
  3.        identification division.
  4.        program-id. test.
  5.        environment division.
  6.        data division.
  7.        working-storage section.
  8.       *  standard include file
  9.        COPY UFCO02.
  10.       *  include file for <testfmt>
  11.            COPY testfmt.
  12.        procedure division.
  13.        anf-section.
  14.        anf-001.
  15.       *  initialize mouse
  16.        call "MSON".
  17.       *  function identifier
  18.        move 1 to FKZ.
  19.       *  cursor position
  20.            move 0 to SM.
  21.       *  shadow attribute
  22.        move 112 to RET.
  23.       * format name
  24.            move "testfmt " to FMT.
  25.       * format layout (last letter is changed into <1>)
  26.            COPY testfm1.
  27.       * call UNIF
  28.            CALL "UNIF" using FKZ FMT fld0 RET SM Daten.
  29.       * hide mouse
  30.        call "MSOFF".
  31.        anf-009.
  32.            stop run.
  33.