Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/p262.rpg
There is 1 other file named p262.rpg in the archive. Click here to see a list.
01001H                                                                    P262  
01010FPMTCARD IP  F00800080            DISK   DAT262                      P262  
01020F                                              KASCII                P262  
01030FPMTREPT O   F01320132     OF     PRINTER                            P262  
02010IPMTCARD NS  01                                                      P262  
02020I                                     000100050CUSTNOL1              P262  
02030I                                     00060030 CUSTNM                P262  
02040I                                     003100360DATE                  P262  
02050I                                     003700380PMTS                  P262  
02060I                                     003900452AMT                   P262  
02070I                                     003100320MONTH                 P262  
02080I                                     003500360YEAR                  P262  
03010C           AMT       DIV  PMTS      PAYMNT0072                      P262  
03020C                     MVR            LASTPM0022                      P262  
03030C           LOOP      TAG                                            P262  
03040C                     EXCPT                                          P262  
03050C   55                SETOF                     55OF                 P262  
03060C   OF                SETON                     55                   P262  
03070C                     SETOF                     L1                   P262  
03080C           1         ADD  MONTH     MONTH                           P262  
03090C           MONTH     COMP 13                       10               P262  
03100C   10      MONTH     SUB  12        MONTH                           P262  
03110C   10      YEAR      ADD  1         YEAR                            P262  
03120C                     MOVELMONTH     DATE                            P262  
03130C                     MOVE YEAR      DATE                            P262  
03140C           PMTS      SUB  1         PMTS                            P262  
03150C           PMTS      COMP 1                    12  11               P262  
03160C   11      LASTPM    ADD  PAYMNT    PAYMNT                          P262  
03170C   11                                                               P262  
03180COR 12                GOTO LOOP                                      P262  
03190CL1         AMT       ADD  TOTAMT    TOTAMT0082                      P262  
05010OPMTREPT H  201   1P                                                 P262  
05020O       OR        OF                                                 P262  
05030O                         UDATE Y 0008                               P262  
05040O                                 0025 'PAYMENT'                     P262  
05050O                                 0041 'SCHEDULE REPOTR'             P262  
05060O                                 0055 'PAGE'                        P262  
05070O                         PAGE  Z 0060                               P262  
05080O        H  1     1P                                                 P262  
05090O       OR        OF                                                 P262  
05100O                                 0008 'CUSTOMER'                    P262  
05110O                                 0026 'CUSTOMER'                    P262  
05120O                                 0044 'DUE'                         P262  
05130O                                 0059 'PAYMENT'                     P262  
05140O        H  2     1P                                                 P262  
05150O       OR        OF                                                 P262  
05160O                                 0007 'NUMBER'                      P262  
05170O                                 0024 'NAME'                        P262  
05180O                                 0045 'DATE'                        P262  
05190O                                 0059 'AMOUNT'                      P262  
05200O        T 13     L1                                                 P262  
06010O                                 0049 'TOTAL PAYMENTS'              P262  
06020O                         AMT   1 0060 '$'                           P262  
06030O        T 00     LR                                                 P262  
06040O                                 0048 'FINAL TOTALS'                P262  
06050O                         TOTAMT1 0060 '$'                           P262  
06060O        EF 1     01                                                 P262  
06070O                 L1      CUSTNOZ 0007                               P262  
06080O                 L1      CUSTNM  0035                               P262  
06090O                 OF      CUSTNOZ 0007                               P262  
06100O                 OF      CUSTNM  0035                               P262  
06110O                         DATE  Y 0047                               P262  
06120O                         PAYMNT1 0060                               P262