home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cobolwi / ufco033.cbl < prev    next >
Encoding:
Text File  |  1993-07-28  |  1.5 KB  |  50 lines
  1.       *  MS Cobol/ MF VS Cobol
  2.       *  ufco033.cbl
  3.       *  (copy <order.bld> into <ordern.bld>
  4.       *  (order is a reserved word !))
  5.        identification division.
  6.        program-id. beispiel.
  7.        environment division.
  8.        data division.
  9.        working-storage section.
  10.       * variable fields
  11.        COPY ordern.
  12.            COPY UFCO03.
  13.        procedure division.
  14.        anfang.
  15.       * initialize mouse, save screen
  16.        call "MOUSEON"
  17.            move 0 to FKZ.
  18.            call "UNIF" using FKZ FMT FMT RET SM Daten.
  19.       * clear screen and display new format
  20.            move 1 to FKZ.
  21.            move 0 to SM.
  22.        move 99 to RET.
  23.        einkf.
  24.        move "ordern  " to FMT.
  25.        COPY order1.
  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.           move 22 to RET
  31.               go to einkf.
  32.       * program end when F10
  33.            if RET = 110 go to ende.
  34.       * display empty format
  35.            move 4 to FKZ.
  36.        move 99 to RET.
  37.            move "message " to FMT.
  38.            COPY messag1.
  39.            call "UNIF" USING FKZ FMT FMT RET SM Daten.
  40.       * display new format without clear screen
  41.            move 2 to FKZ.
  42.        move 99 to RET.
  43.            go to einkf.
  44.       * display saved screen, hide mouse
  45.        ende.
  46.            move 5 to FKZ.
  47.            call "UNIF" USING FKZ FMT FMT RET SM Daten.
  48.        call "MOUSEOFF"
  49.            stop run.
  50.