Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/p303.rpg
There is 1 other file named p303.rpg in the archive. Click here to see a list.
01010H                                                                    P303  
01020FSLSCARD IP  F00800080            DISK   DAT303                      P303  
01030F                                              KASCII                P303  
01031FARR303  IT  F   9   9           EDISK   ARR303                            
01032F                                              KASCII                      
01040FSLSRPT  O   F01320132     OF     PRINTEROUT303                      P303  
02010E                    SARR     0006006 2                              P303  
02020E                    PARR     0006007 2                              P303  
02030E                    TARR     0006008 2                              P303  
02040E    ARR303          MAR   0010006009                                P303  
03010ISLSCARD NS  01                                                      P303  
03020I                                     00010005 CLASS L1              P303  
03030I                                     00060011 NUMBER                P303  
03040I                                     001200472SARR                  P303  
04005C                     SETOF                     OF                   P303  
04010C                     XFOOTSARR      TOTPRO0072                      P303  
04020C           SARR      ADD  PARR      PARR                            P303  
04030CL1         PARR      ADD  TARR      TARR                            P303  
04040CL1                   XFOOTPARR      TOTOLS0082                      P303  
04050CL1                   Z-ADD1         K     0010                      P303  
04060CL1                   SETON                     OF                   P303  
04070CL1         TOTLUP    TAG                                            P303  
04080CL1                   SETON                     40                   P303  
04090CL1                   EXCPT                                          P303  
04100CL1                   SETOF                     40OF                 P303  
04110CL1         1         ADD  K         K                               P303  
04120CL1         K         COMP 7                        41               P303  
04130CL1N41                GOTO TOTLUP                                    P303  
04140CL1                   SETON                     45                   P303  
04150CL1                   EXCPT                                          P303  
04160CL1                   SETOF                     45                         
04170CL1                   SETON                     OF                   P303  
04180CLR                   Z-ADD1         K                               P303  
04190CLR                   SETON                     OF                   P303  
04200CLR         FINLUP    TAG                                            P303  
04210CLR                   SETON                     50                   P303  
04220CLR                   EXCPT                                          P303  
04230CLR                   SETOF                     50OF                 P303  
04240CLR         1         ADD  K         K                               P303  
04250CLR         K         COMP 7                        51               P303  
04260CLRN51                GOTO FINLUP                                    P303  
08080CLR                   XFOOTTARR      FINTOT0082                      P303  
08090CLR                   SETON                     55                   P303  
08100CLR                   EXCPT                                          P303  
08110CLR                   SETOF                     55                   P303  
09080OSLSRPT  H  201   1P                                                 P303  
09090O       OR        OF                                                 P303  
09100O                         UDATE Y 0008                               P303  
09110O                                 0040 'S I X   M O N T H'           P303  
09120O                                 0052 'S A L E S'                   P303  
09130O                                 0066 'R E P O R T'                 P303  
09140O                                 0085 'PAGE'                        P303  
09150O                         PAGE    0090                               P303  
09160O        H  1     1P                                                 P303  
09170O       OR        OFN40N50                                           P303  
09180O                                 0007 'PRODUCT'                     P303  
09190O                                 0018 'PRODUCT'                     P303  
09200O                                 0090 'SIX MONTH'                   P303  
09210O        H  2     1P                                                 P303  
09220O       OR        OFN40N50                                           P303  
09230O                                 0006 'CLASS'                       P303  
09240O                                 0017 'NUMBER'                      P303  
09250O                                 0029 'JANUARY'                     P303  
10010O                                 0039 'FEBRUARY'                    P303  
10020O                                 0048 'MARCH'                       P303  
10030O                                 0058 'APRIL'                       P303  
10040O                                 0067 'MAY'                         P303  
10050O                                 0077 'JUNE'                        P303  
10060O                                 0088 'TOTAL'                       P303  
10130O        D  1     01                                                 P303  
10140O                 L1      CLASS   0006                               P303  
10150O                 OF      CLASS   0006                               P303  
10160O                         NUMBER  0017                               P303  
10170O                         SARR  1 0079                               P303  
10180O                         TOTPRO1 0090                               P303  
11020O        EF10     40                                                 P303  
11030O                 OF              0022 'TOTALS - PRODUCT CLASS'      P303  
11040O                 OF      CLASS   0028                               P303  
11050O                         MAR,K   0039                               P303  
11060O                         PARR,K1B0050 '$'                           P303  
11150O        E 2      45                                                 P303  
11160O                                 0035 'TOTAL'                       P303  
11170O                         TOTOLS1B0050 '$'                           P303  
11240O        EF10     50                                                 P303  
11250O                 OF              0028 'FINAL TOTALS'                P303  
12010O                         MAR,K   0039                               P303  
12020O                         TARR,K1 0050 '$'                           P303  
12090O        E 2      55                                                 P303  
12100O                                 0035 'TOTAL'                       P303  
12110O                         FINTOT1 0050 '$'                           P303