Trailing-Edge - PDP-10 Archives - decuslib10-10 - 43,50517/p149.rpg
There is 1 other file named p149.rpg in the archive. Click here to see a list.
01010H                                                                    P144  
01020FCUSTCDS IP  F    0080            DISK   DAT144                      P144  
01025F                                              KASCII                      
01030FREGISTR O   F    0132     OF     PRINTEROUTPUT                      P144  
02010ICUSTCDS AA  01                                                      P144  
02020I                                     000200060CUSTNOL1              P144  
02030I                                     00070026 NAME                  P144  
02040I                                     00270028 STATE                 P144  
02050I                                     00290031 CITY                  P144  
02060I                                     00320036 INVNO                 P144  
02070I                                     00370038 MONTH                 P144  
02080I                                     00390040 DAY                   P144  
02090I                                     004100462INVAMT                P144  
03010C   01      INVAMT    ADD  CUSTOT    CUSTOT0082                      P144  
03020CL1         CUSTOT    ADD  FINTOT    FINTOT0082                      P144  
04010OREGISTR H  201   1P                                                 P144  
04020O       OR        OF                                                 P144  
04030O                         UDATE Y 0010                               P144  
04040O                                 0045 'A C C O U N T S'             P144  
04050O                                 0067 'R E C E I V A B L E'         P144  
04060O                                 0085 'R E G I S T E R'             P144  
04070O                                 0110 'PAGE'                        P144  
04080O                         PAGE    0115                               P144  
04090O        H  1     1P                                                 P144  
04100O       OR        OF                                                 P144  
04110O                                 0011 'CUSTOMER'                    P144  
04120O                                 0057 'LOCATION'                    P144  
04130O                                 0070 'INVOICE'                     P144  
04140O                                 0082 'INVOICE'                     P144  
04150O                                 0090 'DATE'                        P144  
04160O                                 0109 'INVOICE'                     P144  
04170O        H  2     1P                                                 P144  
04180O       OR        OF                                                 P144  
04190O                                 0010 'NUMBER'                      P144  
04200O                                 0037 'CUSTOMER NAME'               P144  
04210O                                 0070 'STATE     CITY    NUMBER'    P144  
04220O                                 0090 'MONTH      DAY'              P144  
04230O                                 0109 'AMOUNT'                      P144  
04240O        D  1     01                                                 P144  
04260O                 L1      CUSTNO  0009                               P144  
04270O                 L1      NAME    0039                               P144  
04280O                 L1      STATE   0049                               P144  
04290O                 L1      CITY    0059                               P144  
04300O                         INVNO   0069                               P144  
04310O                         MONTH   0079                               P144  
04320O                         DAY     0089                               P144  
04330O                         INVAMT1 0109                               P144  
04340O        T 12     L1                                                 P144  
04350O                                 0096 'CUSTOMER TOTAL'              P144  
04360O                         CUSTOT1B0109 '$'                           P144  
04370O                                 0110 '*'                           P144  
04380O        T 1      LR                                                 P144  
04382O                                 0096 'FINAL TOTAL'                 P149  
04390O                         FINTOT1 0109 '$'                           P144  
04400O                                 0111 '**'                          P144