Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/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