[SOLVED] Dynamic pagelayout and component in Compound PDF
Hi,
Iam trying to create dynamic pagelayout and component creating in a compound pdf.
Depending on the variable value and the reportid , i need to call the corresponding pagelayouts and components. am getting an error at the component level creation .The maximum no.of pages that i would get is 5 .
i have hardcode the values as of now in variable &alph_div
But For example ,data would look like
ReportID Value 1 - 2 FoodDivision1 3 FoodDivision2 4 FoodDivision3
hence in the first page , i would need fooddivision1 and page 2 FoodDivision2.
here goes the code , and the generated code after execution
-SET &QCOUNT1=1;
-REPEAT LOOP2 &BLINES TIMES
-:START1
-SET &R1 = 'report'||EDIT(&QCOUNT1)||'01' ;
-SET &R2 = 'report'||EDIT(&QCOUNT1)||'02' ;
-SET &R3 = 'report'||EDIT(&QCOUNT1)||'03' ;
-SET &R4 = 'report'||EDIT(&QCOUNT1)||'04' ;
-SET &R5 = 'report'||EDIT(&QCOUNT1)||'05' ;
-SET &R6 = 'report'||EDIT(&QCOUNT1)||'06' ;
-SET &R7 = 'report'||EDIT(&QCOUNT1)||'07' ;
-SET &R8 = 'report'||EDIT(&QCOUNT1)||'08' ;
-SET &R9 = 'report'||EDIT(&QCOUNT1)||'09' ;
-SET &R10 = 'report'||EDIT(&QCOUNT1)||'10' ;
-IF &QCOUNT1 LE &BLINES THEN OPEN1 ELSE CLOSE1;
-OPEN1
-IF &QCOUNT1 EQ 1 THEN CHKF ELSE NOCHECK;
-CHKF
SET HTMLARCHIVE=ON
COMPOUND LAYOUT PCHOLD FORMAT PDF
UNITS=IN, $
SECTION=section1, LAYOUT=ON, METADATA='0.5^0.5^0.5^0.5', MERGE=OFF, ORIENTATION=PORTRAIT, PAGESIZE=A4, $
-NOCHECK
-*-TYPE &ALPH_BGN1
-*
-IF &QCOUNT1 EQ 1 THEN GOTO CHK1 ELSE IF (&QCOUNT1 EQ 2) THEN CHK2 ELSE IF (&QCOUNT1 EQ 3) THEN CHK3 ELSE IF (&QCOUNT1 EQ 4) THEN CHK4 ELSE CHKEL;
-CHK1
-IF (&ALPH_BGN1 EQ 'NN') THEN NORMALSTR ELSE IF (&ALPH_BGN1 EQ 'YN') THEN TOPBRLASTR ELSE IF (&ALPH_BGN1 EQ 'NY') THEN TOPOUTSSTR ELSE IF (&ALPH_BGN1 EQ 'N0') THEN TOPOUTSSTR ELSE TOPSTORE ;
-GOTO CHKEND
-CHK2
-IF (&ALPH_BGN2 EQ 'NN') THEN NORMALSTR ELSE IF (&ALPH_BGN2 EQ 'YN') THEN TOPBRLASTR ELSE IF (&ALPH_BGN2 EQ 'NY') THEN TOPOUTSSTR ELSE IF (&ALPH_BGN2 EQ 'N0') THEN TOPOUTSSTR ELSE TOPSTORE ;
-GOTO CHKEND
-CHK3
-IF (&ALPH_BGN3 EQ 'NN') THEN NORMALSTR ELSE IF (&ALPH_BGN3 EQ 'YN') THEN TOPBRLASTR ELSE IF (&ALPH_BGN3 EQ 'NY') THEN TOPOUTSSTR ELSE IF (&ALPH_BGN3 EQ 'N0') THEN TOPOUTSSTR ELSE TOPSTORE ;
-GOTO CHKEND
-CHK4
-IF (&ALPH_BGN4 EQ 'NN') THEN NORMALSTR ELSE IF (&ALPH_BGN4 EQ 'YN') THEN TOPBRLASTR ELSE IF (&ALPH_BGN4 EQ 'NY') THEN TOPOUTSSTR ELSE IF (&ALPH_BGN4 EQ 'N0') THEN TOPOUTSSTR ELSE TOPSTORE ;
-GOTO CHKEND
-CHKEL
-IF (&ALPH_BGN5 EQ 'NN') THEN NORMALSTR ELSE IF (&ALPH_BGN5 EQ 'YN') THEN TOPBRLASTR ELSE IF (&ALPH_BGN5 EQ 'NY') THEN TOPOUTSSTR ELSE IF (&ALPH_BGN5 EQ 'N0') THEN TOPOUTSSTR ELSE TOPSTORE ;
-GOTO CHKEND
-CHKEND
-NORMALSTR
PAGELAYOUT=&QCOUNT1, NAME='Page layout &QCOUNT1', text='Page layout &QCOUNT1', TOC-LEVEL=1, BOTTOMMARGIN=0.5, TOPMARGIN=0.0, METADATA='BOTTOMMARGIN=0.5,TOPMARGIN=0.0,LEFTMARGIN=0,RIGHTMARGIN=0,', $
COMPONENT='&R1', TEXT='&R1', TOC-LEVEL=2, POSITION=(0.5 -0.30), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
COMPONENT='&R2', TEXT='&R2', TOC-LEVEL=2, POSITION=(0.5 .61), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
COMPONENT='&R3', TEXT='&R3', TOC-LEVEL=2, POSITION=(0.62 2.8), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
COMPONENT='&R4', TEXT='&R4', TOC-LEVEL=2, POSITION=(0.520 5), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
COMPONENT='&R5', TEXT='&R5', TOC-LEVEL=2, POSITION=(0.62 6.95), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
COMPONENT='&R6', TEXT='&R6', TOC-LEVEL=2, POSITION=(0.520 10.3), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
COMPONENT='&R7', TEXT='&R7', TOC-LEVEL=2, POSITION=(4.78 1.36), DIMENSION=(.8 .8), METADATA='Z-INDEX: 2; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $
COMPONENT='&R8', TEXT='&R8', TOC-LEVEL=2, POSITION=(4.78 3.17), DIMENSION=(.8 .8), METADATA='Z-INDEX: 111; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $
COMPONENT='&R9', TEXT='&R9', TOC-LEVEL=2, POSITION=(4.78 5.7), DIMENSION=(.8 .8), METADATA='Z-INDEX: 111; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $
COMPONENT='&R10', TEXT='&R10', TOC-LEVEL=2, POSITION=(4.78 7.48), DIMENSION=(.8 .8), METADATA='Z-INDEX: 111; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $
OBJECT=STRING, POSITION=(2.4 .9), TEXT='Backroom Location Accuracy %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=STRING, POSITION=(6.1 2.9), TEXT='G:>=97.5,Y:95-97.49,R:<95',FONT=Arial, SIZE=10, STYLE=BOLD, COLOR=BLACK, $
OBJECT=STRING, POSITION=(6.15 4.45), TEXT='Change over last week',FONT=TIMES, SIZE=12, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 1.58), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 3.5), DIMENSION=(.6 .8), $
OBJECT=LINE, POSITION=(.1 4.7), ENDPOINT=(8.2 4.7),BORDER=HEAVY, BORDER-COLOR=BLACK, $
OBJECT=STRING, POSITION=(3.5 5.26), TEXT='OUTS With Loc %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=STRING, POSITION=(6.1 7.1), TEXT='G:<=10,Y:10.01-18,R:>18',FONT=Arial, SIZE=10, STYLE=BOLD, COLOR=BLACK, $
OBJECT=STRING, POSITION=(6.15 8.65), TEXT='Change over last week',FONT=TIMES, SIZE=12, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 6), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 7.6), DIMENSION=(.6 .8), $
-*OBJECT=STRING, NAME='text1', TEXT='<font face="ARIAL" size=10><FONT face="ARIAL " size=10>[b]NOTE: The results shown above will not match those available on DTK, as custom Department-Class <BR> lists are used to more accurately reflect product located in each Cooler/Freezer.[/b]</FONT></font>', POSITION=(0.832 9.275), MARKUP=ON, WRAP=ON, DIMENSION=(10 0.625), METADATA='', $
OBJECT=LINE, POSITION=(.1 10.2), ENDPOINT=(8.2 10.2),BORDER=LIGHT, BORDER-COLOR=BLACK, $
OBJECT=STRING, NAME='text1', POSITION=(0.5 9.540),LINESPACING=EXACT(.2),TEXT='<font face="ARIAL" size=10><FONT face="ARIAL " size=10>[b]NOTE:The results shown above will not match those available on DTK, as custom Department-Class<BR>lists are used to more accurately reflect product in each Cooler/Freezer.[/b]</FONT></font>', MARKUP=ON, WRAP=OFF, DIMENSION=(6.875 0.520), METADATA='', $
-GOTO COMPRPT
-*
-TOPBRLASTR
PAGELAYOUT=&QCOUNT1, NAME='Page layout &QCOUNT1', text='Page layout &QCOUNT1', TOC-LEVEL=1, BOTTOMMARGIN=0.5, TOPMARGIN=0.0, METADATA='BOTTOMMARGIN=0.5,TOPMARGIN=0.0,LEFTMARGIN=0,RIGHTMARGIN=0,', $
COMPONENT='&R1', TEXT='&R1', TOC-LEVEL=2, POSITION=(0.5 -0.30), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
OBJECT=IMAGE, IMAGE=BRLA_GN_only.jpg, POSITION=(3.5 1.0), DIMENSION=(5 2), $
COMPONENT='&R4', TEXT='&R4', TOC-LEVEL=2, POSITION=(0.520 5), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
COMPONENT='&R5', TEXT='&R5', TOC-LEVEL=2, POSITION=(0.62 6.95), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
COMPONENT='&R6', TEXT='&R6', TOC-LEVEL=2, POSITION=(0.520 10.3), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
COMPONENT='&R9', TEXT='&R9', TOC-LEVEL=2, POSITION=(4.78 5.7), DIMENSION=(.8 .8), METADATA='Z-INDEX: 111; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $
COMPONENT='&R10', TEXT='&R10', TOC-LEVEL=2, POSITION=(4.78 7.48), DIMENSION=(.8 .8), METADATA='Z-INDEX: 111; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $
OBJECT=STRING, POSITION=(2.4 .9), TEXT='Backroom Location Accuracy %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 1.58), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 3.5), DIMENSION=(.6 .8), $
OBJECT=LINE, POSITION=(.1 4.7), ENDPOINT=(8.2 4.7),BORDER=HEAVY, BORDER-COLOR=BLACK, $
OBJECT=STRING, POSITION=(3.5 5.26), TEXT='OUTS With Loc %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=STRING, POSITION=(6.1 7.1), TEXT='G:<=10,Y:10.01-18,R:>18',FONT=Arial, SIZE=10, STYLE=BOLD, COLOR=BLACK, $
OBJECT=STRING, POSITION=(6.15 8.65), TEXT='Change over last week',FONT=TIMES, SIZE=12, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 6), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 7.6), DIMENSION=(.6 .8), $
OBJECT=LINE, POSITION=(.1 10.2), ENDPOINT=(8.2 10.2),BORDER=LIGHT, BORDER-COLOR=BLACK, $
OBJECT=STRING, NAME='text1', POSITION=(0.5 9.540),LINESPACING=EXACT(.2),TEXT='<font face="ARIAL" size=10><FONT face="ARIAL " size=10>[b]NOTE:The results shown above will not match those available on DTK, as custom Department-Class<BR>lists are used to more accurately reflect product in each Cooler/Freezer.[/b]</FONT></font>', MARKUP=ON, WRAP=OFF, DIMENSION=(6.875 0.520), METADATA='', $
-GOTO COMPRPT
-*
-TOPOUTSSTR
PAGELAYOUT=&QCOUNT1, NAME='Page layout &QCOUNT1', text='Page layout &QCOUNT1', TOC-LEVEL=1, BOTTOMMARGIN=0.5, TOPMARGIN=0.0, METADATA='BOTTOMMARGIN=0.5,TOPMARGIN=0.0,LEFTMARGIN=0,RIGHTMARGIN=0,', $
COMPONENT='&R1', TEXT='&R1', TOC-LEVEL=2, POSITION=(0.5 -0.30), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
COMPONENT='&R2', TEXT='&R2', TOC-LEVEL=2, POSITION=(0.5 .61), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
COMPONENT='&R3', TEXT='&R3', TOC-LEVEL=2, POSITION=(0.62 2.8), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
OBJECT=IMAGE, IMAGE=BRLA_GN_only.jpg, POSITION=(3.5 6.0), DIMENSION=(5 2), $
COMPONENT='&R6', TEXT='&R6', TOC-LEVEL=2, POSITION=(0.520 10.3), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
COMPONENT='&R7', TEXT='&R7', TOC-LEVEL=2, POSITION=(4.78 1.36), DIMENSION=(.8 .8), METADATA='Z-INDEX: 2; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $
COMPONENT='&R8', TEXT='&R8', TOC-LEVEL=2, POSITION=(4.78 3.17), DIMENSION=(.8 .8), METADATA='Z-INDEX: 111; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $
OBJECT=STRING, POSITION=(2.4 .9), TEXT='Backroom Location Accuracy %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=STRING, POSITION=(6.1 2.9), TEXT='G:>=97.5,Y:95-97.49,R:<95',FONT=Arial, SIZE=10, STYLE=BOLD, COLOR=BLACK, $
OBJECT=STRING, POSITION=(6.15 4.45), TEXT='Change over last week',FONT=TIMES, SIZE=12, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 1.58), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 3.5), DIMENSION=(.6 .8), $
OBJECT=LINE, POSITION=(.1 4.7), ENDPOINT=(8.2 4.7),BORDER=HEAVY, BORDER-COLOR=BLACK, $
OBJECT=STRING, POSITION=(3.5 5.26), TEXT='OUTS With Loc %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 6), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 7.6), DIMENSION=(.6 .8), $
-*OBJECT=STRING, NAME='text1', TEXT='<font face="ARIAL" size=10><FONT face="ARIAL " size=10>[b]NOTE: The results shown above will not match those available on DTK, as custom Department-Class <BR> lists are used to more accurately reflect product located in each Cooler/Freezer.[/b]</FONT></font>', POSITION=(0.832 9.275), MARKUP=ON, WRAP=ON, DIMENSION=(10 0.625), METADATA='', $
OBJECT=LINE, POSITION=(.1 10.2), ENDPOINT=(8.2 10.2),BORDER=LIGHT, BORDER-COLOR=BLACK, $
OBJECT=STRING, NAME='text1', POSITION=(0.5 9.540),LINESPACING=EXACT(.2),TEXT='<font face="ARIAL" size=10><FONT face="ARIAL " size=10>[b]NOTE:The results shown above will not match those available on DTK, as custom Department-Class<BR>lists are used to more accurately reflect product in each Cooler/Freezer.[/b]</FONT></font>', MARKUP=ON, WRAP=OFF, DIMENSION=(6.875 0.520), METADATA='', $
-*
-GOTO COMPRPT
-*
-TOPSTORE
PAGELAYOUT=&QCOUNT1, NAME='Page layout &QCOUNT1', text='Page layout &QCOUNT1', TOC-LEVEL=1, BOTTOMMARGIN=0.5, TOPMARGIN=0.0, METADATA='BOTTOMMARGIN=0.5,TOPMARGIN=0.0,LEFTMARGIN=0,RIGHTMARGIN=0,', $
COMPONENT='&R1', TEXT='&R1', TOC-LEVEL=2, POSITION=(0.5 -0.30), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
OBJECT=IMAGE, IMAGE=BRLA_GN_only.jpg, POSITION=(3.5 1.0), DIMENSION=(5 2), $
OBJECT=IMAGE, IMAGE=BRLA_GN_only.jpg, POSITION=(3.5 6.0), DIMENSION=(5 2), $
COMPONENT='&R6', TEXT='&R6', TOC-LEVEL=2, POSITION=(0.520 10.3), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
OBJECT=STRING, POSITION=(2.4 .9), TEXT='Backroom Location Accuracy %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 1.58), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 3.5), DIMENSION=(.6 .8), $
OBJECT=LINE, POSITION=(.1 4.7), ENDPOINT=(8.2 4.7),BORDER=HEAVY, BORDER-COLOR=BLACK, $
OBJECT=STRING, POSITION=(3.5 5.26), TEXT='OUTS With Loc %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 6), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 7.6), DIMENSION=(.6 .8), $
-*OBJECT=STRING, NAME='text1', TEXT='<font face="ARIAL" size=10><FONT face="ARIAL " size=10>[b]NOTE: The results shown above will not match those available on DTK, as custom Department-Class <BR> lists are used to more accurately reflect product located in each Cooler/Freezer.[/b]</FONT></font>', POSITION=(0.832 9.275), MARKUP=ON, WRAP=ON, DIMENSION=(10 0.625), METADATA='', $
OBJECT=LINE, POSITION=(.1 10.2), ENDPOINT=(8.2 10.2),BORDER=LIGHT, BORDER-COLOR=BLACK, $
OBJECT=STRING, NAME='text1', POSITION=(0.5 9.540),LINESPACING=EXACT(.2),TEXT='<font face="ARIAL" size=10><FONT face="ARIAL " size=10>[b]NOTE:The results shown above will not match those available on DTK, as custom Department-Class<BR>lists are used to more accurately reflect product in each Cooler/Freezer.[/b]</FONT></font>', MARKUP=ON, WRAP=OFF, DIMENSION=(6.875 0.520), METADATA='', $
-*
-COMPRPT
-*
-SET &QCOUNT1 = &QCOUNT1 + 1 ;
-GOTO :START1
-LOOP2
-GOTO SKP
-SKP
-CLOSE1
END
-:END_LOOP
-TYPE 'AFTER LOOP' &ALPH_BGN1
-*-IF (&ALPH_BGN EQ 'Y' AND &ALPH_OGN EQ 'N') THEN LOOP456 ELSE SKP456;
-*-IF &QCOUNT1 EQ 1 THEN GOTO CHK1 ELSE IF (&QCOUNT1 EQ 2) THEN CHK2 ELSE IF (&QCOUNT1 EQ 3) THEN CHK3 ELSE IF (&QCOUNT1 EQ 4) THEN CHK4 ELSE CHKEL;
-*-CHK1
-*-IF (&ALPH_BGN1 EQ 'NN') THEN SKP456 ELSE IF (&ALPH_BGN1 EQ 'YN') THEN LOOP456 ELSE IF (&ALPH_BGN1 EQ 'NY') THEN LOOPOSTR ELSE IF (&ALPH_BGN1 EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-*-GOTO CHKEND1
-*
-*-IF (&ALPH_BGN2 EQ 'NN') THEN SKP456 ELSE IF (&ALPH_BGN2 EQ 'YN') THEN LOOP456 ELSE IF (&ALPH_BGN2 EQ 'NY') THEN LOOPOSTR ELSE IF (&ALPH_BGN2 EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-*-GOTO CHKEND1
-*
-*-IF (&ALPH_BGN3 EQ 'NN') THEN SKP456 ELSE IF (&ALPH_BGN3 EQ 'YN') THEN LOOP456 ELSE IF (&ALPH_BGN3 EQ 'NY') THEN LOOPOSTR ELSE IF (&ALPH_BGN3 EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-*-GOTO CHKEND1
-*
-*
-*-IF (&ALPH_BGN4 EQ 'NN') THEN SKP456 ELSE IF (&ALPH_BGN4 EQ 'YN') THEN LOOP456 ELSE IF (&ALPH_BGN4 EQ 'NY') THEN LOOPOSTR ELSE IF (&ALPH_BGN4 EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-*-GOTO CHKEND1
-*
-*
-*
-*-IF (&ALPH_BGN5 EQ 'NN') THEN SKP456 ELSE IF (&ALPH_BGN5 EQ 'YN') THEN LOOP456 ELSE IF (&ALPH_BGN5 EQ 'NY') THEN LOOPOSTR ELSE IF (&ALPH_BGN5 EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-*-GOTO CHKEND1
-*
-*-CHKEND
-SET &BCOUNT=1;
-CHKAGAIN
-IF &BCOUNT LE &BLINES THEN OPEN0 ELSE CLOSE0;
-OPEN0
-IF &BCOUNT EQ 1 THEN GOTO CHK10 ELSE IF (&BCOUNT EQ 2) THEN CHK20 ELSE IF (&BCOUNT EQ 3) THEN CHK30 ELSE IF (&BCOUNT EQ 4) THEN CHK40 ELSE CHKEL0;
-CHK10
-SET &ALPH_DIV='Meat (210/268/226) ';
-IF (&ALPH_BGN1 EQ 'NN') THEN SKP456 ELSE IF (&ALPH_BGN1 EQ 'YN') THEN LOOP456 ELSE IF (&ALPH_BGN1 EQ 'NY') THEN LOOPOSTR ELSE IF (&ALPH_BGN1 EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-CHK20
-SET &ALPH_DIV='Produce (211/224/266/267)' ;
-IF (&ALPH_BGN1 EQ 'NN') THEN SKP456 ELSE IF (&ALPH_BGN1 EQ 'YN') THEN LOOP456 ELSE IF (&ALPH_BGN1 EQ 'NY') THEN LOOPOSTR ELSE IF (&ALPH_BGN1 EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-CHK30
-SET &ALPH_DIV='Dairy (284)' ;
-IF (&ALPH_BGN1 EQ 'NN') THEN SKP456 ELSE IF (&ALPH_BGN1 EQ 'YN') THEN LOOP456 ELSE IF (&ALPH_BGN1 EQ 'NY') THEN LOOPOSTR ELSE IF (&ALPH_BGN1 EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-CHK40
-SET &ALPH_DIV='Frozen (270)';
-IF (&ALPH_BGN1 EQ 'NN') THEN SKP456 ELSE IF (&ALPH_BGN1 EQ 'YN') THEN LOOP456 ELSE IF (&ALPH_BGN1 EQ 'NY') THEN LOOPOSTR ELSE IF (&ALPH_BGN1 EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-CHKEL0
-SET &ALPH_DIV='Frozen (288)';
-IF (&ALPH_BGN1 EQ 'NN') THEN SKP456 ELSE IF (&ALPH_BGN1 EQ 'YN') THEN LOOP456 ELSE IF (&ALPH_BGN1 EQ 'NY') THEN LOOPOSTR ELSE IF (&ALPH_BGN1 EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-SKP456
-*REPEAT MY_LOOP FOR &BCOUNT FROM 1 TO &BLINES
-*-:START
-*-IF &BCOUNT LE &BLINES THEN OPEN ELSE CLOSE;
-*-OPEN
-*
-*
-*-************************************************************REPORT FOR CREATING MAIN HEADING***************************************************************
-*
-*-READ SAV_HLD_BRLA_DIV NOCLOSE &DUMMY.A6. &ALPH_DIV.A30.
-*-RUN
-SET &R1 = 'report'||EDIT(&BCOUNT)||'01' ;
SET COMPONENT='&R1'
-*component_type report
TABLE FILE HLD_BRLA
PRINT
STR_NUM NOPRINT
HEADING
"Grocery Accuracy Report - &ALPH_DIV"
WHERE RECORDLIMIT EQ 1
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=24,
COLOR='BLACK',
STYLE=NORMAL,
BOTTOMGAP=0.1,
$
TYPE=HEADING,
LINE=1,
SIZE=24,
COLOR='WHITE',
BACKCOLOR='BLACK',
STYLE=BOLD,
JUSTIFY=CENTER,
$
ENDSTYLE
END
-**************************************************REPORT FOR CREATING FIRST REPORT TITLE AND DATA********************************************************
-SET &R2 = 'report'||EDIT(&BCOUNT)||'02' ;
SET COMPONENT='&R2'
TABLE FILE HLD_BRLA
PRINT
G_BRLA AS ''
COMPUTE Trend/A1 = '';
RYG AS 'R/Y/G'
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ '&ALPH_DIV'
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=18,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=1.333333,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=2.055556,
$
ENDSTYLE
END
-SET &R3 = 'report'||EDIT(&BCOUNT)||'03' ;
SET COMPONENT='&R3'
-*component_type report
TABLE FILE HLD_BRLA
PRINT
OTPT_RNK AS ''
COMPUTE Trend/A1 = '';
RCH3 AS ''
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ '&ALPH_DIV'
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=2,
COLOR='WHITE',
BACKCOLOR='WHITE',
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=2.0,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=1.3,COLOR='WHITE',
$
ENDSTYLE
END
-SET &R4 = 'report'||EDIT(&BCOUNT)||'04' ;
SET COMPONENT='&R4'
-*component_type report
TABLE FILE HLD_OUTS
PRINT
G_BRLA AS ''
COMPUTE Trend/A1 = '';
RYG AS 'R/Y/G'
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ '&ALPH_DIV'
ON TABLE SET BYPANEL ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
LEFTMARGIN=0.500000,
RIGHTMARGIN=0.500000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N2,
COLOR='WHITE',
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=18,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
COLUMN=N1,
SIZE=8,
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=1.333333,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=2.055556,
$
ENDSTYLE
END
-SET &R5 = 'report'||EDIT(&BCOUNT)||'05' ;
SET COMPONENT='&R5'
-*component_type report
TABLE FILE HLD_OUTS
PRINT
OTPT_RNK AS ''
COMPUTE Trend/A1 = '';
RCH3 AS ''
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ '&ALPH_DIV'
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=2,
COLOR='WHITE',
BACKCOLOR='WHITE',
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=2.0,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=1.3,COLOR='WHITE',
$
ENDSTYLE
END
-******************************************************************REPORT FOR CREATING FOOTER*************************************************************
-SET &R6 = 'report'||EDIT(&BCOUNT)||'06' ;
SET COMPONENT='&R6'
TABLE FILE HLD_BRLA
PRINT STR_NUM NOPRINT
HEADING
"Location: &INPT_STR <+0> Last week - &INPT_DATE"
""
"*This report is updated on Wednesday of each week"
WHERE DIVISION EQ '&ALPH_DIV'
-*WHERE STORE_NUM EQ '&INPT_STR'
-*WHERE WEND EQ '&INPT_DATE'
WHERE RECORDLIMIT EQ 1
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN, PAGESIZE=A4, SQUEEZE=OFF, ORIENTATION=PORTRAIT,
LEFTMARGIN=0.000000, RIGHTMARGIN=0.010000, TOPMARGIN=0.00000, BOTTOMMARGIN=0.000000,
$
TYPE=HEADING,LINE=1,ITEM=1,JUSTIFY='LEFT',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=4.3,
$
TYPE=HEADING,LINE=1,ITEM=2,JUSTIFY='CENTER',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=3.3,
$
TYPE=HEADING,LINE=3,FONT='ARIAL',SIZE=10,
$
$
ENDSTYLE
END
**********************************************************************REPORT FOR CREATING ARROW IN FIRST REPORT******************************************************
-SET &R7 = 'report'||EDIT(&BCOUNT)||'07' ;
SET COMPONENT='&R7'
DEFINE FILE HLD_BRLA
LOGO/A500=IF SCORETREND EQ '+' THEN 'UP.jpg' ELSE
IF SCORETREND EQ '-' THEN 'Down.jpg' ELSE '';
END
TABLE FILE HLD_BRLA
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ '&ALPH_DIV'
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-*************************************************************REPORT FOR CREATING ARROW IN SECOND REPORT***********************************************************
-SET &R8 = 'report'||EDIT(&BCOUNT)||'08' ;
SET COMPONENT='&R8'
DEFINE FILE HLD_BRLA
LOGO/A500=IF RANKTREND EQ '+' THEN 'UP.jpg' ELSE
IF RANKTREND EQ '-' THEN 'Down.jpg' ELSE '';
END
TABLE FILE HLD_BRLA
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ '&ALPH_DIV'
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-SET &R9 = 'report'||EDIT(&BCOUNT)||'09' ;
SET COMPONENT='&R9'
DEFINE FILE HLD_OUTS
LOGO/A500=IF SCORETREND EQ '+' THEN 'UP.jpg' ELSE
IF SCORETREND EQ '-' THEN 'Down.jpg' ELSE ' ';
END
TABLE FILE HLD_OUTS
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ '&ALPH_DIV'
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-*************************************************************REPORT FOR CREATING ARROW IN SECOND REPORT***********************************************************
-SET &R10 = 'report'||EDIT(&BCOUNT)||'10' ;
SET COMPONENT='&R10'
DEFINE FILE HLD_OUTS
LOGO/A500=IF RANKTREND EQ '+' THEN 'UP.jpg' ELSE
IF RANKTREND EQ '-' THEN 'Down.jpg' ELSE '';
END
TABLE FILE HLD_OUTS
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ '&ALPH_DIV'
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-*-SET &BCOUNT = &BCOUNT + 1 ;
-*-GOTO :START
-*-CLOSE
-*COMPOUND END
-*-:END_LOOP
-*-MY_LOOP
-*-EXIT
-SET &BCOUNT=&BCOUNT+1;
-GOTO CHKAGAIN
-LOOP456
-SET &R1 = 'report'||EDIT(&BCOUNT)||'01' ;
SET COMPONENT='&R1'
-*component_type report
TABLE FILE HLD_BRLA
PRINT
STR_NUM NOPRINT
HEADING
"Grocery Accuracy Report - &ALPH_DIV"
WHERE RECORDLIMIT EQ 1
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=24,
COLOR='BLACK',
STYLE=NORMAL,
BOTTOMGAP=0.1,
$
TYPE=HEADING,
LINE=1,
SIZE=24,
COLOR='WHITE',
BACKCOLOR='BLACK',
STYLE=BOLD,
JUSTIFY=CENTER,
$
ENDSTYLE
END
-SET &R4 = 'report'||EDIT(&BCOUNT)||'04' ;
SET COMPONENT='&R4'
-*component_type report
TABLE FILE HLD_OUTS
PRINT
G_BRLA AS ''
COMPUTE Trend/A1 = '';
RYG AS 'R/Y/G'
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ '&ALPH_DIV'
ON TABLE SET BYPANEL ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
LEFTMARGIN=0.500000,
RIGHTMARGIN=0.500000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N2,
COLOR='WHITE',
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=18,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
COLUMN=N1,
SIZE=8,
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=1.333333,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=2.055556,
$
ENDSTYLE
END
-SET &R5 = 'report'||EDIT(&BCOUNT)||'05' ;
SET COMPONENT='&R5'
-*component_type report
TABLE FILE HLD_OUTS
PRINT
OTPT_RNK AS ''
COMPUTE Trend/A1 = '';
RCH3 AS ''
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ '&ALPH_DIV'
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=2,
COLOR='WHITE',
BACKCOLOR='WHITE',
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=2.0,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=1.3,COLOR='WHITE',
$
ENDSTYLE
END
-******************************************************************REPORT FOR CREATING FOOTER*************************************************************
-SET &R6 = 'report'||EDIT(&BCOUNT)||'06' ;
SET COMPONENT='&R6'
TABLE FILE HLD_BRLA
PRINT STR_NUM NOPRINT
HEADING
"Location: &INPT_STR <+0> Last week - &INPT_DATE"
""
"*This report is updated on Wednesday of each week"
WHERE DIVISION EQ '&ALPH_DIV'
-*WHERE STORE_NUM EQ '&INPT_STR'
-*WHERE WEND EQ '&INPT_DATE'
WHERE RECORDLIMIT EQ 1
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN, PAGESIZE=A4, SQUEEZE=OFF, ORIENTATION=PORTRAIT,
LEFTMARGIN=0.000000, RIGHTMARGIN=0.010000, TOPMARGIN=0.00000, BOTTOMMARGIN=0.000000,
$
TYPE=HEADING,LINE=1,ITEM=1,JUSTIFY='LEFT',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=4.3,
$
TYPE=HEADING,LINE=1,ITEM=2,JUSTIFY='CENTER',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=3.3,
$
TYPE=HEADING,LINE=3,FONT='ARIAL',SIZE=10,
$
$
ENDSTYLE
END
-SET &R9 = 'report'||EDIT(&BCOUNT)||'09' ;
SET COMPONENT='&R9'
DEFINE FILE HLD_OUTS
LOGO/A500=IF SCORETREND EQ '+' THEN 'UP.jpg' ELSE
IF SCORETREND EQ '-' THEN 'Down.jpg' ELSE ' ';
END
TABLE FILE HLD_OUTS
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ '&ALPH_DIV'
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-*************************************************************REPORT FOR CREATING ARROW IN SECOND REPORT***********************************************************
-SET &R10 = 'report'||EDIT(&BCOUNT)||'10' ;
SET COMPONENT='&R10'
DEFINE FILE HLD_OUTS
LOGO/A500=IF RANKTREND EQ '+' THEN 'UP.jpg' ELSE
IF RANKTREND EQ '-' THEN 'Down.jpg' ELSE '';
END
TABLE FILE HLD_OUTS
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ '&ALPH_DIV'
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-SET &BCOUNT = &BCOUNT + 1 ;
-GOTO CHKAGAIN
-LOOPOSTR
-SET &R1 = 'report'||EDIT(&BCOUNT)||'01' ;
SET COMPONENT='&R1'
-*component_type report
TABLE FILE HLD_BRLA
PRINT
STR_NUM NOPRINT
HEADING
"Grocery Accuracy Report - &ALPH_DIV"
WHERE RECORDLIMIT EQ 1
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=24,
COLOR='BLACK',
STYLE=NORMAL,
BOTTOMGAP=0.1,
$
TYPE=HEADING,
LINE=1,
SIZE=24,
COLOR='WHITE',
BACKCOLOR='BLACK',
STYLE=BOLD,
JUSTIFY=CENTER,
$
ENDSTYLE
END
-**************************************************REPORT FOR CREATING FIRST REPORT TITLE AND DATA********************************************************
-SET &R2 = 'report'||EDIT(&BCOUNT)||'02' ;
SET COMPONENT='&R2'
TABLE FILE HLD_BRLA
PRINT
G_BRLA AS ''
COMPUTE Trend/A1 = '';
RYG AS 'R/Y/G'
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ '&ALPH_DIV'
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=18,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=1.333333,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=2.055556,
$
ENDSTYLE
END
-SET &R3 = 'report'||EDIT(&BCOUNT)||'03' ;
SET COMPONENT='&R3'
-*component_type report
TABLE FILE HLD_BRLA
PRINT
OTPT_RNK AS ''
COMPUTE Trend/A1 = '';
RCH3 AS ''
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ '&ALPH_DIV'
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=2,
COLOR='WHITE',
BACKCOLOR='WHITE',
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=2.0,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=1.3,COLOR='WHITE',
$
ENDSTYLE
END
-******************************************************************REPORT FOR CREATING FOOTER*************************************************************
-SET &R6 = 'report'||EDIT(&BCOUNT)||'06' ;
SET COMPONENT='&R6'
TABLE FILE HLD_BRLA
PRINT STR_NUM NOPRINT
HEADING
"Location: &INPT_STR <+0> Last week - &INPT_DATE"
""
"*This report is updated on Wednesday of each week"
WHERE DIVISION EQ '&ALPH_DIV'
-*WHERE STORE_NUM EQ '&INPT_STR'
-*WHERE WEND EQ '&INPT_DATE'
WHERE RECORDLIMIT EQ 1
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN, PAGESIZE=A4, SQUEEZE=OFF, ORIENTATION=PORTRAIT,
LEFTMARGIN=0.000000, RIGHTMARGIN=0.010000, TOPMARGIN=0.00000, BOTTOMMARGIN=0.000000,
$
TYPE=HEADING,LINE=1,ITEM=1,JUSTIFY='LEFT',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=4.3,
$
TYPE=HEADING,LINE=1,ITEM=2,JUSTIFY='CENTER',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=3.3,
$
TYPE=HEADING,LINE=3,FONT='ARIAL',SIZE=10,
$
$
ENDSTYLE
END
**********************************************************************REPORT FOR CREATING ARROW IN FIRST REPORT******************************************************
-SET &R7 = 'report'||EDIT(&BCOUNT)||'07' ;
SET COMPONENT='&R7'
DEFINE FILE HLD_BRLA
LOGO/A500=IF SCORETREND EQ '+' THEN 'UP.jpg' ELSE
IF SCORETREND EQ '-' THEN 'Down.jpg' ELSE '';
END
TABLE FILE HLD_BRLA
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ '&ALPH_DIV'
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-*************************************************************REPORT FOR CREATING ARROW IN SECOND REPORT***********************************************************
-SET &R8 = 'report'||EDIT(&BCOUNT)||'08' ;
SET COMPONENT='&R8'
DEFINE FILE HLD_BRLA
LOGO/A500=IF RANKTREND EQ '+' THEN 'UP.jpg' ELSE
IF RANKTREND EQ '-' THEN 'Down.jpg' ELSE '';
END
TABLE FILE HLD_BRLA
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ '&ALPH_DIV'
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-SET &BCOUNT = &BCOUNT + 1 ;
-GOTO CHKAGAIN;
-LOOPTS
-SET &R1 = 'report'||EDIT(&BCOUNT)||'01' ;
SET COMPONENT='&R1'
-*component_type report
TABLE FILE HLD_BRLA
PRINT
STR_NUM NOPRINT
HEADING
"Grocery Accuracy Report - &ALPH_DIV"
WHERE RECORDLIMIT EQ 1
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=24,
COLOR='BLACK',
STYLE=NORMAL,
BOTTOMGAP=0.1,
$
TYPE=HEADING,
LINE=1,
SIZE=24,
COLOR='WHITE',
BACKCOLOR='BLACK',
STYLE=BOLD,
JUSTIFY=CENTER,
$
ENDSTYLE
END
-SET &R6 = 'report'||EDIT(&BCOUNT)||'06' ;
SET COMPONENT='&R6'
TABLE FILE HLD_BRLA
PRINT STR_NUM NOPRINT
HEADING
"Location: &INPT_STR <+0> Last week - &INPT_DATE"
""
"*This report is updated on Wednesday of each week"
WHERE DIVISION EQ '&ALPH_DIV'
-*WHERE STORE_NUM EQ '&INPT_STR'
-*WHERE WEND EQ '&INPT_DATE'
WHERE RECORDLIMIT EQ 1
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN, PAGESIZE=A4, SQUEEZE=OFF, ORIENTATION=PORTRAIT,
LEFTMARGIN=0.000000, RIGHTMARGIN=0.010000, TOPMARGIN=0.00000, BOTTOMMARGIN=0.000000,
$
TYPE=HEADING,LINE=1,ITEM=1,JUSTIFY='LEFT',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=4.3,
$
TYPE=HEADING,LINE=1,ITEM=2,JUSTIFY='CENTER',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=3.3,
$
TYPE=HEADING,LINE=3,FONT='ARIAL',SIZE=10,
$
$
ENDSTYLE
END
-SET &BCOUNT = &BCOUNT + 1 ;
-GOTO CHKAGAIN;
-CLOSE0
COMPOUND END
Generated Code with echo all on
-SET &QCOUNT1=1; -REPEAT LOOP2 5 TIMES -:START1 -SET &R1 = 'report'||EDIT(1)||'01' ; -SET &R2 = 'report'||EDIT(1)||'02' ; -SET &R3 = 'report'||EDIT(1)||'03' ; -SET &R4 = 'report'||EDIT(1)||'04' ; -SET &R5 = 'report'||EDIT(1)||'05' ; -SET &R6 = 'report'||EDIT(1)||'06' ; -SET &R7 = 'report'||EDIT(1)||'07' ; -SET &R8 = 'report'||EDIT(1)||'08' ; -SET &R9 = 'report'||EDIT(1)||'09' ; -SET &R10 = 'report'||EDIT(1)||'10' ; -IF 1 LE 5 THEN OPEN1 ELSE CLOSE1; -OPEN1 -IF 1 EQ 1 THEN CHKF ELSE NOCHECK; -CHKF SET HTMLARCHIVE=ON COMPOUND LAYOUT PCHOLD FORMAT PDF UNITS=IN, $ SECTION=section1, LAYOUT=ON, METADATA='0.5^0.5^0.5^0.5', MERGE=OFF, ORIENTATION=PORTRAIT, PAGESIZE=A4, $ -NOCHECK -*-TYPE &ALPH_BGN1 -* -IF 1 EQ 1 THEN GOTO CHK1 ELSE IF (1 EQ 2) THEN CHK2 ELSE IF (1 EQ 3) THEN CHK3 ELSE IF (1 EQ 4) THEN CHK4 ELSE CHKEL; -CHK1 -IF (YN EQ 'NN') THEN NORMALSTR ELSE IF (YN EQ 'YN') THEN TOPBRLASTR ELSE IF (YN EQ 'NY') THEN TOPOUTSSTR ELSE IF (YN EQ 'N0') THEN TOPOUTSSTR ELSE TOPSTORE ; -TOPBRLASTR PAGELAYOUT=1, NAME='Page layout 1', text='Page layout 1', TOC-LEVEL=1, BOTTOMMARGIN=0.5, TOPMARGIN=0.0, METADATA='BOTTOMMARGIN=0.5,TOPMARGIN=0.0,LEFTMARGIN=0,RIGHTMARGIN=0,', $ COMPONENT='report101', TEXT='report101', TOC-LEVEL=2, POSITION=(0.5 -0.30), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $ OBJECT=IMAGE, IMAGE=BRLA_GN_only.jpg, POSITION=(3.5 1.0), DIMENSION=(5 2), $ COMPONENT='report104', TEXT='report104', TOC-LEVEL=2, POSITION=(0.520 5), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $ COMPONENT='report105', TEXT='report105', TOC-LEVEL=2, POSITION=(0.62 6.95), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $ COMPONENT='report106', TEXT='report106', TOC-LEVEL=2, POSITION=(0.520 10.3), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $ COMPONENT='report109', TEXT='report109', TOC-LEVEL=2, POSITION=(4.78 5.7), DIMENSION=(.8 .8), METADATA='Z-INDEX: 111; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $ COMPONENT='report110', TEXT='report110', TOC-LEVEL=2, POSITION=(4.78 7.48), DIMENSION=(.8 .8), METADATA='Z-INDEX: 111; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $ OBJECT=STRING, POSITION=(2.4 .9), TEXT='Backroom Location Accuracy %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $ OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 1.58), DIMENSION=(.41 .66), $ OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 3.5), DIMENSION=(.6 .8), $ OBJECT=LINE, POSITION=(.1 4.7), ENDPOINT=(8.2 4.7),BORDER=HEAVY, BORDER-COLOR=BLACK, $ OBJECT=STRING, POSITION=(3.5 5.26), TEXT='OUTS With Loc %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $ OBJECT=STRING, POSITION=(6.1 7.1), TEXT='G:<=10,Y:10.01-18,R:>18',FONT=Arial, SIZE=10, STYLE=BOLD, COLOR=BLACK, $ OBJECT=STRING, POSITION=(6.15 8.65), TEXT='Change over last week',FONT=TIMES, SIZE=12, STYLE=BOLD, COLOR=BLACK, $ OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 6), DIMENSION=(.41 .66), $ OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 7.6), DIMENSION=(.6 .8), $ OBJECT=LINE, POSITION=(.1 10.2), ENDPOINT=(8.2 10.2),BORDER=LIGHT, BORDER-COLOR=BLACK, $ OBJECT=STRING, NAME='text1', POSITION=(0.5 9.540),LINESPACING=EXACT(.2),TEXT='NOTE:The results shown above will not match those available on DTK, as custom Department-Class lists are used to more accurately reflect product in each Cooler/Freezer.', MARKUP=ON, WRAP=OFF, DIMENSION=(6.875 0.520), METADATA='', $ -GOTO COMPRPT -COMPRPT -* -SET &QCOUNT1 = 1 + 1 ; -GOTO :START1 -:START1 -SET &R1 = 'report'||EDIT(2)||'01' ; -SET &R2 = 'report'||EDIT(2)||'02' ; -SET &R3 = 'report'||EDIT(2)||'03' ; -SET &R4 = 'report'||EDIT(2)||'04' ; -SET &R5 = 'report'||EDIT(2)||'05' ; -SET &R6 = 'report'||EDIT(2)||'06' ; -SET &R7 = 'report'||EDIT(2)||'07' ; -SET &R8 = 'report'||EDIT(2)||'08' ; -SET &R9 = 'report'||EDIT(2)||'09' ; -SET &R10 = 'report'||EDIT(2)||'10' ; -IF 2 LE 5 THEN OPEN1 ELSE CLOSE1; -OPEN1 -OPEN1 -IF 2 EQ 1 THEN CHKF ELSE NOCHECK; -NOCHECK -*-TYPE &ALPH_BGN1 -* -IF 2 EQ 1 THEN GOTO CHK1 ELSE IF (2 EQ 2) THEN CHK2 ELSE IF (2 EQ 3) THEN CHK3 ELSE IF (2 EQ 4) THEN CHK4 ELSE CHKEL; -CHK2 -IF (N0 EQ 'NN') THEN NORMALSTR ELSE IF (N0 EQ 'YN') THEN TOPBRLASTR ELSE IF (N0 EQ 'NY') THEN TOPOUTSSTR ELSE IF (N0 EQ 'N0') THEN TOPOUTSSTR ELSE TOPSTORE ; -TOPOUTSSTR PAGELAYOUT=2, NAME='Page layout 2', text='Page layout 2', TOC-LEVEL=1, BOTTOMMARGIN=0.5, TOPMARGIN=0.0, METADATA='BOTTOMMARGIN=0.5,TOPMARGIN=0.0,LEFTMARGIN=0,RIGHTMARGIN=0,', $ COMPONENT='report201', TEXT='report201', TOC-LEVEL=2, POSITION=(0.5 -0.30), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $ COMPONENT='report202', TEXT='report202', TOC-LEVEL=2, POSITION=(0.5 .61), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $ COMPONENT='report203', TEXT='report203', TOC-LEVEL=2, POSITION=(0.62 2.8), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $ OBJECT=IMAGE, IMAGE=BRLA_GN_only.jpg, POSITION=(3.5 6.0), DIMENSION=(5 2), $ COMPONENT='report206', TEXT='report206', TOC-LEVEL=2, POSITION=(0.520 10.3), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $ COMPONENT='report207', TEXT='report207', TOC-LEVEL=2, POSITION=(4.78 1.36), DIMENSION=(.8 .8), METADATA='Z-INDEX: 2; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $ COMPONENT='report208', TEXT='report208', TOC-LEVEL=2, POSITION=(4.78 3.17), DIMENSION=(.8 .8), METADATA='Z-INDEX: 111; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $ OBJECT=STRING, POSITION=(2.4 .9), TEXT='Backroom Location Accuracy %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $ OBJECT=STRING, POSITION=(6.1 2.9), TEXT='G:>=97.5,Y:95-97.49,R:<95',FONT=Arial, SIZE=10, STYLE=BOLD, COLOR=BLACK, $ OBJECT=STRING, POSITION=(6.15 4.45), TEXT='Change over last week',FONT=TIMES, SIZE=12, STYLE=BOLD, COLOR=BLACK, $ OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 1.58), DIMENSION=(.41 .66), $ OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 3.5), DIMENSION=(.6 .8), $ OBJECT=LINE, POSITION=(.1 4.7), ENDPOINT=(8.2 4.7),BORDER=HEAVY, BORDER-COLOR=BLACK, $ OBJECT=STRING, POSITION=(3.5 5.26), TEXT='OUTS With Loc %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $ OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 6), DIMENSION=(.41 .66), $ OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 7.6), DIMENSION=(.6 .8), $ -*OBJECT=STRING, NAME='text1', TEXT='NOTE: The results shown above will not match those available on DTK, as custom Department-Class lists are used to more accurately reflect product located in each Cooler/Freezer.', POSITION=(0.832 9.275), MARKUP=ON, WRAP=ON, DIMENSION=(10 0.625), METADATA='', $ OBJECT=LINE, POSITION=(.1 10.2), ENDPOINT=(8.2 10.2),BORDER=LIGHT, BORDER-COLOR=BLACK, $ OBJECT=STRING, NAME='text1', POSITION=(0.5 9.540),LINESPACING=EXACT(.2),TEXT='NOTE:The results shown above will not match those available on DTK, as custom Department-Class lists are used to more accurately reflect product in each Cooler/Freezer.', MARKUP=ON, WRThis message has been edited. Last edited by: Kerry,
WebFOCUS 7.6.9 Windows Excel, HTML, PDF
July 25, 2011, 11:59 AM
Jan1
here goes the generated code :
-SET &QCOUNT1=1;
-REPEAT LOOP2 5 TIMES
-:START1
-SET &R1 = 'report'||EDIT(1)||'01' ;
-SET &R2 = 'report'||EDIT(1)||'02' ;
-SET &R3 = 'report'||EDIT(1)||'03' ;
-SET &R4 = 'report'||EDIT(1)||'04' ;
-SET &R5 = 'report'||EDIT(1)||'05' ;
-SET &R6 = 'report'||EDIT(1)||'06' ;
-SET &R7 = 'report'||EDIT(1)||'07' ;
-SET &R8 = 'report'||EDIT(1)||'08' ;
-SET &R9 = 'report'||EDIT(1)||'09' ;
-SET &R10 = 'report'||EDIT(1)||'10' ;
-IF 1 LE 5 THEN OPEN1 ELSE CLOSE1;
-OPEN1
-IF 1 EQ 1 THEN CHKF ELSE NOCHECK;
-CHKF
SET HTMLARCHIVE=ON
COMPOUND LAYOUT PCHOLD FORMAT PDF
UNITS=IN, $
SECTION=section1, LAYOUT=ON, METADATA='0.5^0.5^0.5^0.5', MERGE=OFF, ORIENTATION=PORTRAIT, PAGESIZE=A4, $
-NOCHECK
-*-TYPE &ALPH_BGN1
-*
-IF 1 EQ 1 THEN GOTO CHK1 ELSE IF (1 EQ 2) THEN CHK2 ELSE IF (1 EQ 3) THEN CHK3 ELSE IF (1 EQ 4) THEN CHK4 ELSE CHKEL;
-CHK1
-IF (YN EQ 'NN') THEN NORMALSTR ELSE IF (YN EQ 'YN') THEN TOPBRLASTR ELSE IF (YN EQ 'NY') THEN TOPOUTSSTR ELSE IF (YN EQ 'N0') THEN TOPOUTSSTR ELSE TOPSTORE ;
-TOPBRLASTR
PAGELAYOUT=1, NAME='Page layout 1', text='Page layout 1', TOC-LEVEL=1, BOTTOMMARGIN=0.5, TOPMARGIN=0.0, METADATA='BOTTOMMARGIN=0.5,TOPMARGIN=0.0,LEFTMARGIN=0,RIGHTMARGIN=0,', $
COMPONENT='report101', TEXT='report101', TOC-LEVEL=2, POSITION=(0.5 -0.30), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
OBJECT=IMAGE, IMAGE=BRLA_GN_only.jpg, POSITION=(3.5 1.0), DIMENSION=(5 2), $
COMPONENT='report104', TEXT='report104', TOC-LEVEL=2, POSITION=(0.520 5), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
COMPONENT='report105', TEXT='report105', TOC-LEVEL=2, POSITION=(0.62 6.95), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
COMPONENT='report106', TEXT='report106', TOC-LEVEL=2, POSITION=(0.520 10.3), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
COMPONENT='report109', TEXT='report109', TOC-LEVEL=2, POSITION=(4.78 5.7), DIMENSION=(.8 .8), METADATA='Z-INDEX: 111; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $
COMPONENT='report110', TEXT='report110', TOC-LEVEL=2, POSITION=(4.78 7.48), DIMENSION=(.8 .8), METADATA='Z-INDEX: 111; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $
OBJECT=STRING, POSITION=(2.4 .9), TEXT='Backroom Location Accuracy %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 1.58), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 3.5), DIMENSION=(.6 .8), $
OBJECT=LINE, POSITION=(.1 4.7), ENDPOINT=(8.2 4.7),BORDER=HEAVY, BORDER-COLOR=BLACK, $
OBJECT=STRING, POSITION=(3.5 5.26), TEXT='OUTS With Loc %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=STRING, POSITION=(6.1 7.1), TEXT='G:<=10,Y:10.01-18,R:>18',FONT=Arial, SIZE=10, STYLE=BOLD, COLOR=BLACK, $
OBJECT=STRING, POSITION=(6.15 8.65), TEXT='Change over last week',FONT=TIMES, SIZE=12, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 6), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 7.6), DIMENSION=(.6 .8), $
OBJECT=LINE, POSITION=(.1 10.2), ENDPOINT=(8.2 10.2),BORDER=LIGHT, BORDER-COLOR=BLACK, $
OBJECT=STRING, NAME='text1', POSITION=(0.5 9.540),LINESPACING=EXACT(.2),TEXT='<font face="ARIAL" size=10><FONT face="ARIAL " size=10><B>NOTE:The results shown above will not match those available on DTK, as custom Department-Class<BR>lists are used to more accurately reflect product in each Cooler/Freezer.</B></FONT></font>', MARKUP=ON, WRAP=OFF, DIMENSION=(6.875 0.520), METADATA='', $
-GOTO COMPRPT
-COMPRPT
-*
-SET &QCOUNT1 = 1 + 1 ;
-GOTO :START1
-:START1
-SET &R1 = 'report'||EDIT(2)||'01' ;
-SET &R2 = 'report'||EDIT(2)||'02' ;
-SET &R3 = 'report'||EDIT(2)||'03' ;
-SET &R4 = 'report'||EDIT(2)||'04' ;
-SET &R5 = 'report'||EDIT(2)||'05' ;
-SET &R6 = 'report'||EDIT(2)||'06' ;
-SET &R7 = 'report'||EDIT(2)||'07' ;
-SET &R8 = 'report'||EDIT(2)||'08' ;
-SET &R9 = 'report'||EDIT(2)||'09' ;
-SET &R10 = 'report'||EDIT(2)||'10' ;
-IF 2 LE 5 THEN OPEN1 ELSE CLOSE1;
-OPEN1
-OPEN1
-IF 2 EQ 1 THEN CHKF ELSE NOCHECK;
-NOCHECK
-*-TYPE &ALPH_BGN1
-*
-IF 2 EQ 1 THEN GOTO CHK1 ELSE IF (2 EQ 2) THEN CHK2 ELSE IF (2 EQ 3) THEN CHK3 ELSE IF (2 EQ 4) THEN CHK4 ELSE CHKEL;
-CHK2
-IF (N0 EQ 'NN') THEN NORMALSTR ELSE IF (N0 EQ 'YN') THEN TOPBRLASTR ELSE IF (N0 EQ 'NY') THEN TOPOUTSSTR ELSE IF (N0 EQ 'N0') THEN TOPOUTSSTR ELSE TOPSTORE ;
-TOPOUTSSTR
PAGELAYOUT=2, NAME='Page layout 2', text='Page layout 2', TOC-LEVEL=1, BOTTOMMARGIN=0.5, TOPMARGIN=0.0, METADATA='BOTTOMMARGIN=0.5,TOPMARGIN=0.0,LEFTMARGIN=0,RIGHTMARGIN=0,', $
COMPONENT='report201', TEXT='report201', TOC-LEVEL=2, POSITION=(0.5 -0.30), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
COMPONENT='report202', TEXT='report202', TOC-LEVEL=2, POSITION=(0.5 .61), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
COMPONENT='report203', TEXT='report203', TOC-LEVEL=2, POSITION=(0.62 2.8), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
OBJECT=IMAGE, IMAGE=BRLA_GN_only.jpg, POSITION=(3.5 6.0), DIMENSION=(5 2), $
COMPONENT='report206', TEXT='report206', TOC-LEVEL=2, POSITION=(0.520 10.3), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
COMPONENT='report207', TEXT='report207', TOC-LEVEL=2, POSITION=(4.78 1.36), DIMENSION=(.8 .8), METADATA='Z-INDEX: 2; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $
COMPONENT='report208', TEXT='report208', TOC-LEVEL=2, POSITION=(4.78 3.17), DIMENSION=(.8 .8), METADATA='Z-INDEX: 111; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $
OBJECT=STRING, POSITION=(2.4 .9), TEXT='Backroom Location Accuracy %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=STRING, POSITION=(6.1 2.9), TEXT='G:>=97.5,Y:95-97.49,R:<95',FONT=Arial, SIZE=10, STYLE=BOLD, COLOR=BLACK, $
OBJECT=STRING, POSITION=(6.15 4.45), TEXT='Change over last week',FONT=TIMES, SIZE=12, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 1.58), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 3.5), DIMENSION=(.6 .8), $
OBJECT=LINE, POSITION=(.1 4.7), ENDPOINT=(8.2 4.7),BORDER=HEAVY, BORDER-COLOR=BLACK, $
OBJECT=STRING, POSITION=(3.5 5.26), TEXT='OUTS With Loc %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 6), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 7.6), DIMENSION=(.6 .8), $
-*OBJECT=STRING, NAME='text1', TEXT='<font face="ARIAL" size=10><FONT face="ARIAL " size=10><B>NOTE: The results shown above will not match those available on DTK, as custom Department-Class <BR> lists are used to more accurately reflect product located in each Cooler/Freezer.</B></FONT></font>', POSITION=(0.832 9.275), MARKUP=ON, WRAP=ON, DIMENSION=(10 0.625), METADATA='', $
OBJECT=LINE, POSITION=(.1 10.2), ENDPOINT=(8.2 10.2),BORDER=LIGHT, BORDER-COLOR=BLACK, $
OBJECT=STRING, NAME='text1', POSITION=(0.5 9.540),LINESPACING=EXACT(.2),TEXT='<font face="ARIAL" size=10><FONT face="ARIAL " size=10><B>NOTE:The results shown above will not match those available on DTK, as custom Department-Class<BR>lists are used to more accurately reflect product in each Cooler/Freezer.</B></FONT></font>', MARKUP=ON, WRAP=OFF, DIMENSION=(6.875 0.520), METADATA='', $
-*
-GOTO COMPRPT
-COMPRPT
-*
-SET &QCOUNT1 = 2 + 1 ;
-GOTO :START1
-:START1
-SET &R1 = 'report'||EDIT(3)||'01' ;
-SET &R2 = 'report'||EDIT(3)||'02' ;
-SET &R3 = 'report'||EDIT(3)||'03' ;
-SET &R4 = 'report'||EDIT(3)||'04' ;
-SET &R5 = 'report'||EDIT(3)||'05' ;
-SET &R6 = 'report'||EDIT(3)||'06' ;
-SET &R7 = 'report'||EDIT(3)||'07' ;
-SET &R8 = 'report'||EDIT(3)||'08' ;
-SET &R9 = 'report'||EDIT(3)||'09' ;
-SET &R10 = 'report'||EDIT(3)||'10' ;
-IF 3 LE 5 THEN OPEN1 ELSE CLOSE1;
-OPEN1
-OPEN1
-IF 3 EQ 1 THEN CHKF ELSE NOCHECK;
-NOCHECK
-*-TYPE &ALPH_BGN1
-*
-IF 3 EQ 1 THEN GOTO CHK1 ELSE IF (3 EQ 2) THEN CHK2 ELSE IF (3 EQ 3) THEN CHK3 ELSE IF (3 EQ 4) THEN CHK4 ELSE CHKEL;
-CHK3
-IF (YN EQ 'NN') THEN NORMALSTR ELSE IF (YN EQ 'YN') THEN TOPBRLASTR ELSE IF (YN EQ 'NY') THEN TOPOUTSSTR ELSE IF (YN EQ 'N0') THEN TOPOUTSSTR ELSE TOPSTORE ;
-TOPBRLASTR
PAGELAYOUT=3, NAME='Page layout 3', text='Page layout 3', TOC-LEVEL=1, BOTTOMMARGIN=0.5, TOPMARGIN=0.0, METADATA='BOTTOMMARGIN=0.5,TOPMARGIN=0.0,LEFTMARGIN=0,RIGHTMARGIN=0,', $
COMPONENT='report301', TEXT='report301', TOC-LEVEL=2, POSITION=(0.5 -0.30), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
OBJECT=IMAGE, IMAGE=BRLA_GN_only.jpg, POSITION=(3.5 1.0), DIMENSION=(5 2), $
COMPONENT='report304', TEXT='report304', TOC-LEVEL=2, POSITION=(0.520 5), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
COMPONENT='report305', TEXT='report305', TOC-LEVEL=2, POSITION=(0.62 6.95), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
COMPONENT='report306', TEXT='report306', TOC-LEVEL=2, POSITION=(0.520 10.3), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
COMPONENT='report309', TEXT='report309', TOC-LEVEL=2, POSITION=(4.78 5.7), DIMENSION=(.8 .8), METADATA='Z-INDEX: 111; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $
COMPONENT='report310', TEXT='report310', TOC-LEVEL=2, POSITION=(4.78 7.48), DIMENSION=(.8 .8), METADATA='Z-INDEX: 111; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $
OBJECT=STRING, POSITION=(2.4 .9), TEXT='Backroom Location Accuracy %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 1.58), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 3.5), DIMENSION=(.6 .8), $
OBJECT=LINE, POSITION=(.1 4.7), ENDPOINT=(8.2 4.7),BORDER=HEAVY, BORDER-COLOR=BLACK, $
OBJECT=STRING, POSITION=(3.5 5.26), TEXT='OUTS With Loc %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=STRING, POSITION=(6.1 7.1), TEXT='G:<=10,Y:10.01-18,R:>18',FONT=Arial, SIZE=10, STYLE=BOLD, COLOR=BLACK, $
OBJECT=STRING, POSITION=(6.15 8.65), TEXT='Change over last week',FONT=TIMES, SIZE=12, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 6), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 7.6), DIMENSION=(.6 .8), $
OBJECT=LINE, POSITION=(.1 10.2), ENDPOINT=(8.2 10.2),BORDER=LIGHT, BORDER-COLOR=BLACK, $
OBJECT=STRING, NAME='text1', POSITION=(0.5 9.540),LINESPACING=EXACT(.2),TEXT='<font face="ARIAL" size=10><FONT face="ARIAL " size=10><B>NOTE:The results shown above will not match those available on DTK, as custom Department-Class<BR>lists are used to more accurately reflect product in each Cooler/Freezer.</B></FONT></font>', MARKUP=ON, WRAP=OFF, DIMENSION=(6.875 0.520), METADATA='', $
-GOTO COMPRPT
-COMPRPT
-*
-SET &QCOUNT1 = 3 + 1 ;
-GOTO :START1
-:START1
-SET &R1 = 'report'||EDIT(4)||'01' ;
-SET &R2 = 'report'||EDIT(4)||'02' ;
-SET &R3 = 'report'||EDIT(4)||'03' ;
-SET &R4 = 'report'||EDIT(4)||'04' ;
-SET &R5 = 'report'||EDIT(4)||'05' ;
-SET &R6 = 'report'||EDIT(4)||'06' ;
-SET &R7 = 'report'||EDIT(4)||'07' ;
-SET &R8 = 'report'||EDIT(4)||'08' ;
-SET &R9 = 'report'||EDIT(4)||'09' ;
-SET &R10 = 'report'||EDIT(4)||'10' ;
-IF 4 LE 5 THEN OPEN1 ELSE CLOSE1;
-OPEN1
-OPEN1
-IF 4 EQ 1 THEN CHKF ELSE NOCHECK;
-NOCHECK
-*-TYPE &ALPH_BGN1
-*
-IF 4 EQ 1 THEN GOTO CHK1 ELSE IF (4 EQ 2) THEN CHK2 ELSE IF (4 EQ 3) THEN CHK3 ELSE IF (4 EQ 4) THEN CHK4 ELSE CHKEL;
-CHK4
-IF (YY EQ 'NN') THEN NORMALSTR ELSE IF (YY EQ 'YN') THEN TOPBRLASTR ELSE IF (YY EQ 'NY') THEN TOPOUTSSTR ELSE IF (YY EQ 'N0') THEN TOPOUTSSTR ELSE TOPSTORE ;
-TOPSTORE
PAGELAYOUT=4, NAME='Page layout 4', text='Page layout 4', TOC-LEVEL=1, BOTTOMMARGIN=0.5, TOPMARGIN=0.0, METADATA='BOTTOMMARGIN=0.5,TOPMARGIN=0.0,LEFTMARGIN=0,RIGHTMARGIN=0,', $
COMPONENT='report401', TEXT='report401', TOC-LEVEL=2, POSITION=(0.5 -0.30), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
OBJECT=IMAGE, IMAGE=BRLA_GN_only.jpg, POSITION=(3.5 1.0), DIMENSION=(5 2), $
OBJECT=IMAGE, IMAGE=BRLA_GN_only.jpg, POSITION=(3.5 6.0), DIMENSION=(5 2), $
COMPONENT='report406', TEXT='report406', TOC-LEVEL=2, POSITION=(0.520 10.3), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
OBJECT=STRING, POSITION=(2.4 .9), TEXT='Backroom Location Accuracy %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 1.58), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 3.5), DIMENSION=(.6 .8), $
OBJECT=LINE, POSITION=(.1 4.7), ENDPOINT=(8.2 4.7),BORDER=HEAVY, BORDER-COLOR=BLACK, $
OBJECT=STRING, POSITION=(3.5 5.26), TEXT='OUTS With Loc %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 6), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 7.6), DIMENSION=(.6 .8), $
-*OBJECT=STRING, NAME='text1', TEXT='<font face="ARIAL" size=10><FONT face="ARIAL " size=10><B>NOTE: The results shown above will not match those available on DTK, as custom Department-Class <BR> lists are used to more accurately reflect product located in each Cooler/Freezer.</B></FONT></font>', POSITION=(0.832 9.275), MARKUP=ON, WRAP=ON, DIMENSION=(10 0.625), METADATA='', $
OBJECT=LINE, POSITION=(.1 10.2), ENDPOINT=(8.2 10.2),BORDER=LIGHT, BORDER-COLOR=BLACK, $
OBJECT=STRING, NAME='text1', POSITION=(0.5 9.540),LINESPACING=EXACT(.2),TEXT='<font face="ARIAL" size=10><FONT face="ARIAL " size=10><B>NOTE:The results shown above will not match those available on DTK, as custom Department-Class<BR>lists are used to more accurately reflect product in each Cooler/Freezer.</B></FONT></font>', MARKUP=ON, WRAP=OFF, DIMENSION=(6.875 0.520), METADATA='', $
-*
-COMPRPT
-*
-SET &QCOUNT1 = 4 + 1 ;
-GOTO :START1
-:START1
-SET &R1 = 'report'||EDIT(5)||'01' ;
-SET &R2 = 'report'||EDIT(5)||'02' ;
-SET &R3 = 'report'||EDIT(5)||'03' ;
-SET &R4 = 'report'||EDIT(5)||'04' ;
-SET &R5 = 'report'||EDIT(5)||'05' ;
-SET &R6 = 'report'||EDIT(5)||'06' ;
-SET &R7 = 'report'||EDIT(5)||'07' ;
-SET &R8 = 'report'||EDIT(5)||'08' ;
-SET &R9 = 'report'||EDIT(5)||'09' ;
-SET &R10 = 'report'||EDIT(5)||'10' ;
-IF 5 LE 5 THEN OPEN1 ELSE CLOSE1;
-OPEN1
-OPEN1
-IF 5 EQ 1 THEN CHKF ELSE NOCHECK;
-NOCHECK
-*-TYPE &ALPH_BGN1
-*
-IF 5 EQ 1 THEN GOTO CHK1 ELSE IF (5 EQ 2) THEN CHK2 ELSE IF (5 EQ 3) THEN CHK3 ELSE IF (5 EQ 4) THEN CHK4 ELSE CHKEL;
-CHKEL
-IF (NY EQ 'NN') THEN NORMALSTR ELSE IF (NY EQ 'YN') THEN TOPBRLASTR ELSE IF (NY EQ 'NY') THEN TOPOUTSSTR ELSE IF (NY EQ 'N0') THEN TOPOUTSSTR ELSE TOPSTORE ;
-TOPOUTSSTR
PAGELAYOUT=5, NAME='Page layout 5', text='Page layout 5', TOC-LEVEL=1, BOTTOMMARGIN=0.5, TOPMARGIN=0.0, METADATA='BOTTOMMARGIN=0.5,TOPMARGIN=0.0,LEFTMARGIN=0,RIGHTMARGIN=0,', $
COMPONENT='report501', TEXT='report501', TOC-LEVEL=2, POSITION=(0.5 -0.30), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
COMPONENT='report502', TEXT='report502', TOC-LEVEL=2, POSITION=(0.5 .61), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
COMPONENT='report503', TEXT='report503', TOC-LEVEL=2, POSITION=(0.62 2.8), DIMENSION=(10.7 2.083), METADATA='Z-INDEX: 1; LEFT: 0.52in; WIDTH: 10.7in; POSITION: absolute; TOP: 0.13in; HEIGHT: 1.872in', $
OBJECT=IMAGE, IMAGE=BRLA_GN_only.jpg, POSITION=(3.5 6.0), DIMENSION=(5 2), $
COMPONENT='report506', TEXT='report506', TOC-LEVEL=2, POSITION=(0.520 10.3), DIMENSION=(8 8), METADATA='Z-INDEX: 2; LEFT: 0.52in; WIDTH:8; POSITION: absolute; TOP:0.3in; HEIGHT: 2.083in', $
COMPONENT='report507', TEXT='report507', TOC-LEVEL=2, POSITION=(4.78 1.36), DIMENSION=(.8 .8), METADATA='Z-INDEX: 2; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $
COMPONENT='report508', TEXT='report508', TOC-LEVEL=2, POSITION=(4.78 3.17), DIMENSION=(.8 .8), METADATA='Z-INDEX: 111; LEFT: 9.2in; WIDTH:.8in; POSITION: absolute; TOP: 3.85in; HEIGHT: .8in', $
OBJECT=STRING, POSITION=(2.4 .9), TEXT='Backroom Location Accuracy %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=STRING, POSITION=(6.1 2.9), TEXT='G:>=97.5,Y:95-97.49,R:<95',FONT=Arial, SIZE=10, STYLE=BOLD, COLOR=BLACK, $
OBJECT=STRING, POSITION=(6.15 4.45), TEXT='Change over last week',FONT=TIMES, SIZE=12, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 1.58), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 3.5), DIMENSION=(.6 .8), $
OBJECT=LINE, POSITION=(.1 4.7), ENDPOINT=(8.2 4.7),BORDER=HEAVY, BORDER-COLOR=BLACK, $
OBJECT=STRING, POSITION=(3.5 5.26), TEXT='OUTS With Loc %',FONT=Arial, SIZE=18, STYLE=BOLD, COLOR=BLACK, $
OBJECT=IMAGE, IMAGE=score.gif, POSITION=(.17 6), DIMENSION=(.41 .66), $
OBJECT=IMAGE, IMAGE=group_rank.gif, POSITION=(.12 7.6), DIMENSION=(.6 .8), $
-*OBJECT=STRING, NAME='text1', TEXT='<font face="ARIAL" size=10><FONT face="ARIAL " size=10><B>NOTE: The results shown above will not match those available on DTK, as custom Department-Class <BR> lists are used to more accurately reflect product located in each Cooler/Freezer.</B></FONT></font>', POSITION=(0.832 9.275), MARKUP=ON, WRAP=ON, DIMENSION=(10 0.625), METADATA='', $
OBJECT=LINE, POSITION=(.1 10.2), ENDPOINT=(8.2 10.2),BORDER=LIGHT, BORDER-COLOR=BLACK, $
OBJECT=STRING, NAME='text1', POSITION=(0.5 9.540),LINESPACING=EXACT(.2),TEXT='<font face="ARIAL" size=10><FONT face="ARIAL " size=10><B>NOTE:The results shown above will not match those available on DTK, as custom Department-Class<BR>lists are used to more accurately reflect product in each Cooler/Freezer.</B></FONT></font>', MARKUP=ON, WRAP=OFF, DIMENSION=(6.875 0.520), METADATA='', $
-*
-GOTO COMPRPT
-COMPRPT
-*
-SET &QCOUNT1 = 5 + 1 ;
-GOTO :START1
-:START1
-SET &R1 = 'report'||EDIT(6)||'01' ;
-SET &R2 = 'report'||EDIT(6)||'02' ;
-SET &R3 = 'report'||EDIT(6)||'03' ;
-SET &R4 = 'report'||EDIT(6)||'04' ;
-SET &R5 = 'report'||EDIT(6)||'05' ;
-SET &R6 = 'report'||EDIT(6)||'06' ;
-SET &R7 = 'report'||EDIT(6)||'07' ;
-SET &R8 = 'report'||EDIT(6)||'08' ;
-SET &R9 = 'report'||EDIT(6)||'09' ;
-SET &R10 = 'report'||EDIT(6)||'10' ;
-IF 6 LE 5 THEN OPEN1 ELSE CLOSE1;
-CLOSE1
END
-:END_LOOP
-TYPE 'AFTER LOOP' YN
'AFTER LOOP' YN
-*-IF (&ALPH_BGN EQ 'Y' AND &ALPH_OGN EQ 'N') THEN LOOP456 ELSE SKP456;
-*-IF &QCOUNT1 EQ 1 THEN GOTO CHK1 ELSE IF (&QCOUNT1 EQ 2) THEN CHK2 ELSE IF (&QCOUNT1 EQ 3) THEN CHK3 ELSE IF (&QCOUNT1 EQ 4) THEN CHK4 ELSE CHKEL;
-*-CHK1
-*-IF (&ALPH_BGN1 EQ 'NN') THEN SKP456 ELSE IF (&ALPH_BGN1 EQ 'YN') THEN LOOP456 ELSE IF (&ALPH_BGN1 EQ 'NY') THEN LOOPOSTR ELSE IF (&ALPH_BGN1 EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-*-GOTO CHKEND1
-*
-*-IF (&ALPH_BGN2 EQ 'NN') THEN SKP456 ELSE IF (&ALPH_BGN2 EQ 'YN') THEN LOOP456 ELSE IF (&ALPH_BGN2 EQ 'NY') THEN LOOPOSTR ELSE IF (&ALPH_BGN2 EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-*-GOTO CHKEND1
-*
-*-IF (&ALPH_BGN3 EQ 'NN') THEN SKP456 ELSE IF (&ALPH_BGN3 EQ 'YN') THEN LOOP456 ELSE IF (&ALPH_BGN3 EQ 'NY') THEN LOOPOSTR ELSE IF (&ALPH_BGN3 EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-*-GOTO CHKEND1
-*
-*
-*-IF (&ALPH_BGN4 EQ 'NN') THEN SKP456 ELSE IF (&ALPH_BGN4 EQ 'YN') THEN LOOP456 ELSE IF (&ALPH_BGN4 EQ 'NY') THEN LOOPOSTR ELSE IF (&ALPH_BGN4 EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-*-GOTO CHKEND1
-*
-*
-*
-*-IF (&ALPH_BGN5 EQ 'NN') THEN SKP456 ELSE IF (&ALPH_BGN5 EQ 'YN') THEN LOOP456 ELSE IF (&ALPH_BGN5 EQ 'NY') THEN LOOPOSTR ELSE IF (&ALPH_BGN5 EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-*-GOTO CHKEND1
-*
-*-CHKEND
-SET &BCOUNT=1;
-CHKAGAIN
-IF 1 LE 5 THEN OPEN0 ELSE CLOSE0;
-OPEN0
-IF 1 EQ 1 THEN GOTO CHK10 ELSE IF (1 EQ 2) THEN CHK20 ELSE IF (1 EQ 3) THEN CHK30 ELSE IF (1 EQ 4) THEN CHK40 ELSE CHKEL0;
-CHK10
-SET &ALPH_DIV='Meat (210/268/226) ';
-IF (YN EQ 'NN') THEN SKP456 ELSE IF (YN EQ 'YN') THEN LOOP456 ELSE IF (YN EQ 'NY') THEN LOOPOSTR ELSE IF (YN EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-LOOP456
-SET &R1 = 'report'||EDIT(1)||'01' ;
SET COMPONENT='report101'
-*component_type report
TABLE FILE HLD_BRLA
PRINT
STR_NUM NOPRINT
HEADING
"Grocery Accuracy Report - Meat (210/268/226) "
WHERE RECORDLIMIT EQ 1
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=24,
COLOR='BLACK',
STYLE=NORMAL,
BOTTOMGAP=0.1,
$
TYPE=HEADING,
LINE=1,
SIZE=24,
COLOR='WHITE',
BACKCOLOR='BLACK',
STYLE=BOLD,
JUSTIFY=CENTER,
$
ENDSTYLE
END
-SET &R4 = 'report'||EDIT(1)||'04' ;
SET COMPONENT='report104'
-*component_type report
TABLE FILE HLD_OUTS
PRINT
G_BRLA AS ''
COMPUTE Trend/A1 = '';
RYG AS 'R/Y/G'
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ 'Meat (210/268/226) '
ON TABLE SET BYPANEL ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
LEFTMARGIN=0.500000,
RIGHTMARGIN=0.500000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N2,
COLOR='WHITE',
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=18,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
COLUMN=N1,
SIZE=8,
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=1.333333,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=2.055556,
$
ENDSTYLE
END
-SET &R5 = 'report'||EDIT(1)||'05' ;
SET COMPONENT='report105'
-*component_type report
TABLE FILE HLD_OUTS
PRINT
OTPT_RNK AS ''
COMPUTE Trend/A1 = '';
RCH3 AS ''
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ 'Meat (210/268/226) '
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=2,
COLOR='WHITE',
BACKCOLOR='WHITE',
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=2.0,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=1.3,COLOR='WHITE',
$
ENDSTYLE
END
-******************************************************************REPORT FOR CREATING FOOTER*************************************************************
-SET &R6 = 'report'||EDIT(1)||'06' ;
SET COMPONENT='report106'
TABLE FILE HLD_BRLA
PRINT STR_NUM NOPRINT
HEADING
"Location: 3 <+0> Last week - 07/02/2011"
""
"*This report is updated on Wednesday of each week"
WHERE DIVISION EQ 'Meat (210/268/226) '
-*WHERE STORE_NUM EQ '&INPT_STR'
-*WHERE WEND EQ '&INPT_DATE'
WHERE RECORDLIMIT EQ 1
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN, PAGESIZE=A4, SQUEEZE=OFF, ORIENTATION=PORTRAIT,
LEFTMARGIN=0.000000, RIGHTMARGIN=0.010000, TOPMARGIN=0.00000, BOTTOMMARGIN=0.000000,
$
TYPE=HEADING,LINE=1,ITEM=1,JUSTIFY='LEFT',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=4.3,
$
TYPE=HEADING,LINE=1,ITEM=2,JUSTIFY='CENTER',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=3.3,
$
TYPE=HEADING,LINE=3,FONT='ARIAL',SIZE=10,
$
$
ENDSTYLE
END
-SET &R9 = 'report'||EDIT(1)||'09' ;
SET COMPONENT='report109'
DEFINE FILE HLD_OUTS
LOGO/A500=IF SCORETREND EQ '+' THEN 'UP.jpg' ELSE
IF SCORETREND EQ '-' THEN 'Down.jpg' ELSE ' ';
END
TABLE FILE HLD_OUTS
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ 'Meat (210/268/226) '
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-*************************************************************REPORT FOR CREATING ARROW IN SECOND REPORT***********************************************************
-SET &R10 = 'report'||EDIT(1)||'10' ;
SET COMPONENT='report110'
DEFINE FILE HLD_OUTS
LOGO/A500=IF RANKTREND EQ '+' THEN 'UP.jpg' ELSE
IF RANKTREND EQ '-' THEN 'Down.jpg' ELSE '';
END
TABLE FILE HLD_OUTS
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ 'Meat (210/268/226) '
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-SET &BCOUNT = 1 + 1 ;
-GOTO CHKAGAIN
-CHKAGAIN
-IF 2 LE 5 THEN OPEN0 ELSE CLOSE0;
-OPEN0
-IF 2 EQ 1 THEN GOTO CHK10 ELSE IF (2 EQ 2) THEN CHK20 ELSE IF (2 EQ 3) THEN CHK30 ELSE IF (2 EQ 4) THEN CHK40 ELSE CHKEL0;
-CHK20
-SET &ALPH_DIV='Produce (211/224/266/267)' ;
-IF (YN EQ 'NN') THEN SKP456 ELSE IF (YN EQ 'YN') THEN LOOP456 ELSE IF (YN EQ 'NY') THEN LOOPOSTR ELSE IF (YN EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-LOOP456
-SET &R1 = 'report'||EDIT(2)||'01' ;
SET COMPONENT='report201'
-*component_type report
TABLE FILE HLD_BRLA
PRINT
STR_NUM NOPRINT
HEADING
"Grocery Accuracy Report - Produce (211/224/266/267)"
WHERE RECORDLIMIT EQ 1
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=24,
COLOR='BLACK',
STYLE=NORMAL,
BOTTOMGAP=0.1,
$
TYPE=HEADING,
LINE=1,
SIZE=24,
COLOR='WHITE',
BACKCOLOR='BLACK',
STYLE=BOLD,
JUSTIFY=CENTER,
$
ENDSTYLE
END
-SET &R4 = 'report'||EDIT(2)||'04' ;
SET COMPONENT='report204'
-*component_type report
TABLE FILE HLD_OUTS
PRINT
G_BRLA AS ''
COMPUTE Trend/A1 = '';
RYG AS 'R/Y/G'
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ 'Produce (211/224/266/267)'
ON TABLE SET BYPANEL ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
LEFTMARGIN=0.500000,
RIGHTMARGIN=0.500000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N2,
COLOR='WHITE',
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=18,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
COLUMN=N1,
SIZE=8,
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=1.333333,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=2.055556,
$
ENDSTYLE
END
-SET &R5 = 'report'||EDIT(2)||'05' ;
SET COMPONENT='report205'
-*component_type report
TABLE FILE HLD_OUTS
PRINT
OTPT_RNK AS ''
COMPUTE Trend/A1 = '';
RCH3 AS ''
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ 'Produce (211/224/266/267)'
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=2,
COLOR='WHITE',
BACKCOLOR='WHITE',
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=2.0,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=1.3,COLOR='WHITE',
$
ENDSTYLE
END
-******************************************************************REPORT FOR CREATING FOOTER*************************************************************
-SET &R6 = 'report'||EDIT(2)||'06' ;
SET COMPONENT='report206'
TABLE FILE HLD_BRLA
PRINT STR_NUM NOPRINT
HEADING
"Location: 3 <+0> Last week - 07/02/2011"
""
"*This report is updated on Wednesday of each week"
WHERE DIVISION EQ 'Produce (211/224/266/267)'
-*WHERE STORE_NUM EQ '&INPT_STR'
-*WHERE WEND EQ '&INPT_DATE'
WHERE RECORDLIMIT EQ 1
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN, PAGESIZE=A4, SQUEEZE=OFF, ORIENTATION=PORTRAIT,
LEFTMARGIN=0.000000, RIGHTMARGIN=0.010000, TOPMARGIN=0.00000, BOTTOMMARGIN=0.000000,
$
TYPE=HEADING,LINE=1,ITEM=1,JUSTIFY='LEFT',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=4.3,
$
TYPE=HEADING,LINE=1,ITEM=2,JUSTIFY='CENTER',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=3.3,
$
TYPE=HEADING,LINE=3,FONT='ARIAL',SIZE=10,
$
$
ENDSTYLE
END
-SET &R9 = 'report'||EDIT(2)||'09' ;
SET COMPONENT='report209'
DEFINE FILE HLD_OUTS
LOGO/A500=IF SCORETREND EQ '+' THEN 'UP.jpg' ELSE
IF SCORETREND EQ '-' THEN 'Down.jpg' ELSE ' ';
END
TABLE FILE HLD_OUTS
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ 'Produce (211/224/266/267)'
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-*************************************************************REPORT FOR CREATING ARROW IN SECOND REPORT***********************************************************
-SET &R10 = 'report'||EDIT(2)||'10' ;
SET COMPONENT='report210'
DEFINE FILE HLD_OUTS
LOGO/A500=IF RANKTREND EQ '+' THEN 'UP.jpg' ELSE
IF RANKTREND EQ '-' THEN 'Down.jpg' ELSE '';
END
TABLE FILE HLD_OUTS
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ 'Produce (211/224/266/267)'
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-SET &BCOUNT = 2 + 1 ;
-GOTO CHKAGAIN
-CHKAGAIN
-IF 3 LE 5 THEN OPEN0 ELSE CLOSE0;
-OPEN0
-IF 3 EQ 1 THEN GOTO CHK10 ELSE IF (3 EQ 2) THEN CHK20 ELSE IF (3 EQ 3) THEN CHK30 ELSE IF (3 EQ 4) THEN CHK40 ELSE CHKEL0;
-CHK30
-SET &ALPH_DIV='Dairy (284)' ;
-IF (YN EQ 'NN') THEN SKP456 ELSE IF (YN EQ 'YN') THEN LOOP456 ELSE IF (YN EQ 'NY') THEN LOOPOSTR ELSE IF (YN EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-LOOP456
-SET &R1 = 'report'||EDIT(3)||'01' ;
SET COMPONENT='report301'
-*component_type report
TABLE FILE HLD_BRLA
PRINT
STR_NUM NOPRINT
HEADING
"Grocery Accuracy Report - Dairy (284)"
WHERE RECORDLIMIT EQ 1
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=24,
COLOR='BLACK',
STYLE=NORMAL,
BOTTOMGAP=0.1,
$
TYPE=HEADING,
LINE=1,
SIZE=24,
COLOR='WHITE',
BACKCOLOR='BLACK',
STYLE=BOLD,
JUSTIFY=CENTER,
$
ENDSTYLE
END
-SET &R4 = 'report'||EDIT(3)||'04' ;
SET COMPONENT='report304'
-*component_type report
TABLE FILE HLD_OUTS
PRINT
G_BRLA AS ''
COMPUTE Trend/A1 = '';
RYG AS 'R/Y/G'
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ 'Dairy (284)'
ON TABLE SET BYPANEL ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
LEFTMARGIN=0.500000,
RIGHTMARGIN=0.500000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N2,
COLOR='WHITE',
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=18,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
COLUMN=N1,
SIZE=8,
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=1.333333,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=2.055556,
$
ENDSTYLE
END
-SET &R5 = 'report'||EDIT(3)||'05' ;
SET COMPONENT='report305'
-*component_type report
TABLE FILE HLD_OUTS
PRINT
OTPT_RNK AS ''
COMPUTE Trend/A1 = '';
RCH3 AS ''
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ 'Dairy (284)'
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=2,
COLOR='WHITE',
BACKCOLOR='WHITE',
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=2.0,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=1.3,COLOR='WHITE',
$
ENDSTYLE
END
-******************************************************************REPORT FOR CREATING FOOTER*************************************************************
-SET &R6 = 'report'||EDIT(3)||'06' ;
SET COMPONENT='report306'
TABLE FILE HLD_BRLA
PRINT STR_NUM NOPRINT
HEADING
"Location: 3 <+0> Last week - 07/02/2011"
""
"*This report is updated on Wednesday of each week"
WHERE DIVISION EQ 'Dairy (284)'
-*WHERE STORE_NUM EQ '&INPT_STR'
-*WHERE WEND EQ '&INPT_DATE'
WHERE RECORDLIMIT EQ 1
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN, PAGESIZE=A4, SQUEEZE=OFF, ORIENTATION=PORTRAIT,
LEFTMARGIN=0.000000, RIGHTMARGIN=0.010000, TOPMARGIN=0.00000, BOTTOMMARGIN=0.000000,
$
TYPE=HEADING,LINE=1,ITEM=1,JUSTIFY='LEFT',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=4.3,
$
TYPE=HEADING,LINE=1,ITEM=2,JUSTIFY='CENTER',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=3.3,
$
TYPE=HEADING,LINE=3,FONT='ARIAL',SIZE=10,
$
$
ENDSTYLE
END
-SET &R9 = 'report'||EDIT(3)||'09' ;
SET COMPONENT='report309'
DEFINE FILE HLD_OUTS
LOGO/A500=IF SCORETREND EQ '+' THEN 'UP.jpg' ELSE
IF SCORETREND EQ '-' THEN 'Down.jpg' ELSE ' ';
END
TABLE FILE HLD_OUTS
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ 'Dairy (284)'
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-*************************************************************REPORT FOR CREATING ARROW IN SECOND REPORT***********************************************************
-SET &R10 = 'report'||EDIT(3)||'10' ;
SET COMPONENT='report310'
DEFINE FILE HLD_OUTS
LOGO/A500=IF RANKTREND EQ '+' THEN 'UP.jpg' ELSE
IF RANKTREND EQ '-' THEN 'Down.jpg' ELSE '';
END
TABLE FILE HLD_OUTS
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ 'Dairy (284)'
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-SET &BCOUNT = 3 + 1 ;
-GOTO CHKAGAIN
-CHKAGAIN
-IF 4 LE 5 THEN OPEN0 ELSE CLOSE0;
-OPEN0
-IF 4 EQ 1 THEN GOTO CHK10 ELSE IF (4 EQ 2) THEN CHK20 ELSE IF (4 EQ 3) THEN CHK30 ELSE IF (4 EQ 4) THEN CHK40 ELSE CHKEL0;
-CHK40
-SET &ALPH_DIV='Frozen (270)';
-IF (YN EQ 'NN') THEN SKP456 ELSE IF (YN EQ 'YN') THEN LOOP456 ELSE IF (YN EQ 'NY') THEN LOOPOSTR ELSE IF (YN EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-LOOP456
-SET &R1 = 'report'||EDIT(4)||'01' ;
SET COMPONENT='report401'
-*component_type report
TABLE FILE HLD_BRLA
PRINT
STR_NUM NOPRINT
HEADING
"Grocery Accuracy Report - Frozen (270)"
WHERE RECORDLIMIT EQ 1
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=24,
COLOR='BLACK',
STYLE=NORMAL,
BOTTOMGAP=0.1,
$
TYPE=HEADING,
LINE=1,
SIZE=24,
COLOR='WHITE',
BACKCOLOR='BLACK',
STYLE=BOLD,
JUSTIFY=CENTER,
$
ENDSTYLE
END
-SET &R4 = 'report'||EDIT(4)||'04' ;
SET COMPONENT='report404'
-*component_type report
TABLE FILE HLD_OUTS
PRINT
G_BRLA AS ''
COMPUTE Trend/A1 = '';
RYG AS 'R/Y/G'
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ 'Frozen (270)'
ON TABLE SET BYPANEL ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
LEFTMARGIN=0.500000,
RIGHTMARGIN=0.500000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N2,
COLOR='WHITE',
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=18,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
COLUMN=N1,
SIZE=8,
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=1.333333,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=2.055556,
$
ENDSTYLE
END
-SET &R5 = 'report'||EDIT(4)||'05' ;
SET COMPONENT='report405'
-*component_type report
TABLE FILE HLD_OUTS
PRINT
OTPT_RNK AS ''
COMPUTE Trend/A1 = '';
RCH3 AS ''
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ 'Frozen (270)'
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=2,
COLOR='WHITE',
BACKCOLOR='WHITE',
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=2.0,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=1.3,COLOR='WHITE',
$
ENDSTYLE
END
-******************************************************************REPORT FOR CREATING FOOTER*************************************************************
-SET &R6 = 'report'||EDIT(4)||'06' ;
SET COMPONENT='report406'
TABLE FILE HLD_BRLA
PRINT STR_NUM NOPRINT
HEADING
"Location: 3 <+0> Last week - 07/02/2011"
""
"*This report is updated on Wednesday of each week"
WHERE DIVISION EQ 'Frozen (270)'
-*WHERE STORE_NUM EQ '&INPT_STR'
-*WHERE WEND EQ '&INPT_DATE'
WHERE RECORDLIMIT EQ 1
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN, PAGESIZE=A4, SQUEEZE=OFF, ORIENTATION=PORTRAIT,
LEFTMARGIN=0.000000, RIGHTMARGIN=0.010000, TOPMARGIN=0.00000, BOTTOMMARGIN=0.000000,
$
TYPE=HEADING,LINE=1,ITEM=1,JUSTIFY='LEFT',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=4.3,
$
TYPE=HEADING,LINE=1,ITEM=2,JUSTIFY='CENTER',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=3.3,
$
TYPE=HEADING,LINE=3,FONT='ARIAL',SIZE=10,
$
$
ENDSTYLE
END
-SET &R9 = 'report'||EDIT(4)||'09' ;
SET COMPONENT='report409'
DEFINE FILE HLD_OUTS
LOGO/A500=IF SCORETREND EQ '+' THEN 'UP.jpg' ELSE
IF SCORETREND EQ '-' THEN 'Down.jpg' ELSE ' ';
END
TABLE FILE HLD_OUTS
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ 'Frozen (270)'
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-*************************************************************REPORT FOR CREATING ARROW IN SECOND REPORT***********************************************************
-SET &R10 = 'report'||EDIT(4)||'10' ;
SET COMPONENT='report410'
DEFINE FILE HLD_OUTS
LOGO/A500=IF RANKTREND EQ '+' THEN 'UP.jpg' ELSE
IF RANKTREND EQ '-' THEN 'Down.jpg' ELSE '';
END
TABLE FILE HLD_OUTS
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ 'Frozen (270)'
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-SET &BCOUNT = 4 + 1 ;
-GOTO CHKAGAIN
-CHKAGAIN
-IF 5 LE 5 THEN OPEN0 ELSE CLOSE0;
-OPEN0
-IF 5 EQ 1 THEN GOTO CHK10 ELSE IF (5 EQ 2) THEN CHK20 ELSE IF (5 EQ 3) THEN CHK30 ELSE IF (5 EQ 4) THEN CHK40 ELSE CHKEL0;
-CHKEL0
-SET &ALPH_DIV='Frozen (288)';
-IF (YN EQ 'NN') THEN SKP456 ELSE IF (YN EQ 'YN') THEN LOOP456 ELSE IF (YN EQ 'NY') THEN LOOPOSTR ELSE IF (YN EQ 'N0') THEN LOOPOSTR ELSE LOOPTS ;
-LOOP456
-SET &R1 = 'report'||EDIT(5)||'01' ;
SET COMPONENT='report501'
-*component_type report
TABLE FILE HLD_BRLA
PRINT
STR_NUM NOPRINT
HEADING
"Grocery Accuracy Report - Frozen (288)"
WHERE RECORDLIMIT EQ 1
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=24,
COLOR='BLACK',
STYLE=NORMAL,
BOTTOMGAP=0.1,
$
TYPE=HEADING,
LINE=1,
SIZE=24,
COLOR='WHITE',
BACKCOLOR='BLACK',
STYLE=BOLD,
JUSTIFY=CENTER,
$
ENDSTYLE
END
-SET &R4 = 'report'||EDIT(5)||'04' ;
SET COMPONENT='report504'
-*component_type report
TABLE FILE HLD_OUTS
PRINT
G_BRLA AS ''
COMPUTE Trend/A1 = '';
RYG AS 'R/Y/G'
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ 'Frozen (288)'
ON TABLE SET BYPANEL ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
LEFTMARGIN=0.500000,
RIGHTMARGIN=0.500000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N2,
COLOR='WHITE',
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=18,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
COLUMN=N1,
SIZE=8,
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=1.333333,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=2.055556,
$
ENDSTYLE
END
-SET &R5 = 'report'||EDIT(5)||'05' ;
SET COMPONENT='report505'
-*component_type report
TABLE FILE HLD_OUTS
PRINT
OTPT_RNK AS ''
COMPUTE Trend/A1 = '';
RCH3 AS ''
-*WHERE STORE_NUM EQ '&INPT_STR';
-*WHERE WEND EQ '&INPT_DATE';
WHERE DIVISION EQ 'Frozen (288)'
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='A4',
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
FONT='ARIAL',
SIZE=10,
STYLE=BOLD,
WRAP=0.500000,
JUSTIFY=CENTER,
$
TYPE=DATA,
SIZE=8,
$
TYPE=DATA,
COLUMN=N1,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=DATA,
COLUMN=N3,
SIZE=66,
COLOR='BLACK',
BACKCOLOR='WHITE',
$
TYPE=TITLE,
BORDER-BOTTOM=LIGHT,
BORDER-TOP-STYLE=NONE,
BORDER-BOTTOM-STYLE=NONE,
BORDER-LEFT-STYLE=NONE,
BORDER-RIGHT-STYLE=NONE,
BORDER-BOTTOM-COLOR='WHITE',
SIZE=2,
COLOR='WHITE',
BACKCOLOR='WHITE',
$
TYPE=REPORT,
COLUMN=N1,
WRAP=3.375000,
$
TYPE=REPORT,
COLUMN=N3,
WRAP=2.0,
$
TYPE=REPORT,
COLUMN=N2,
WRAP=1.3,COLOR='WHITE',
$
ENDSTYLE
END
-******************************************************************REPORT FOR CREATING FOOTER*************************************************************
-SET &R6 = 'report'||EDIT(5)||'06' ;
SET COMPONENT='report506'
TABLE FILE HLD_BRLA
PRINT STR_NUM NOPRINT
HEADING
"Location: 3 <+0> Last week - 07/02/2011"
""
"*This report is updated on Wednesday of each week"
WHERE DIVISION EQ 'Frozen (288)'
-*WHERE STORE_NUM EQ '&INPT_STR'
-*WHERE WEND EQ '&INPT_DATE'
WHERE RECORDLIMIT EQ 1
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN, PAGESIZE=A4, SQUEEZE=OFF, ORIENTATION=PORTRAIT,
LEFTMARGIN=0.000000, RIGHTMARGIN=0.010000, TOPMARGIN=0.00000, BOTTOMMARGIN=0.000000,
$
TYPE=HEADING,LINE=1,ITEM=1,JUSTIFY='LEFT',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=4.3,
$
TYPE=HEADING,LINE=1,ITEM=2,JUSTIFY='CENTER',FONT='ARIAL',SIZE=22,STYLE='BOLD',WRAP=3.3,
$
TYPE=HEADING,LINE=3,FONT='ARIAL',SIZE=10,
$
$
ENDSTYLE
END
-SET &R9 = 'report'||EDIT(5)||'09' ;
SET COMPONENT='report509'
DEFINE FILE HLD_OUTS
LOGO/A500=IF SCORETREND EQ '+' THEN 'UP.jpg' ELSE
IF SCORETREND EQ '-' THEN 'Down.jpg' ELSE ' ';
END
TABLE FILE HLD_OUTS
PRINT
STR_NUM NOPRINT
LOGO AS ''
WHERE DIVISION EQ 'Frozen (288)'
ON TABLE SET HTMLCSS ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=10,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
$
TYPE=DATA, COLUMN=N2, IMAGE=(LOGO),SIZE=(.8 .8),$
ENDSTYLE
END
-*************************************************************REPORT FOR CREATING ARROW IN SECOND REPORT***********************************************************
-SET &R10 = 'report
WebFOCUS 7.6.9 Windows Excel, HTML, PDF
July 25, 2011, 12:04 PM
Jan1
error is :
(FOC3303) Compound report COMPONENT out of order (FOC3296) Error found in Coordinated Compound Report: At Component report204 Compound Report is TERMINATING.....
WebFOCUS 7.6.9 Windows Excel, HTML, PDF
July 25, 2011, 03:21 PM
j.gross
There are problems with your conditional-execution logic. -- In the echoed code, compare your component declarations in the page layouts to your component references.
COMPOUND LAYOUT PCHOLD FORMAT PDF SECTION=section1, LAYOUT=ON, METADATA='0.5^0.5^0.5^0.5', MERGE=OFF, ORIENTATION=PORTRAIT, PAGESIZE=A4, $
SET COMPONENT='report101' SET COMPONENT='report104' SET COMPONENT='report105' SET COMPONENT='report106' SET COMPONENT='report109' SET COMPONENT='report110'
SET COMPONENT='report201' SET COMPONENT='report204' <--- SET COMPONENT='report205' SET COMPONENT='report206' SET COMPONENT='report209' SET COMPONENT='report210'
SET COMPONENT='report301' SET COMPONENT='report304' SET COMPONENT='report305' SET COMPONENT='report306' SET COMPONENT='report309' SET COMPONENT='report310'
SET COMPONENT='report401' SET COMPONENT='report404' SET COMPONENT='report405' SET COMPONENT='report406' SET COMPONENT='report409' SET COMPONENT='report410'
SET COMPONENT='report501' SET COMPONENT='report504' SET COMPONENT='report505' SET COMPONENT='report506' SET COMPONENT='report509'
(Kedit macros rock!)This message has been edited. Last edited by: j.gross,