;;ARGUS30%      LNHD66   CHD132:   LNTX00:  CHTX132:  LNTR00:  CHTR132:
;-NNNNNNNNNNN-  LNHDxx:  CHHDxxx:  LNTXxx:  CHTXxxx:  LNTRxx:  CHTRxxx:
;
; 040387  LjmS
;              ARUGS POS REPORTING - 30% Supercategory Percentages
;                                         Revision 2.0
;
Z1,001400^^^^^^^^^^^^^^^^,C3001,L4,S2,A24:C3002,L5,S2,A24:C3003,L6,S2,A24:
C3004,L7,S2,A24:
Z1,001401^^^^^^^^^^^^^^^^,C3001,L4,S109,A24:C3002,L5,S109,A24:
C3003,L6,S109,A24:C3004,L7,S109,A24:
L4,S39,   "          A R G U S   DAILY  SALES  REPORTING          ":
L5,S39,   "     ---- 30 Supercategory Percentages Report ----     ":
L6,S39,   "                           Daily                       ":
L08,S61,  "                          Page xxxx   FFFFLLLL  Run MM-DD-YY":
L8,S113,A8,ID:L8,S99,A8,IF:L8,S92,A4,IP:L7,S63,A12,IY:
;
L9,S02,   "============================================================":
L9,S62,   "============================================================":
L9,S122,  "============":
;
;          123456789012345678901234567890123456789012345678901234567890:
;  PASS 1--ACCUMULATE TOTAL SALES
;
Z1,0130^^^^^^^^^^^^^^^1^^,C0144,R10:
Z1,0130^^^^^^^^^^^^^^^2^^,C0144,R10:
Z1,0130^^^^^^^^^^^^^^^3^^,C0144,R10:
Z1,0130^^^^^^^^^^^^^^^4^^,C0144,R11:
Z1,0130^^^^^^^^^^^^^^^5^^,C0144,R11:
Z1,0130^^^^^^^^^^^^^^^6^^,C0144,R11:
Z1,0130^^^^^^^^^^^^^^^7^^,C0144,R11:
Z1,0130^^^^^^^^^^^^^^^8^^,C0144,R11:
;
;  PASS 2-PRODUCE PERCENTAGE REPORT:
[R4=10000.]:
[R1=R10+R11+R12]:
;
;                   1         2         3         4         5         6
;          123456789012345678901234567890123456789012345678901234567890:
L11,S12,  "              SUPERCATEGORY         UNITS         SALES     ":
L11,S69,  "  % OF TOTAL SALES      % TO LIQUOR                         ":
L12,S12,  "             ===============       =======       =======    ":
L12,S69,  " ==================    ==============                       ":
;
L13,S14,  "LIQUOR:":
Z1,0130^^^^^^^^^^^^^^^1^^,"1",L13,S26,A1:C3001,L13,S29,A24:
     C0132,L13,S48,A4:C0144,L13,S60,A7,P2,R2:
[R3=(R2/R1)*R4]:
[R20=(R2/R10)*R4]:
   C0003,L13,S76,A5,P2:
   C0020,L13,S96,A5,P2:
[R2=0]:
Z1,0130^^^^^^^^^^^^^^^2^^,"2",L14,S26,A1:C3001,L14,S29,A24:
     C0132,L14,S48,A4:C0144,L14,S60,A7,P2,R2:
[R3=(R2/R1)*R4]:
[R20=(R2/R10)*R4]:
   C0003,L14,S76,A5,P2:
   C0020,L14,S96,A5,P2:
[R2=0]:
Z1,0130^^^^^^^^^^^^^^^3^^,"3",L15,S26,A1:C3001,L15,S29,A24:
     C0132,L15,S48,A4:C0144,L15,S60,A7,P2,R2:
[R3=(R2/R1)*R4]:
[R20=(R2/R10)*R4]:
   C0003,L15,S76,A5,P2:
   C0020,L15,S96,A5,P2:
[R2=0]:
L16,S61,  "=======       =======":
L17,S26,  "LIQUOR TOTAL":
C0010,L17,S60,A7,P2:
[R31=(R10/R1)*R4]:C0031,L17,S76,A6,P2:
;
L19,S12,  "              SUPERCATEGORY         UNITS         SALES     ":
L19,S69,  "  % OF TOTAL SALES       % TO FOOD                          ":
L20,S12,  "             ===============       =======       =======    ":
L20,S69,  " ==================    ==============                       ":
;
L22,S14,  "FOOD:":
Z1,0130^^^^^^^^^^^^^^^4^^,"4",L22,S26,A1:C3001,L22,S29,A24:
     C0132,L22,S48,A4:C0144,L22,S60,A7,P2,R2:
[R3=(R2/R1)*R4]:
[R21=(R2/R11)*R4]:
   C0003,L22,S76,A5,P2:
   C0021,L22,S96,A5,P2:
[R2=0]:[R21=0]:[R3=0]:
Z1,0130^^^^^^^^^^^^^^^5^^,"5",L23,S26,A1:C3001,L23,S29,A24:
     C0132,L23,S48,A4:C0144,L23,S60,A7,P2,R2:
[R3=(R2/R1)*R4]:
[R21=(R2/R11)*R4]:
   C0003,L23,S76,A5,P2:
   C0021,L23,S96,A5,P2:
[R2=0]:[R21=0]:[R3=0]:
Z1,0130^^^^^^^^^^^^^^^6^^,"6",L24,S26,A1:C3001,L24,S29,A24:
     C0132,L24,S48,A4:C0144,L24,S60,A7,P2,R2:
[R3=(R2/R1)*R4]:
[R21=(R2/R11)*R4]:
   C0003,L24,S76,A5,P2:
   C0021,L24,S96,A5,P2:
[R2=0]:[R21=0]:[R3=0]:
Z1,0130^^^^^^^^^^^^^^^7^^,"7",L25,S26,A1:C3001,L25,S29,A24:
     C0132,L25,S48,A4:C0144,L25,S60,A7,P2,R2:
[R3=(R2/R1)*R4]:
[R21=(R2/R11)*R4]:
   C0003,L25,S76,A5,P2:
   C0021,L25,S96,A5,P2:
[R2=0]:[R21=0]:[R3=0]:
Z1,0130^^^^^^^^^^^^^^^8^^,"8",L26,S26,A1:C3001,L26,S29,A24:
     C0132,L26,S48,A4:C0144,L26,S60,A7,P2,R2:
[R3=(R2/R1)*R4]:
[R21=(R2/R11)*R4]:
   C0003,L26,S76,A5,P2:
   C0021,L26,S96,A5,P2:
[R2=0]:[R21=0]:[R3=0]:
;
L27,S61,  "=======       =======":
L28,S26,  "FOOD TOTAL":
C0011,L29,S60,A7,P2:
[R32=(R11/R1)*R4]:C0032,L29,S76,A6,P2:
;                     1         2         3         4         5         6
;            123456789012345678901234567890123456789012345678901234567890:
;  
   L31,S01, "============================================================":
   L31,S61, "============================================================":
   L31,S121,"===========":
   L32,S15,  "G R A N D   Total":C0001,L32,S60,A7,P2:
   C0033,L33,S72,A6,P2:
[R34=((R10+R11+R12)/R1)*R4]:
C0034,L33,S76,A6,P2:
;
;;END