Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/p303.rpg
There is 1 other file named p303.rpg in the archive. Click here to see a list.
01010H P303
01020FSLSCARD IP F00800080 DISK DAT303 P303
01030F KASCII P303
01031FARR303 IT F 9 9 EDISK ARR303
01032F KASCII
01040FSLSRPT O F01320132 OF PRINTEROUT303 P303
02010E SARR 0006006 2 P303
02020E PARR 0006007 2 P303
02030E TARR 0006008 2 P303
02040E ARR303 MAR 0010006009 P303
03010ISLSCARD NS 01 P303
03020I 00010005 CLASS L1 P303
03030I 00060011 NUMBER P303
03040I 001200472SARR P303
04005C SETOF OF P303
04010C XFOOTSARR TOTPRO0072 P303
04020C SARR ADD PARR PARR P303
04030CL1 PARR ADD TARR TARR P303
04040CL1 XFOOTPARR TOTOLS0082 P303
04050CL1 Z-ADD1 K 0010 P303
04060CL1 SETON OF P303
04070CL1 TOTLUP TAG P303
04080CL1 SETON 40 P303
04090CL1 EXCPT P303
04100CL1 SETOF 40OF P303
04110CL1 1 ADD K K P303
04120CL1 K COMP 7 41 P303
04130CL1N41 GOTO TOTLUP P303
04140CL1 SETON 45 P303
04150CL1 EXCPT P303
04160CL1 SETOF 45
04170CL1 SETON OF P303
04180CLR Z-ADD1 K P303
04190CLR SETON OF P303
04200CLR FINLUP TAG P303
04210CLR SETON 50 P303
04220CLR EXCPT P303
04230CLR SETOF 50OF P303
04240CLR 1 ADD K K P303
04250CLR K COMP 7 51 P303
04260CLRN51 GOTO FINLUP P303
08080CLR XFOOTTARR FINTOT0082 P303
08090CLR SETON 55 P303
08100CLR EXCPT P303
08110CLR SETOF 55 P303
09080OSLSRPT H 201 1P P303
09090O OR OF P303
09100O UDATE Y 0008 P303
09110O 0040 'S I X M O N T H' P303
09120O 0052 'S A L E S' P303
09130O 0066 'R E P O R T' P303
09140O 0085 'PAGE' P303
09150O PAGE 0090 P303
09160O H 1 1P P303
09170O OR OFN40N50 P303
09180O 0007 'PRODUCT' P303
09190O 0018 'PRODUCT' P303
09200O 0090 'SIX MONTH' P303
09210O H 2 1P P303
09220O OR OFN40N50 P303
09230O 0006 'CLASS' P303
09240O 0017 'NUMBER' P303
09250O 0029 'JANUARY' P303
10010O 0039 'FEBRUARY' P303
10020O 0048 'MARCH' P303
10030O 0058 'APRIL' P303
10040O 0067 'MAY' P303
10050O 0077 'JUNE' P303
10060O 0088 'TOTAL' P303
10130O D 1 01 P303
10140O L1 CLASS 0006 P303
10150O OF CLASS 0006 P303
10160O NUMBER 0017 P303
10170O SARR 1 0079 P303
10180O TOTPRO1 0090 P303
11020O EF10 40 P303
11030O OF 0022 'TOTALS - PRODUCT CLASS' P303
11040O OF CLASS 0028 P303
11050O MAR,K 0039 P303
11060O PARR,K1B0050 '$' P303
11150O E 2 45 P303
11160O 0035 'TOTAL' P303
11170O TOTOLS1B0050 '$' P303
11240O EF10 50 P303
11250O OF 0028 'FINAL TOTALS' P303
12010O MAR,K 0039 P303
12020O TARR,K1 0050 '$' P303
12090O E 2 55 P303
12100O 0035 'TOTAL' P303
12110O FINTOT1 0050 '$' P303