home *** CD-ROM | disk | FTP | other *** search
/ Sams Cobol 24 Hours / Sams_Cobol_24_Hours.iso / Cobol32 / PowerFRM / frmRTS.z / sale.lst < prev    next >
File List  |  1997-03-31  |  20KB  |  363 lines
  1.  
  2.  
  3.  
  4. COBOL85 V30L10  SALES                                                                     THU FEB 06 10:44:56 1997  0001
  5.  
  6.  
  7. ** COPY INFORMATION **
  8.  
  9.  
  10. QUALIFIER        LINE  TEXT-NAME        
  11.  
  12.  
  13.         1          26  SALE                                                                                             
  14.  
  15.  
  16.  
  17. COBOL85 V30L10  SALES                                                                     THU FEB 06 10:44:56 1997  0002
  18.  
  19.  
  20.        LINE   SEQNO  A   B
  21.  
  22.  
  23.           1   000010 IDENTIFICATION    DIVISION.
  24.           2   000020 PROGRAM-ID.       SALES.
  25.           3   000030 ENVIRONMENT       DIVISION.
  26.           4   000040 CONFIGURATION     SECTION.
  27.           5   000050 SPECIAL-NAMES.
  28.           6   000060      SYMBOLIC CONSTANT
  29.           7   000070      NORMAL      IS "  "
  30.           8   000080      .
  31.           9   000090*
  32.          10   000100* Define sequential file for printing
  33.          11   000110*
  34.          12   000120 INPUT-OUTPUT      SECTION.
  35.          13   000130 FILE-CONTROL.
  36.          14   000140      SELECT  PRINT-FILE           ASSIGN TO PRTFILE
  37.          15   000150              ORGANIZATION         IS SEQUENTIAL
  38.          16   000160              ACCESS MODE          IS SEQUENTIAL
  39.          17   000170              FORMAT               IS PRT-FORMAT
  40.          18   000180              GROUP                IS PRT-GROUP
  41.          19   000190              .
  42.          20   000200 DATA                DIVISION.
  43.          21   000210 FILE                SECTION.
  44.          22   000220*
  45.          23   000230* Copy print record from format descriptor
  46.          24   000240*
  47.          25   000250 FD   PRINT-FILE.
  48.          26   000260      COPY  SALE OF XMDLIB.
  49.         1-1 C        01  SALE.
  50.         1-2 C            02  FILLER                               PIC X(5).
  51.         1-3 C            02  PAGE-COUNT
  52.         1-4 C                         PIC 9(3).
  53.         1-5 C            02  FILLER                               PIC X(5).
  54.         1-6 C            02  REGION-NAME
  55.         1-7 C                         PIC X(10).
  56.         1-8 C            02  FILLER                               PIC X(5).
  57.         1-9 C            02  GROUP-NAME
  58.        1-10 C                         PIC X(10).
  59.        1-11 C            02  FILLER                               PIC X(5).
  60.        1-12 C            02  GOODS-NAME
  61.        1-13 C                         PIC X(12).
  62.        1-14 C            02  FILLER                               PIC X(5).
  63.        1-15 C            02  SALES-DATE
  64.        1-16 C                         PIC 9(6).
  65.        1-17 C            02  FILLER                               PIC X(5).
  66.        1-18 C            02  CUSTOMER-NAME
  67.        1-19 C                         PIC X(16).
  68.        1-20 C            02  FILLER                               PIC X(5).
  69.        1-21 C            02  SALES    PIC 9(13).
  70.        1-22 C            02  FILLER                               PIC X(5).
  71.        1-23 C            02  SALES-SUM
  72.        1-24 C                         PIC 9(13).
  73.        1-25 C            02  FILLER                               PIC X(5).
  74.        1-26 C            02  SALES-TOTAL-SUM
  75.        1-27 C                         PIC 9(13).
  76.        1-28 C            02  FILLER                               PIC X(5).
  77.  
  78.  
  79.  
  80. COBOL85 V30L10  SALES                                                                     THU FEB 06 10:44:56 1997  0003
  81.  
  82.  
  83.        LINE   SEQNO  A   B
  84.  
  85.  
  86.        1-29 C            02  LOGO-AREA
  87.        1-30 C                         PIC X(8).
  88.          27   000270*               ~~~~~name of the format descriptor
  89.          28   000280 WORKING-STORAGE SECTION.
  90.          29   000290*
  91.          30   000300* Control Area
  92.          31   000310*
  93.          32   000320 01   PRT-PARAM.
  94.          33   000330      03  PRT-FORMAT      PIC X(08)   VALUE " ".
  95.          34   000340      03  PRT-GROUP       PIC X(08)   VALUE " ".
  96.          35   000350*
  97.          36   000360* Print Data
  98.          37   000370*
  99.          38   000380 01   SAMPLE-DATA.
  100.          39   000390*  --- These data being loaded from DB in the actual program. ---
  101.          40   000400   02   DETAIL-LINE.
  102.          41   000410      03  REGION-NAME-DATA-TABLE.
  103.          42   000420        04                      PIC X(10)  VALUE "New York".
  104.          43   000430        04                      PIC X(10)  VALUE "Washington".
  105.          44   000440        04                      PIC X(10)  VALUE "Boston".
  106.          45   000450        04                      PIC X(10)  VALUE "San Jose".
  107.          46   000460        04                      PIC X(10)  VALUE "Chicago".
  108.          47   000470        04                      PIC X(10)  VALUE "Los angels".
  109.          48   000480        04                      PIC X(10)  VALUE "Sacramento".
  110.          49   000490        04                      PIC X(10)  VALUE "Honolulu".
  111.          50   000500        04                      PIC X(10)  VALUE "Tokyo".
  112.          51   000510        04                      PIC X(10)  VALUE "HongKong".
  113.          52   000520      03  REDEFINES REGION-NAME-DATA-TABLE.
  114.          53   000530        04  REGION-NAME-DATA    PIC X(10) OCCURS 10.
  115.          54   000540      03  GROUP-NAME-TABLE.
  116.          55   000550        04                      PIC X(10)  VALUE "GOLF".
  117.          56   000560        04                      PIC X(10)  VALUE "FOOTBALL".
  118.          57   000570        04                      PIC X(10)  VALUE "SKI".
  119.          58   000580        04                      PIC X(10)  VALUE "TENNIS".
  120.          59   000590      03  REDEFINES GROUP-NAME-TABLE.
  121.          60   000600        04  G-NAME      PIC X(10) OCCURS 4.
  122.          61   000610      03  GOODS-NAME-DATA-TABLE.
  123.          62   000620        04                      PIC X(12)  VALUE "Shoes".
  124.          63   000630        04                      PIC X(12)  VALUE "Bag".
  125.          64   000640        04                      PIC X(12)  VALUE "Wear".
  126.          65   000650        04                      PIC X(12)  VALUE "Ball".
  127.          66   000660        04                      PIC X(12)  VALUE "Shoes".
  128.          67   000670        04                      PIC X(12)  VALUE "Wear".
  129.          68   000680        04                      PIC X(12)  VALUE "Club Set".
  130.          69   000690        04                      PIC X(12)  VALUE "Bag".
  131.          70   000700        04                      PIC X(12)  VALUE "Ball".
  132.          71   000710        04                      PIC X(12)  VALUE "Wear".
  133.          72   000720        04                      PIC X(12)  VALUE "Shoes".
  134.          73   000730        04                      PIC X(12)  VALUE "Club Set".
  135.          74   000740        04                      PIC X(12)  VALUE "Shoes".
  136.          75   000750        04                      PIC X(12)  VALUE "Ball".
  137.          76   000760        04                      PIC X(12)  VALUE "Bag".
  138.          77   000770        04                      PIC X(12)  VALUE "Club Set".
  139.          78   000780      03  REDEFINES GOODS-NAME-DATA-TABLE.
  140.  
  141.  
  142.  
  143. COBOL85 V30L10  SALES                                                                     THU FEB 06 10:44:56 1997  0004
  144.  
  145.  
  146.        LINE   SEQNO  A   B
  147.  
  148.  
  149.          79   000790        04  GOODS-NAME-DATA     PIC X(12)  OCCURS 16.
  150.          80   000800      03  DATE-DATA-TABLE.
  151.          81   000810        04                      PIC 9(6)  VALUE 200196.
  152.          82   000820        04                      PIC 9(6)  VALUE 200296.
  153.          83   000830        04                      PIC 9(6)  VALUE 200296.
  154.          84   000840        04                      PIC 9(6)  VALUE 200396.
  155.          85   000850        04                      PIC 9(6)  VALUE 200396.
  156.          86   000860        04                      PIC 9(6)  VALUE 200496.
  157.          87   000870        04                      PIC 9(6)  VALUE 200596.
  158.          88   000880        04                      PIC 9(6)  VALUE 200696.
  159.          89   000890        04                      PIC 9(6)  VALUE 200696.
  160.          90   000900        04                      PIC 9(6)  VALUE 200696.
  161.          91   000910        04                      PIC 9(6)  VALUE 200796.
  162.          92   000920        04                      PIC 9(6)  VALUE 200896.
  163.          93   000930        04                      PIC 9(6)  VALUE 200996.
  164.          94   000940        04                      PIC 9(6)  VALUE 201196.
  165.          95   000950        04                      PIC 9(6)  VALUE 201296.
  166.          96   000960        04                      PIC 9(6)  VALUE 201296.
  167.          97   000970      03  REDEFINES DATE-DATA-TABLE.
  168.          98   000980        04  DATE-DATA           PIC 9(6)  OCCURS 16.
  169.          99   000990      03  CUSTOMER-NAME-DATA-TABLE.
  170.         100   001000        04                      PIC X(16) VALUE "Green Inc.".
  171.         101   001010        04                      PIC X(16) VALUE "Blue Co.,Ltd.".
  172.         102   001020        04                      PIC X(16) VALUE "Cyan Trading".
  173.         103   001030        04                      PIC X(16) VALUE "White Inc.".
  174.         104   001040        04                      PIC X(16) VALUE "Yellow Inc.".
  175.         105   001050        04                      PIC X(16) VALUE "Black Trading".
  176.         106   001060        04                      PIC X(16) VALUE "Brown Co.,Ltd.".
  177.         107   001070        04                      PIC X(16) VALUE "Gray Trading".
  178.         108   001080        04                      PIC X(16) VALUE "Pink Inc.".
  179.         109   001090        04                      PIC X(16) VALUE "Light Blue Inc.".
  180.         110   001100        04                      PIC X(16) VALUE "Red Business".
  181.         111   001110        04                      PIC X(16) VALUE "Magenta Co.,Ltd".
  182.         112   001120        04                      PIC X(16) VALUE "Purple Inc.".
  183.         113   001130        04                      PIC X(16) VALUE "Silver Business".
  184.         114   001140        04                      PIC X(16) VALUE "Orange Trading".
  185.         115   001150        04                      PIC X(16) VALUE "Golden Inc.".
  186.         116   001160      03  REDEFINES CUSTOMER-NAME-DATA-TABLE.
  187.         117   001170        04  CUSTOMER-NAME-DATA  PIC X(16) OCCURS 16.
  188.         118   001180      03  SALES-DATA-TABLE.
  189.         119   001190        04                      PIC 9(13) VALUE   200000.
  190.         120   001200        04                      PIC 9(13) VALUE   600000.
  191.         121   001210        04                      PIC 9(13) VALUE   500000.
  192.         122   001220        04                      PIC 9(13) VALUE     5000.
  193.         123   001230        04                      PIC 9(13) VALUE   200000.
  194.         124   001240        04                      PIC 9(13) VALUE   500000.
  195.         125   001250        04                      PIC 9(13) VALUE  1800000.
  196.         126   001260        04                      PIC 9(13) VALUE   600000.
  197.         127   001270        04                      PIC 9(13) VALUE     5000.
  198.         128   001280        04                      PIC 9(13) VALUE   500000.
  199.         129   001290        04                      PIC 9(13) VALUE   200000.
  200.         130   001300        04                      PIC 9(13) VALUE  1800000.
  201.         131   001310        04                      PIC 9(13) VALUE   200000.
  202.         132   001320        04                      PIC 9(13) VALUE     5000.
  203.  
  204.  
  205.  
  206. COBOL85 V30L10  SALES                                                                     THU FEB 06 10:44:56 1997  0005
  207.  
  208.  
  209.        LINE   SEQNO  A   B
  210.  
  211.  
  212.         133   001330        04                      PIC 9(13) VALUE   600000.
  213.         134   001340        04                      PIC 9(13) VALUE  1800000.
  214.         135   001350      03  REDEFINES SALES-DATA-TABLE.
  215.         136   001360        04  SALES-DATA          PIC 9(13) OCCURS 16.
  216.         137   001370   02   SUM-LINE.
  217.         138   001380      03  SALES-SUM             PIC 9(13) VALUE  0.
  218.         139   001390   02   TOTAL-SUM-LINE.
  219.         140   001400      03  SALES-TOTAL-SUM       PIC 9(13) VALUE  0.
  220.         141   001410   02   WORK-TABLE.
  221.         142   001420      03  GROUP-1-TABLE.
  222.         143   001430        04           PIC 9(2) VALUE  16.
  223.         144   001440        04           PIC 9(2) VALUE  12.
  224.         145   001450        04           PIC 9(2) VALUE   5.
  225.         146   001460        04           PIC 9(2) VALUE   9.
  226.         147   001470        04           PIC 9(2) VALUE  15.
  227.         148   001480        04           PIC 9(2) VALUE   8.
  228.         149   001490        04           PIC 9(2) VALUE   7.
  229.         150   001500        04           PIC 9(2) VALUE   5.
  230.         151   001510        04           PIC 9(2) VALUE  13.
  231.         152   001520        04           PIC 9(2) VALUE  10.
  232.         153   001530      03  GROUP-2-TABLE.
  233.         154   001540        04           PIC 9(2) VALUE   7.
  234.         155   001550        04           PIC 9(2) VALUE   8.
  235.         156   001560        04           PIC 9(2) VALUE   9.
  236.         157   001570        04           PIC 9(2) VALUE  14.
  237.         158   001580        04           PIC 9(2) VALUE   5.
  238.         159   001590        04           PIC 9(2) VALUE   9.
  239.         160   001600        04           PIC 9(2) VALUE  10.
  240.         161   001610        04           PIC 9(2) VALUE   7.
  241.         162   001620        04           PIC 9(2) VALUE   5.
  242.         163   001630        04           PIC 9(2) VALUE  13.
  243.         164   001640      03  GROUP-3-TABLE.
  244.         165   001650        04           PIC 9(2) VALUE   9.
  245.         166   001660        04           PIC 9(2) VALUE   6.
  246.         167   001670        04           PIC 9(2) VALUE   9.
  247.         168   001680        04           PIC 9(2) VALUE  12.
  248.         169   001690        04           PIC 9(2) VALUE   8.
  249.         170   001700        04           PIC 9(2) VALUE  13.
  250.         171   001710        04           PIC 9(2) VALUE   5.
  251.         172   001720        04           PIC 9(2) VALUE   8.
  252.         173   001730        04           PIC 9(2) VALUE  11.
  253.         174   001740        04           PIC 9(2) VALUE   8.
  254.         175   001750      03  GROUP-4-TABLE.
  255.         176   001760        04           PIC 9(2) VALUE  10.
  256.         177   001770        04           PIC 9(2) VALUE  11.
  257.         178   001780        04           PIC 9(2) VALUE   9.
  258.         179   001790        04           PIC 9(2) VALUE  13.
  259.         180   001800        04           PIC 9(2) VALUE   7.
  260.         181   001810        04           PIC 9(2) VALUE  10.
  261.         182   001820        04           PIC 9(2) VALUE  12.
  262.         183   001830        04           PIC 9(2) VALUE   6.
  263.         184   001840        04           PIC 9(2) VALUE   4.
  264.         185   001850        04           PIC 9(2) VALUE   7.
  265.         186   001860    02  REDEFINES WORK-TABLE.
  266.  
  267.  
  268.  
  269. COBOL85 V30L10  SALES                                                                     THU FEB 06 10:44:56 1997  0006
  270.  
  271.  
  272.        LINE   SEQNO  A   B
  273.  
  274.  
  275.         187   001870      03             OCCURS 4.
  276.         188   001880        04  GROUP-N  PIC 9(2) OCCURS 10.
  277.         189   001890* Counters
  278.         190   001900 77 CNTI            PIC 9(2) BINARY.
  279.         191   001910 77 CNTJ            PIC 9(2) BINARY.
  280.         192   001920 77 PAGEN         PIC 9(3) BINARY.
  281.         193   001930*
  282.         194   001940******************************************************************
  283.         195   001950 PROCEDURE    DIVISION.
  284.         196   001960*
  285.         197   001970* Open Print File
  286.         198   001980      OPEN  OUTPUT  PRINT-FILE
  287.         199   001990      INITIALIZE  SALE
  288.         200   002000      .
  289.         201   002010* Header
  290.         202   002020*  (fixed positional partition : HEAD)
  291.         203   002030      PERFORM VARYING PAGEN FROM 1 BY 1 UNTIL PAGEN > 2
  292.         204   002040        MOVE  "SALE"    TO  PRT-FORMAT
  293.         205   002050        MOVE  "HEAD"     TO  PRT-GROUP
  294.         206   002060        MOVE  PAGEN      TO  PAGE-COUNT OF SALE
  295.         207   002070        WRITE SALE AFTER ADVANCING PAGE
  296.         208   002080*                             ~~~~~~~~~~~~~~~~~~~~ form feed
  297.         209   002090        PERFORM  VARYING CNTI FROM 1 BY 1 UNTIL CNTI > 4
  298.         210   002100* Detail line printing
  299.         211   002110*  (floating positional partition : DETAIL)
  300.         212   002120*   Set sample data
  301.         213   002130          MOVE  "DETAIL"   TO  PRT-GROUP
  302.         214   002140          PERFORM VARYING CNTJ FROM 1 BY 1 UNTIL CNTJ > GROUP-N(CNTI PAGEN
  303.                          )
  304.         215   002150            MOVE GOODS-NAME-DATA(CNTJ)    TO GOODS-NAME    OF SALE
  305.         216   002160            MOVE DATE-DATA(CNTJ)          TO SALES-DATE    OF SALE
  306.         217   002170            MOVE CUSTOMER-NAME-DATA(CNTJ) TO CUSTOMER-NAME OF SALE
  307.         218   002180            MOVE SALES-DATA(CNTJ)         TO SALES         OF SALE
  308.         219   002190            ADD  SALES-DATA(CNTJ)           TO SALES-SUM     OF SUM-LINE
  309.         220   002200            IF  CNTJ = 1     THEN
  310.         221   002210              MOVE REGION-NAME-DATA(PAGEN)  TO REGION-NAME   OF SALE
  311.         222   002220              MOVE G-NAME(CNTI)                 TO GROUP-NAME    OF SALE
  312.         223   002230               IF   CNTI = 1     THEN
  313.         224   002240                  WRITE SALE AFTER ADVANCING 1 LINE
  314.         225   002250*                                       ~~~~~~~~~~~~~~~~~~~~~ form feed
  315.         226   002260               ELSE
  316.         227   002270                   WRITE SALE AFTER ADVANCING 0 LINE
  317.         228   002280*                                        ~~~~~~~~~~~~~~~~~~~~ no form feed
  318.         229   002290              END-IF
  319.         230   002300              MOVE  SPACE                   TO REGION-NAME   OF SALE
  320.         231   002310              MOVE  SPACE                   TO GROUP-NAME    OF SALE
  321.         232   002320            ELSE
  322.         233   002330                WRITE SALE AFTER ADVANCING 0 LINE
  323.         234   002340*                                     ~~~~~~~~~~~~~~~~~~~~ no form feed
  324.         235   002350            END-IF
  325.         236   002360          END-PERFORM
  326.         237   002370* Sum printing
  327.         238   002380*   (floating positional partition : SUM)
  328.         239   002390          MOVE  "SUM"   TO  PRT-GROUP
  329.  
  330.  
  331.  
  332. COBOL85 V30L10  SALES                                                                     THU FEB 06 10:44:56 1997  0007
  333.  
  334.  
  335.        LINE   SEQNO  A   B
  336.  
  337.  
  338.         240   002400          MOVE CORR SUM-LINE OF SAMPLE-DATA TO SALE
  339.         241   002410          WRITE SALE AFTER ADVANCING 0 LINE
  340.         242   002420          ADD  SALES-SUM OF SUM-LINE TO SALES-TOTAL-SUM OF TOTAL-SUM-LINE
  341.         243   002430          MOVE 0 TO SALES-SUM OF SUM-LINE
  342.         244   002440        END-PERFORM
  343.         245   002450* Total sum printing
  344.         246   002460*   (floating positional partition : TOTAL)
  345.         247   002470        MOVE  "TOTAL"    TO  PRT-GROUP
  346.         248   002480        MOVE  "LOGO.BMP" TO  LOGO-AREA  OF SALE
  347.         249   002490        MOVE  "B"        TO  EDIT-MODE OF LOGO-AREA  OF SALE
  348.         250   002500        MOVE CORR TOTAL-SUM-LINE OF SAMPLE-DATA TO SALE
  349.         251   002510        WRITE SALE  AFTER ADVANCING 0 LINE
  350.         252   002520      END-PERFORM
  351.         253   002530******************************************************************
  352.         254   002540      CLOSE PRINT-FILE
  353.         255   002550      STOP RUN
  354.         256   002560      .
  355.         257   002570 END PROGRAM SALES.
  356.  
  357.  
  358.  
  359. COBOL85 V30L10  SALES                                                                     THU FEB 06 10:44:56 1997  0008
  360.  
  361.  
  362. STATISTICS: HIGHEST SEVERITY CODE=I, PROGRAM UNIT=1
  363.