Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/p153.rpg
There is 1 other file named p153.rpg in the archive. Click here to see a list.
01010H P153
01020FCUSTCDS IP F 0080 DISK DAT144 P153
01025F KASCII P153
01030FREGISTR O F 0132 PRINTEROUTPUT P153
02010ICUSTCDS AA 01 P153
02020I 000200060CUSTNOL1 P153
02030I 00070026 NAME P153
02040I 004100462INVAMT P153
03010C 01 INVAMT ADD CUSTOT CUSTOT0082 P153
03020CL1 CUSTOT ADD FINTOT FINTOT0082 P153
04010OREGISTR H 201 1P P153
04020O OR OF P153
04030O UDATE Y 0009 P153
04040O 0030 'CUSTOMER ACCOUNTS' P153
04050O 0044 'TOTAL LISTING' P153
04060O 0051 'PAGE' P153
04070O PAGE 0056 P153
04080O H 1 1P P153
04090O OR 1P P153
04100O 0009 'CUSTOMER' P153
04110O 0051 'TOTAL' P153
04120O H 2 1P P153
04130O 0008 'NUMBER' P153
04140O 0034 'CUSTOMER NAME' P153
04150O 0055 'SALES AMOUNT' P153
04160O T 1 L1 P153
04170O CUSTNOZ 0007 P153
04180O NAME 0035 P153
04190O CUSTOT1B0054 P153
04200O T 2 LR P153
04210O 0042 'FINAL TOTAL' P153
04220O FINTOT1 0054 '$' P153