Trailing-Edge
-
PDP-10 Archives
-
decuslib20-06
-
decus/20-153/p287.rpg
There is 1 other file named p287.rpg in the archive. Click here to see a list.
01010H P287
01020F************************************************************** P287
01030F* THIS PROGRAM CREATES A SIX MONTHS SALES REPORT. * P287
01040F* THE INPUT TO THE PROGRAM ARE SALES CARDS WHICH CONTAIN * P287
01050F* THE PRODUCT CLASS, PRODUCT NUMBER, AND THE SALES FOR * P287
01060F* JANUARY THROUGH JUNE. SINCE EACH OF THE SALES FIGURES * P287
01070F* ARE THE SAME SIZE, THEY ARE ORGANIZED INTO AN ARRAY AND * P287
01080F* PROCESSED USING THE ARRAY OPERATIONS. IN ADDITION,THE * P287
01090F* TOTALS FOR EACH OF THE PRODUCT CLASSES ARE ACCUMULATED * P287
01100F* IN ARRAYS. GROUP TOTALS ARE TAKEN FOR EACH PRODUCT * P287
01110F* CLASS AND FINAL TOTALS ARE PRINTED. * P287
01120F************************************************************** P287
01130F* P287
01140FSLSCARD IP F00470047 DISK DAT287 P287
01150F KASCII P287
01160FSLSRPT O F01320132 OF PRINTER P287
02010E* P287
02020E************************************************************** P287
02030E* DEFINTION OF SALES ARRAY FROM INPUT CARD * P287
02040E************************************************************** P287
02050E* * P287
02060E SARR 0006006 2 P287
02070E* * P287
02080E************************************************************** P287
02090E* TOTAL ARRAY FOR EACH PRODUCT CLASS * P287
02100E************************************************************** P287
02110E* * P287
02120E PARR 0006007 2 P287
02130E* * P287
02140E************************************************************** P287
02150E* TOTAL ARRAY FOR ALL PRODUCT CLASSES * P287
02160E************************************************************** P287
02170E* * P287
02180E TARR 0006008 2 P287
03010I* P287
03020I* * P287
03030I************************************************************** P287
03040I* SIX MONTH SALES CARD * P287
03050I************************************************************** P287
03060I* * P287
03070ISLSCARD AA 01 P287
03080I 00010005 CLASS L1 P287
03090I 00060011 NUMBER P287
03100I 001200472SARR P287
04010C* P287
04020C* * P287
04030C************************************************************** P287
04040C* XFOOT TO OBTAIN TOTAL OF PRODUCT NUMBER SALES. THEN, * P287
04050C* TAKE TOTAL OF EACH MONTH'S SALES FOR PRODUCT CLASS TOTAL. * P287
04060C* ALSO, OBTAIN TOTAL FOR ALL SALES FOR PRODUCT CLASS. * P287
04070C************************************************************** P287
04080C* * P287
04090C XFOOTSARR TOTPRO0072 P287
04100C SARR ADD PARR PARR P287
04110C TOTPRO ADD TOTOLS TOTOLS0082 P287
04120C* * P287
04130C************************************************************** P287
04140C* FINAL TOTAL ACCUMULATIONS * P287
04150C************************************************************** P287
04160C* * P287
04170CL1 PARR ADD TARR TARR P287
04180CL1 TOTOLS ADD FINTOT FINTOT0082 P287
05010O* P287
05020O* * P287
05030O************************************************************** P287
05040O* HEADINGS FOR SIX MONTHS SALES REPORT * P287
05050O************************************************************** P287
05060O* * P287
05070OSLSRPT H 201 OF P287
05080O OR 1P P287
05090O UDATE Y 0008 P287
05100O 0046 'S I X M O N T H' P287
05110O 0097 'PAGE' P287
05120O PAGE 0102 P287
05130O H 1 OF P287
05140O OR 1P P287
05150O 0007 'PRODUCT' P287
05160O 0018 'PRODUCT' P287
05170O 0102 'SIX MONTH' P287
05180O H 2 OF P287
05190O OR 1P P287
05200O 0006 'CLASS' P287
05210O 0017 'NUMBER' P287
05220O 0029 'JANUARY' P287
05230O 0041 'FEBRUARY' P287
05240O 0052 'MARCH' P287
05250O 0064 'APRIL' P287
05260O 0075 'MAY' P287
05270O 0087 'JUNE' P287
05280O 0100 'TOTAL' P287
05290O* * P287
05300O************************************************************** P287
05310O* DETAIL FOR SALES FOR EACH PRODUCT NUMBER * P287
05320O************************************************************** P287
05330O* * P287
05340O D 1 01 P287
05350O L1 CLASS 0006 P287
05360O OF CLASS 0006 P287
05370O NUMBER 0017 P287
05380O SARR,11 0029 P287
05390O SARR,21 0041 P287
05400O SARR,31 0053 P287
05410O SARR,41 0065 P287
05420O SARR,51 0077 P287
05430O SARR,61 0089 P287
05440O TOTPRO1B0102 P287
05450O* * P287
05460O************************************************************** P287
05470O* TOTAL LINE FOR EACH PRODUCT CLASS * P287
05480O************************************************************** P287
05490O* * P287
05500O T 12 L1 P287
05510O 0018 'TOTALS' P287
05520O PARR,11B0029 '$' P287
05530O PARR,21B0041 '$' P287
05540O PARR,31B0053 '$' P287
05550O PARR,41B0065 '$' P287
05560O PARR,51B0077 '$' P287
05570O PARR,61B0089 '$' P287
05580O TOTOLS1B0102 '$' P287
05590O T 1 LR P287
05600O* * P287
05610O************************************************************** P287
05620O* FINAL TOTAL LINE * P287
05630O************************************************************** P287
05640O* * P287
05650O 0017 'FINAL TOTALS' P287
05660O TARR,11 0029 '$' P287
05670O TARR,21 0041 '$' P287
05680O TARR,31 0053 '$' P287
05690O TARR,41 0065 '$' P287
05700O TARR,51 0077 '$' P287
05710O TARR,61 0089 '$' P287
05720O FINTOT1 0102 '$' P287