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