Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/prob93.rpg
There is 1 other file named prob93.rpg in the archive. Click here to see a list.
01010H PROB93
01020FDESTAB IT F01320132 EDISK DESTAB PROB
01030F KASCII PROB93
01040FUPRTAB IT F01320132 EDISK UPRTAB PROB93
01050F KASCII PROB93
01060FINPUT IP F00800080 DISK DAT93 PROB93
01070F KASCII PROB93
01080FPRINT O F00800080 PRINTER PROB93
02010E DESTAB TABPN10010005005 0ATABDES020 PROB93
02020E UPRTAB TABPN20010004005 0ATABUPR004 0 PROB93
03010IINPUT AA 01 PROB93
03020I 000100050PRODNO PROB93
03030I 000600080QTY PROB93
04010C 01 PRODNO LOKUPTABPN1 TABDES 50 PROB93
04020C 01 PRODNO LOKUPTABPN2 TABUPR 51 PROB93
04030C 01 51 QTY MULT TABUPR AMT 0082 PROB93
05010OPRINT H 201 OF PROB93
05020O OR 1P PROB93
05030O UDATE Y 0008 PROB93
05040O 0037 'INVENTORY PARTS LIST' PROB93
05050O 0050 'PAGE' PROB93
05060O PAGE 0055 PROB93
05070O H 1 OF PROB93
05080O OR 1P PROB93
05090O 0007 'PRODUCT' PROB93
05100O 0022 'PRODUCT' PROB93
05110O 0043 'UNIT' PROB93
05120O H 2 OF PROB93
05130O OR 1P PROB93
05140O 0007 'NUMBER' PROB93
05150O 0024 'DESCRIPTION' PROB93
05160O 0043 'QTY PRICE' PROB93
05170O 0054 'AMOUNT' PROB93
06010O D 1 01 PROB93
06020O PRODNOZ 0005 PROB93
06030O 50 TABDES 0029 PROB93
06040O N50 0029 '***NO DESCRIPTION***' PROB93
06050O QTY Z 0035 PROB93
06060O 51 TABUPR1 0043 PROB93
06070O N51 0043 '*NONE' PROB93
06080O AMT 1B0055 PROB93
06090O T 2 LR PROB93
06100O 0017 'END OF PRICE LIST' PROB93
06110O T 2 LR PROB93
06120O 0013 'PROGRAMMED BY' PROB93
06130O 0025 'LESLIE BECK' PROB93