home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / ufco031.cbl < prev    next >
Encoding:
Text File  |  1993-07-28  |  3.9 KB  |  85 lines
  1.       ***************************************************************
  2.       *                                                             *
  3.       * UFCO031.cob                                                 *
  4.       *                                                             *
  5.       *      Anwendertestprogramm für MF-VS-Cobol                   *
  6.       *                               MS Cobol V3.0                 *
  7.       *                                                             *
  8.       *      ■ Definitionen                                         *
  9.       *                                                             *
  10.       *        copy ufco03.      standard-include                   *
  11.       *        copy format.      adressierungshilfe                 *
  12.       *                                                             *
  13.       *      ■ Unterprogrammaufruf/Parameterübergabe                *
  14.       *        COPY forma1.                                         *
  15.       *        CALL "UNIF" USING Funktionskennzeichen               *
  16.       *                          Erstes Variablde Feld              *
  17.       *                          Formatname                         *
  18.       *                          Returnfeld                         *
  19.       *                          Schreibmarke                       *
  20.       *                          Daten.                             *
  21.       *                                                             *
  22.       *      ■ Compilieren                                          *
  23.       *           COBOL name/LITLINK;                               *
  24.       *                                                             *
  25.       *      ■ Linken                                               *
  26.       *           LINK name UFCO03;                                 *
  27.       *                                                             *
  28.       *      ■ Aufruf                                               *
  29.       *           name                                              *
  30.       *                                                             *
  31.       ***************************************************************
  32.        identification division.
  33.        program-id. ufco031.
  34.        environment division.
  35.        data division.
  36.        working-storage section.
  37.       *
  38.            COPY feld.
  39.            COPY ufco03.
  40.        procedure division.
  41.       *
  42.        anf-section.
  43.        anf-001.
  44.            move 12345678.90123456 to fld0.
  45.            move 123456789012345   to fld1.
  46.            move "ABC"             to fld2.
  47.            move 27                to fld3.
  48.            move 123456788         to fld4.
  49.            move 1.0               to fld5.
  50.            move 1.785             to fld6.
  51.            move 0.001             to fld7.
  52.            move 0.099999          to fld8.
  53.            move 9.99999999999999  to fld9.
  54.            move -5                to fld10.
  55.            move -7777             to fld11.
  56.            move "Ende"            to fld12.
  57.            move -8.761            to fld21.
  58.            move 987654321012345.5 to fld22.
  59.            move 3.75              to fld23.
  60.            move -123456           to fld85.
  61.            move -88               to fld86.
  62.            move "ML"              to fld87.
  63.            move "U"               to fld88.
  64.            move 777888001         to fld89.
  65.            move 0 to SM.
  66.            move 1 to FKZ.
  67.        anf-002.
  68.            move "feld    " to FMT.
  69.            COPY fel1.
  70.            call "UNIF" using FKZ FMT fld0 RET SM Daten.
  71.            if RET not equal 100
  72.               add 0.4 to fld0 
  73.               add 100 to fld1 
  74.               subtract 15 from fld3 
  75.               add 1.51 to fld6 
  76.               add 1 to fld8 
  77.               subtract 1001 from fld22 
  78.               add 505 to fld85 
  79.               subtract 50000 from fld89 
  80.               move 3 to FKZ
  81.               add 1 to SM
  82.               go to anf-002.
  83.        anf-003.
  84.            stop run.
  85.