[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, WR
This message has been edited. Last edited by: Kerry, 

WebFOCUS 7.6.9
Windows
Excel, HTML, PDF

Posts: 71 | Registered: April 17, 2009

Jan1

Gold member

posted

Hide Post

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

Posts: 71 | Registered: April 17, 2009

Ignored post by Jan1 posted

Show Post

Jan1

Gold member

posted

Hide Post

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

Posts: 71 | Registered: April 17, 2009

Ignored post by Jan1 posted

Show Post

j.gross

Virtuoso

posted

Hide Post

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, $

PAGELAYOUT=1, NAME='Page layout 1', text='Page layout 1', TOC-LEVEL=1, ... , $
COMPONENT='report101', TEXT='report101', TOC-LEVEL=2, ... ,$
COMPONENT='report104', TEXT='report104', TOC-LEVEL=2, ... ,$
COMPONENT='report105', TEXT='report105', TOC-LEVEL=2, ... ,$
COMPONENT='report106', TEXT='report106', TOC-LEVEL=2, ... ,$
COMPONENT='report109', TEXT='report109', TOC-LEVEL=2, ... ,$
COMPONENT='report110', TEXT='report110', TOC-LEVEL=2, ... ,$

PAGELAYOUT=2, NAME='Page layout 2', text='Page layout 2', TOC-LEVEL=1, ... , $
COMPONENT='report201', TEXT='report201', TOC-LEVEL=2, ... ,$
COMPONENT='report202', TEXT='report202', TOC-LEVEL=2, ... ,$
COMPONENT='report203', TEXT='report203', TOC-LEVEL=2, ... ,$ <---
COMPONENT='report206', TEXT='report206', TOC-LEVEL=2, ... ,$ <---
COMPONENT='report207', TEXT='report207', TOC-LEVEL=2, ... ,$
COMPONENT='report208', TEXT='report208', TOC-LEVEL=2, ... ,$

PAGELAYOUT=3, NAME='Page layout 3', text='Page layout 3', TOC-LEVEL=1, ... , $
COMPONENT='report301', TEXT='report301', TOC-LEVEL=2, ... ,$
COMPONENT='report304', TEXT='report304', TOC-LEVEL=2, ... ,$
COMPONENT='report305', TEXT='report305', TOC-LEVEL=2, ... ,$
COMPONENT='report306', TEXT='report306', TOC-LEVEL=2, ... ,$
COMPONENT='report309', TEXT='report309', TOC-LEVEL=2, ... ,$
COMPONENT='report310', TEXT='report310', TOC-LEVEL=2, ... ,$

PAGELAYOUT=4, NAME='Page layout 4', text='Page layout 4', TOC-LEVEL=1, ... , $
COMPONENT='report401', TEXT='report401', TOC-LEVEL=2, ... ,$
COMPONENT='report406', TEXT='report406', TOC-LEVEL=2, ... ,$

PAGELAYOUT=5, NAME='Page layout 5', text='Page layout 5', TOC-LEVEL=1, ... , $
COMPONENT='report501', TEXT='report501', TOC-LEVEL=2, ... ,$
COMPONENT='report502', TEXT='report502', TOC-LEVEL=2, ... ,$
COMPONENT='report503', TEXT='report503', TOC-LEVEL=2, ... ,$
COMPONENT='report506', TEXT='report506', TOC-LEVEL=2, ... ,$
COMPONENT='report507', TEXT='report507', TOC-LEVEL=2, ... ,$
COMPONENT='report508', TEXT='report508', TOC-LEVEL=2, ... ,$

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,

- Jack Gross
WF through 8.1.05

Posts: 1925 | Location: NYC | In FOCUS since 1983 | Registered: January 11, 2005

Ignored post by j.gross posted

Show Post

Jan1

Gold member

posted

Hide Post

thanks ! it worked !

WebFOCUS 7.6.9
Windows
Excel, HTML, PDF

Posts: 71 | Registered: April 17, 2009