home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / ufco035.cbl < prev    next >
Text File  |  1993-07-28  |  1KB  |  38 lines
  1.        identification division.
  2.        program-id. test.
  3.        environment division.
  4.        data division.
  5.        working-storage section.
  6.            COPY testfmt.
  7.            COPY ufco03.
  8.        procedure division.
  9.        anf-section.
  10.       * normal output
  11.        anf-000.
  12.            COPY testfm1.
  13.        anf-001.
  14.            move 0 to SM.
  15.            move 1 to FKZ.
  16.            move "testfmt " to FMT.
  17.            call "UNIF" using FKZ FMT fld0 RET SM Daten.
  18.        anf-002.
  19.       * change attribute of field fld1
  20.            move 1 to SM.
  21.            move 20 to FKZ.
  22.            move 15 to RET.
  23.            call "UNIF" using FKZ FMT fld0 RET SM Daten.
  24.            move 3 to FKZ.
  25.            call "UNIF" using FKZ FMT fld0 RET SM Daten.
  26.        anf-003.
  27.       * cange textattribut and frame attribut
  28.            move 21 to FKZ.
  29.            move 15 to RET.
  30.            call "UNIF" using FKZ FMT fld0 RET SM Daten.
  31.            move 22 to FKZ.
  32.            move 15 to RET.
  33.            call "UNIF" using FKZ FMT fld0 RET SM Daten.
  34.            move 2 to FKZ.
  35.            call "UNIF" using FKZ FMT fld0 RET SM Daten.
  36.        anf-009.
  37.            stop run.
  38.