home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / ufco033.cbl < prev    next >
Encoding:
Text File  |  1993-07-28  |  1.2 KB  |  42 lines
  1.       *  MS Cobol V3.0/ MF VS Cobol        
  2.       *  ufco033.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 UFCO03.
  11.        procedure division.
  12.        anfang.
  13.       * save screen
  14.            move 0 to FKZ.
  15.            call "UNIF" using FKZ FMT FMT RET SM Daten.
  16.       * clear screen and display new format
  17.            move 1 to FKZ.
  18.            move 0 to SM.
  19.        einkf.
  20.            move "order   " to FMT.
  21.            COPY orde1.
  22.            call "UNIF" using FKZ FMT product RET SM Daten.
  23.       * same format when ESC
  24.            if RET = 99
  25.               move 3 to FKZ
  26.               go to einkf.
  27.       * program end when F10
  28.            if RET = 110 go to ende.
  29.       * display empty format
  30.            move 4 to FKZ.
  31.            move "message " to FMT.
  32.            COPY messag1.
  33.            call "UNIF" USING FKZ FMT FMT RET SM Daten.
  34.       * display new format without clear screen
  35.            move 2 to FKZ.
  36.            go to einkf.
  37.       * display saved screen
  38.        ende.
  39.            move 5 to FKZ.
  40.            call "UNIF" USING FKZ FMT FMT RET SM Daten.
  41.            stop run.
  42.