home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / cobol / library / cwindow / ufco032.sik < prev    next >
Encoding:
Text File  |  1993-07-28  |  4.2 KB  |  132 lines
  1.       *
  2.       * MF VS Cobol/ MS Cobol V3.0              
  3.       * testprogramm ufco032.cbl
  4.       * (test mehrere Formate, alle Funktionen,
  5.       * auslieferung in Manual als Textbeispiel)
  6.       *
  7.        identification division.
  8.        program-id. beispiel.
  9.        environment division.
  10.        data division.
  11.        working-storage section.
  12.       *
  13.            COPY fm01ar.
  14.            COPY fm01bs.
  15.            COPY fm01dr.
  16.       *
  17.            COPY UFCO03.
  18.       *
  19.        procedure division.
  20.       ****************************************
  21.       * FKZ (0)                              *
  22.       * ■ SAVE SCREEN                        *
  23.       ****************************************
  24.        p1.
  25.            move 0 to FKZ.
  26.            move "fm01ar  " to FMT.
  27.            CALL "UNIF" using FKZ FMT art1 RET SM Daten.
  28.       *
  29.            move "L-22-98877" to bst1.
  30.            move "PC-Modell-1" to art1.
  31.            move 7895.95 to preis1.
  32.            move 1 to FKZ.
  33.            go to artikel.
  34.        programm-ende.
  35.            stop run.
  36.       *
  37.       * article
  38.       ****************************************
  39.       * FKZ (1) (2) (3)                      *
  40.       * ■ (1) CLS LAYOUT FIELDS OUTPUT       *
  41.       * ■ (2)     LAYOUT FIELDS OUTPUT       *
  42.       * ■ (3)            FIELDS OUTPUT       *
  43.       ****************************************
  44.        artikel.          
  45.            move "fm01ar  " to FMT.
  46.            COPY fm01a1.
  47.            call "UNIF" using FKZ FMT art1 RET SM Daten. 
  48.            if RET = 200     
  49.              move art1 to bart
  50.              move bst1 to bbst
  51.              move preis1 to bpreis
  52.              move 2 to FKZ
  53.              go to bestellen 
  54.            else
  55.              move 3 to FKZ
  56.              go to artikel.
  57.       *
  58.       * order
  59.       ****************************************
  60.       * FKZ (2) (3)                          *
  61.       * ■ (2)     LAYOUT FIELDS OUTPUT       *
  62.       * ■ (3)            FIELDS OUTPUT       *
  63.       ****************************************
  64.        bestellen.   
  65.            move "fm01bs  " to FMT.
  66.            COPY fm01b1.
  67.            call "UNIF" using FKZ FMT bname RET SM Daten. 
  68.            if RET = 101     
  69.               move 2 to FKZ
  70.               go to artikel.
  71.            if RET = 102     
  72.               move 4 to FKZ
  73.               go to liefern.
  74.            if RET = 110         
  75.               go to ende.
  76.            move 3 to FKZ.
  77.            go to bestellen.
  78.       *
  79.       * start print
  80.       ****************************************
  81.       * FKZ (4)                              *
  82.       * ■ DIAPLAY EMPTY FORMAT               *
  83.       ****************************************
  84.        liefern.  
  85.            move "fm01li  " to FMT.
  86.            COPY fm01l1.
  87.            call "UNIF" using FKZ FMT FMT RET SM Daten.
  88.            if RET = 101     
  89.              move 2 to FKZ      
  90.              go to artikel.
  91.            if RET = 102      
  92.              move 2 to FKZ 
  93.              go to bestellen.
  94.            if RET = 110         
  95.              go to ende.
  96.            if RET = 141         
  97.              go to drucken.
  98.            move 4 to FKZ.
  99.            go to liefern.
  100.       *
  101.       * print
  102.       ****************************************
  103.       * FKZ (11)                             *
  104.       * ■ PRINT AT LPT1:                     *
  105.       ****************************************
  106.        drucken.
  107.            move bname to dname.
  108.            move bvorname to dvorname.
  109.            move bort to dort.
  110.            move bart to dart.
  111.            move bbst to dbst.
  112.            move bpreis to dpreis.
  113.            move "fm01dr  " to FMT.
  114.            COPY fm01d1.
  115.            call "UNIF" using FKZ FMT dname RET SM Daten.
  116.            move 4 to FKZ.
  117.            move "fm01en  " to FMT.
  118.            COPY fm01e1.
  119.            call "UNIF" using FKZ FMT art1 RET SM Daten.
  120.            go to ende.
  121.       *
  122.       * end
  123.       ****************************************
  124.       * FKZ (5)                              *
  125.       * ■ DISPLAY SAVED SCREEN               *
  126.       ****************************************
  127.        ende.
  128.            move 5 to FKZ.
  129.            move "fm01ar  " to FMT.
  130.            call "UNIF" using FKZ FMT FMT RET SM Daten.   
  131.            go to programm-ende.
  132.