Trailing-Edge
-
PDP-10 Archives
-
decuslib10-10
-
43,50517/pim122.rpg
There is 1 other file named pim122.rpg in the archive. Click here to see a list.
020FISFIN IP F 600 30 06AI 1 DISK CH12
030FPRINT O 132 OF PRINTER
010IISFIN AA 01
020I 1 5 PARTNO
030I 6 25 DESC
040I 26 300QTY
010C 01 QTY ADD TOTQTY TOTQTY 50
010OPRINT H 201 1P
020O OR OF
030O UDATE Y 9
040O 43 'PARTS MASTER FILE UPDATE'
050O 53 'PAGE'
060O PAGE Z 58
070O H 1 1P
080O OR OF
090O 6 'PART'
100O H 2 1P
110O OR OF
120O 7 'NUMBER'
130O 35 'DESCRIPTION'
140O 57 'QTY'
150O D 1 01
160O PARTNO 6
170O DESC 39
180O QTY 1 58
190O T 2 LR
200O 50 'TOTAL QUANTITY'
210O TOTQTY 58