home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cobolwi / ufco023.cbl < prev    next >
Encoding:
Text File  |  1993-07-28  |  1.4 KB  |  48 lines
  1.       *  MF Professional Cobol/ VS Cobol
  2.       *  ufco023.cbl
  3.        identification division.
  4.        program-id. beispiel.
  5.        environment division.
  6.        data division.
  7.        working-storage section.
  8.       * variable fields
  9.            COPY order.
  10.        COPY UFCO02.
  11.        procedure division.
  12.        anfang.
  13.       * initialize mouse, save screen
  14.        call "MSON"
  15.            move 0 to FKZ.
  16.            call "UNIF" using FKZ FMT FMT RET SM Daten.
  17.       * clear screen and display new format
  18.            move 1 to FKZ.
  19.            move 0 to SM.
  20.        move 99 to RET.
  21.        einkf.
  22.            move "order   " to FMT.
  23.            COPY orde1.
  24.            call "UNIF" using FKZ FMT product RET SM Daten.
  25.       * same format when ESC
  26.            if RET = 99
  27.               move 3 to FKZ
  28.           move 22 to RET
  29.               go to einkf.
  30.       * program end when F10
  31.            if RET = 110 go to ende.
  32.       * display empty format
  33.            move 4 to FKZ.
  34.        move 99 to RET.
  35.            move "message " to FMT.
  36.            COPY messag1.
  37.            call "UNIF" USING FKZ FMT FMT RET SM Daten.
  38.       * display new format without clear screen
  39.            move 2 to FKZ.
  40.        move 99 to RET.
  41.            go to einkf.
  42.       * display saved screen, hide mouse
  43.        ende.
  44.            move 5 to FKZ.
  45.            call "UNIF" USING FKZ FMT FMT RET SM Daten.
  46.        call "MSOFF"
  47.            stop run.
  48.