Trailing-Edge - PDP-10 Archives - decuslib20-06 - decus/20-153/p415.rpg
There is 1 other file named p415.rpg in the archive. Click here to see a list.
01010H                                                                    P415  
01020FCUSTMST IP  F02600026            DISK   CUSTMR                      P415  
01030FOLDINV  ID  F04800024            DISK   OLDINV                      P415  
01040FTRANS   ID  F00800080            DISK   TRANS                       P415  
01050F                                              KASCII                P415  
01060FNEWINV  O   F04800024            DISK   NEWINV                      P415  
01070FREPORT  O   F    0132     OF     PRINTER                            P415  
02010ICUSTMST AA  01                                                      P415  
02020I                                     000100060CUSTM                 P415  
02030I                                     00070026 NAME                  P415  
02040IOLDINV  AB  02                                                      P415  
02050I                                     000100060CUSTO                 P415  
02060I                                     000700120INVNOO                P415  
02070I                                     001300180INVDTO                P415  
02080I                                     001900242AMTDUE                P415  
02090ITRANS   AC  03                                                      P415  
02100I                                     000100060CUSTT                 P415  
02110I                                     000700120INVNOT                P415  
02120I                                     001300182PMTAMT                P415  
03010C                     SETON                     40                   P415  
03020C           RECPRO    TAG                                            P415  
03030C  N12                READ OLDINV                   92               P415  
03040C   92                GOTO LIPROC                                    P415  
03050C  N14                READ TRANS                    94               P415  
03060C   94                MOVE 999999    CUSTT                           P415  
03070C                     SETON                     1214                 P415  
03080C           CUSTM     COMP CUSTO                  22                 P415  
03090C   22                GOTO LIPROC                                    P415  
03100C           CUSTO     COMP CUSTT                  24                 P415  
03110C   24                GOTO NOPMT                                     P415  
09050C           INVNOO    COMP INVNOT                 2627               P415  
09060C   26                GOTO NOPMT                                     P415  
09070C           AMTDUE    SUB  PMTAMT    BALDUE0062     28               P415  
09080C                     SETOF                     14                   P415  
09240C           NOPMT     TAG                                            P415  
09250C  N28                SETON                     29                   P415  
10010C                     SETON                     3032                 P415  
10020C                     EXCPT                                          P415  
10030C                     SETOF                     122930               P415  
10040C                     SETOF                     2840                 P415  
10050C           AMTDUE    ADD  CINAMT    CINAMT0072                      P415  
10060C   27      PMTAMT    ADD  CPMT      CPMT  0072                      P415  
10070C   27      BALDUE    ADD  CAMTDU    CAMTDU0072                      P415  
10080C  N27      AMTDUE    ADD  CAMTDU    CAMTDU                          P415  
10090C                     SETOF                     2627                 P415  
10100C                     GOTO RECPRO                                    P415  
10200C           LIPROC    TAG                                            P415  
10210C  N32                GOTO ENDCAL                                    P415  
10220C           CINAMT    ADD  TINAMT    TINAMT0082                      P415  
10230C           CPMT      ADD  TPMT      TPMT  0082                      P415  
10240C           CAMTDU    ADD  TAMTDU    TAMTDU0082                      P415  
10250C                     SETON                     34                   P415  
11010C                     EXCPT                                          P415  
11020C                     SETOF                     3432                 P415  
11030C  N92                GOTO ENDCAL                                    P415  
11040C                     SETON                     36                   P415  
11050C                     EXCPT                                          P415  
11060C                     SETOF                     36                   P415  
11070C           ENDCAL    TAG                                            P415  
11080C                     SETON                     1214                 P415  
12080OREPORT  H  201   OF                                                 P415  
12090O       OR        1P                                                 P415  
12100O                         UDATE Y 0008                               P415  
12110O                                 0031 'A C C O U N T S'             P415  
12120O                                 0053 'R E C E I V A B L E'         P415  
12130O                                 0071 'R E G I S T E R'             P415  
12140O                                 0083 'PAGE'                        P415  
12150O                         PAGE    0088                               P415  
12160O        H  1     OF                                                 P415  
12170O       OR        1P                                                 P415  
12180O                                 0008 'CUSTOMER'                    P415  
12190O                                 0024 'CUSTOMER'                    P415  
12200O                                 0041 'INVOICE'                     P415  
12210O                                 0052 'INVOICE'                     P415  
12220O                                 0064 'INVOICE'                     P415  
12230O                                 0087 'AMOUNT'                      P415  
12240O        H  2     OF                                                 P415  
12250O       OR        1P                                                 P415  
13010O                                 0007 'NUMBER'                      P415  
13020O                                 0022 'NAME'                        P415  
13030O                                 0040 'NUMBER'                      P415  
13040O                                 0050 'DATE'                        P415  
13050O                                 0063 'AMOUNT'                      P415  
13060O                                 0076 'PAYMENT'                     P415  
13070O                                 0086 'DUE'                         P415  
13140O        EF01     30                                                 P415  
13150O                 40      CUSTM Z 0007                               P415  
13160O                 40      NAME    0030                               P415  
13170O                         INVNOOZ 0040                               P415  
13180O                         INVDTOY 0052                               P415  
13190O                         AMTDUE1 0064                               P415  
13200O                 27      PMTAMT1 0076                               P415  
13210O                N27              0076 '.00'                         P415  
13220O                 27      BALDUE1 0088                               P415  
13240O                N27      AMTDUE1 0088                               P415  
13250O                                 0090 '*'                           P415  
14070O        E 13     34                                                 P415  
14080O                                 0053 'CUSTOMER TOTALS'             P415  
14090O                         CINAMT1B0064 '$'                           P415  
14100O                         CPMT  1B0076 '$'                           P415  
14110O                         CAMTDU1B0088 '$'                           P415  
14180O        E 0      36                                                 P415  
14190O                                 0052 'FINAL TOTALS'                P415  
14200O                         TINAMT1 0064 '$'                           P415  
14210O                         TPMT  1 0076 '$'                           P415  
14220O                         TAMTDU1 0088 '$'                           P415  
15050ONEWINV  E        29                                                 P415  
15060O                         CUSTO   0006                               P415  
15070O                         INVNOO  0012                               P415  
15080O                         INVDTO  0018                               P415  
15090O                 27      BALDUE  0024                               P415  
15100O                N27      AMTDUE  0024                               P415