Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/p287.rpg
There is 1 other file named p287.rpg in the archive. Click here to see a list.
01010H                                                                    P287  
01020F**************************************************************      P287  
01030F* THIS PROGRAM CREATES A SIX MONTHS SALES REPORT.            *      P287  
01040F* THE INPUT TO THE PROGRAM ARE SALES CARDS WHICH CONTAIN     *      P287  
01050F* THE PRODUCT CLASS, PRODUCT NUMBER, AND THE SALES FOR       *      P287  
01060F* JANUARY THROUGH JUNE. SINCE EACH OF THE SALES FIGURES      *      P287  
01070F* ARE THE SAME SIZE, THEY ARE ORGANIZED INTO AN ARRAY AND    *      P287  
01080F* PROCESSED USING THE ARRAY OPERATIONS. IN ADDITION,THE      *      P287  
01090F* TOTALS FOR EACH OF THE PRODUCT CLASSES ARE ACCUMULATED     *      P287  
01100F* IN ARRAYS. GROUP TOTALS ARE TAKEN FOR EACH PRODUCT         *      P287  
01110F* CLASS AND FINAL TOTALS ARE PRINTED.                        *      P287  
01120F**************************************************************      P287  
01130F*                                                                   P287  
01140FSLSCARD IP  F00470047            DISK   DAT287                      P287  
01150F                                              KASCII                P287  
01160FSLSRPT  O   F01320132     OF     PRINTER                            P287  
02010E*                                                                   P287  
02020E**************************************************************      P287  
02030E* DEFINTION OF SALES ARRAY FROM INPUT CARD                   *      P287  
02040E**************************************************************      P287  
02050E*                                                            *      P287  
02060E                    SARR     0006006 2                              P287  
02070E*                                                            *      P287  
02080E**************************************************************      P287  
02090E* TOTAL ARRAY FOR EACH PRODUCT CLASS                         *      P287  
02100E**************************************************************      P287  
02110E*                                                            *      P287  
02120E                    PARR     0006007 2                              P287  
02130E*                                                            *      P287  
02140E**************************************************************      P287  
02150E* TOTAL ARRAY FOR ALL PRODUCT CLASSES                        *      P287  
02160E**************************************************************      P287  
02170E*                                                            *      P287  
02180E                    TARR     0006008 2                              P287  
03010I*                                                                   P287  
03020I*                                                            *      P287  
03030I**************************************************************      P287  
03040I* SIX MONTH SALES CARD                                       *      P287  
03050I**************************************************************      P287  
03060I*                                                            *      P287  
03070ISLSCARD AA  01                                                      P287  
03080I                                     00010005 CLASS L1              P287  
03090I                                     00060011 NUMBER                P287  
03100I                                     001200472SARR                  P287  
04010C*                                                                   P287  
04020C*                                                            *      P287  
04030C**************************************************************      P287  
04040C* XFOOT TO OBTAIN TOTAL OF PRODUCT NUMBER SALES. THEN,       *      P287  
04050C* TAKE TOTAL OF EACH MONTH'S SALES FOR PRODUCT CLASS TOTAL.  *      P287  
04060C* ALSO, OBTAIN TOTAL FOR ALL SALES FOR PRODUCT CLASS.        *      P287  
04070C**************************************************************      P287  
04080C*                                                            *      P287  
04090C                     XFOOTSARR      TOTPRO0072                      P287  
04100C           SARR      ADD  PARR      PARR                            P287  
04110C           TOTPRO    ADD  TOTOLS    TOTOLS0082                      P287  
04120C*                                                            *      P287  
04130C**************************************************************      P287  
04140C* FINAL TOTAL ACCUMULATIONS                                  *      P287  
04150C**************************************************************      P287  
04160C*                                                            *      P287  
04170CL1         PARR      ADD  TARR      TARR                            P287  
04180CL1         TOTOLS    ADD  FINTOT    FINTOT0082                      P287  
05010O*                                                                   P287  
05020O*                                                            *      P287  
05030O**************************************************************      P287  
05040O* HEADINGS FOR SIX MONTHS SALES REPORT                       *      P287  
05050O**************************************************************      P287  
05060O*                                                            *      P287  
05070OSLSRPT  H  201   OF                                                 P287  
05080O       OR        1P                                                 P287  
05090O                         UDATE Y 0008                               P287  
05100O                                 0046 'S I X   M O N T H'           P287  
05110O                                 0097 'PAGE'                        P287  
05120O                         PAGE    0102                               P287  
05130O        H  1     OF                                                 P287  
05140O       OR        1P                                                 P287  
05150O                                 0007 'PRODUCT'                     P287  
05160O                                 0018 'PRODUCT'                     P287  
05170O                                 0102 'SIX MONTH'                   P287  
05180O        H  2     OF                                                 P287  
05190O       OR        1P                                                 P287  
05200O                                 0006 'CLASS'                       P287  
05210O                                 0017 'NUMBER'                      P287  
05220O                                 0029 'JANUARY'                     P287  
05230O                                 0041 'FEBRUARY'                    P287  
05240O                                 0052 'MARCH'                       P287  
05250O                                 0064 'APRIL'                       P287  
05260O                                 0075 'MAY'                         P287  
05270O                                 0087 'JUNE'                        P287  
05280O                                 0100 'TOTAL'                       P287  
05290O*                                                            *      P287  
05300O**************************************************************      P287  
05310O* DETAIL FOR SALES FOR EACH PRODUCT NUMBER                   *      P287  
05320O**************************************************************      P287  
05330O*                                                            *      P287  
05340O        D  1     01                                                 P287  
05350O                 L1      CLASS   0006                               P287  
05360O                 OF      CLASS   0006                               P287  
05370O                         NUMBER  0017                               P287  
05380O                         SARR,11 0029                               P287  
05390O                         SARR,21 0041                               P287  
05400O                         SARR,31 0053                               P287  
05410O                         SARR,41 0065                               P287  
05420O                         SARR,51 0077                               P287  
05430O                         SARR,61 0089                               P287  
05440O                         TOTPRO1B0102                               P287  
05450O*                                                            *      P287  
05460O**************************************************************      P287  
05470O* TOTAL LINE FOR EACH PRODUCT CLASS                          *      P287  
05480O**************************************************************      P287  
05490O*                                                            *      P287  
05500O        T 12     L1                                                 P287  
05510O                                 0018 'TOTALS'                      P287  
05520O                         PARR,11B0029 '$'                           P287  
05530O                         PARR,21B0041 '$'                           P287  
05540O                         PARR,31B0053 '$'                           P287  
05550O                         PARR,41B0065 '$'                           P287  
05560O                         PARR,51B0077 '$'                           P287  
05570O                         PARR,61B0089 '$'                           P287  
05580O                         TOTOLS1B0102 '$'                           P287  
05590O        T 1      LR                                                 P287  
05600O*                                                            *      P287  
05610O**************************************************************      P287  
05620O* FINAL TOTAL LINE                                           *      P287  
05630O**************************************************************      P287  
05640O*                                                            *      P287  
05650O                                 0017 'FINAL TOTALS'                P287  
05660O                         TARR,11 0029 '$'                           P287  
05670O                         TARR,21 0041 '$'                           P287  
05680O                         TARR,31 0053 '$'                           P287  
05690O                         TARR,41 0065 '$'                           P287  
05700O                         TARR,51 0077 '$'                           P287  
05710O                         TARR,61 0089 '$'                           P287  
05720O                         FINTOT1 0102 '$'                           P287