home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / ufco033.sik < prev    next >
Encoding:
Text File  |  1993-07-28  |  1.4 KB  |  46 lines
  1.       *  Notation   : MS Cobol V3.0
  2.       *             : MF VS Cobol        
  3.       *  Source     : einkauf.cbl
  4.       *  Übersetzen : cobol einkauf/LITLINK
  5.       *  Linken     : link einkauf ufco03;
  6.       *  Aufruf     : einkauf
  7.        identification division.
  8.        program-id. beispiel.
  9.        environment division.
  10.        data division.
  11.        working-storage section.
  12.       * variable fields
  13.            COPY order.
  14.            COPY UFCO03.
  15.        procedure division.
  16.        anfang.
  17.       * save screen
  18.            move 0 to FKZ.
  19.            call "UNIF" using FKZ FMT FMT RET SM Daten.
  20.       * clear screen and display new format
  21.            move 1 to FKZ.
  22.            move 0 to SM.
  23.        einkf.
  24.            move "order   " to FMT.
  25.            COPY orde1.
  26.            call "UNIF" using FKZ FMT product RET SM Daten.
  27.       * same format when ESC
  28.            if RET = 99
  29.               move 3 to FKZ
  30.               go to einkf.
  31.       * program end when F10
  32.            if RET = 110 go to ende.
  33.       * display empty format
  34.            move 4 to FKZ.
  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.            go to einkf.
  41.       * display saved screen
  42.        ende.
  43.            move 5 to FKZ.
  44.            call "UNIF" USING FKZ FMT FMT RET SM Daten.
  45.            stop run.
  46.