Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/p458.rpg
There is 1 other file named p458.rpg in the archive. Click here to see a list.
01010H P458
01130FCARDUPD IPE F 0080 DISK DAT458 P458
01135F KASCII P458
01140FMASTER UC F06600033R06AI 0001 DISK ISFILE A P458
01150FERRORPT O F01320132 OF PRINTER P458
02080ICARDUPD AA 010080 CA P458
02090I OR 020080 CU P458
02100I 00010006 CUSTNO P458
02110I 00070026 NAME P458
02120I 002700332SALES P458
02190IMASTER AB 03 P458
02200I 00010006 CUSNO P458
02210I 00070026 MNAME P458
02220I 002700332MSALES P458
03160C CUSTNO CHAINMASTER 20 P458
03170C 02 03 SALES ADD MSALES MSALES P458
04080OERRORPT H 201 1P P458
04090O OR OF P458
04100O 0008 'CUST NO' P458
04110O 0020 'ERROR' P458
04190O D 1 02 20 P458
04200O OR 01N20 P458
04210O CUSTNO 0007 P458
04220O 02 20 0033 'NO MASTER RECORD-UPDATE ' P458
04230O 02 20 0046 'NOT PERFORMED' P458
04240O 01N20 0033 'DUPLICATE RECORD-NO ADDI' P458
04250O 01N20 0047 'TION PERFORMED' P458
05090OMASTER DADD 01 20 P458
05100O CUSTNO 0006 P458
05110O NAME 0026 P458
05120O SALES 0033 P458
05200O D 02 03 P458
05210O CUSNO 0006 P458
05220O MNAME 0026 P458
05230O MSALES 0033 P458