I have an html report with an excel form type that needs to only show two part numbers per page.So after the second subfoot I want a page break. Nothing I do seems to work.

  SET HTMLFORMTYPE=XLS
-HTMLFORM BEGIN
!IBI.FIL.REP001;
-HTMLFORM END

This message has been edited. Last edited by: Kerry,

If you will do a search on the Forum there are several discussions on this topic that you may be able to use. People have different methods. Search: Page Break HTML.

I have tried many of the suggestions, but they are not working.

 SET ASNAMES = ON
SET SHOWBLANKS = ON
SET LINES = 42
-SET &ECHO ='ALL';
-SET &B1 = HGETC(10, 'HYYMDm');
-SET &B2 = HCNVRT(&B1, '(HYYMDS)', 20, 'A20');
-TYPE &B2
-SET &PARTNUM = '&PARTNO.EVAL'|'%' ;
-SET &PART_WHERE = IF &PARTNO EQ '' THEN '-*' ELSE '';
-SET &CUSTCODE_IND = IF &CUSTCODE EQ '' THEN '-*' ELSE '';
-SET &CUSTCODEL = ('&CUSTCODE.EVAL'|'%');
-SET &CUSTCODEUP = UPCASE(&CUSTCODEL.LENGTH, &CUSTCODEL, 'A&CUSTCODEL.LENGTH');
-SET &PC = IF &IPC EQ '' THEN '-*' ELSE '' ;
-SET &TERRITORY = IF &TERR EQ '' THEN '-*' ELSE '' ;
-SET &RBU_WHERE = IF &BU EQ '0' THEN '-*' ELSE '' ;
-SET &CSR_WHERE = IF &CSR EQ '0' THEN '-*' ELSE '' ;
-*-SET &CURM = DECODE &IMONTH(1 01 2 02 3 03 4 04 5 05 6 06 7 07 8 08 9 09 10 10 11 11 12 12 ELSE &IMONTH.EVAL ) ;
-SET &CYY     = '&DATEYY.EVAL';
-SET &CURM = EDIT (&DATEYYMD,'$$$$$99$$$');
-SET &CURMD = DECODE &CURM (01 Jan 02 Feb 03 Mar 04 Apr 05 May 06 Jun 07 Jul 08 Aug 09 Sep 10 Oct 11 Nov 12 Dec);
-SET &CURY = EDIT(&CYY , '9999');
-SET &CURFY = IF &CURM LE 3 THEN &CURY -1 ELSE &CURY ;
-SET &CURP = '&CURY.EVAL' | '&CURM.EVAL' ;
-SET &CURPD = '&CURY.EVAL' |'/'| '&CURM.EVAL' ;
-SET &NEXT1M = DECODE &CURM (01 02 02 03 03 04 04 05 05 06 06 07 07 08 08 09 09 10 10 11 11 12 12 01);
-SET &NEXT1MD = DECODE &CURM (01 Feb 02 Mar 03 Apr 04 May 05 Jun 06 Jul 07 Aug 08 Sep 09 Oct 10 Nov 11 Dec 12 Jan);
-SET &NEXT1Y = IF &CURM EQ '12' THEN &CURY + 1 ELSE &CURY ;
-SET &NEXT1P = '&NEXT1Y.EVAL' | '&NEXT1M.EVAL' ;
-SET &NEXT1PD = '&NEXT1Y.EVAL' |'/'| '&NEXT1M.EVAL' ;
-SET &NEXT2M = DECODE &CURM (01 03 02 04 03 05 04 06 05 07 06 08 07 09 08 10 09 11 10 12 11 01 12 02);
-SET &NEXT2MD = DECODE &CURM (01 Mar 02 Apr 03 May 04 Jun 05 Jul 06 Aug 07 Sep 08 Oct 09 Nov 10 Dec 11 Jan 12 Feb);
-SET &NEXT2Y = IF &CURM GE '11' THEN &CURY + 1 ELSE &CURY ;
-SET &NEXT2P = '&NEXT2Y.EVAL' | '&NEXT2M.EVAL' ;
-SET &NEXT2PD = '&NEXT2Y.EVAL' |'/'| '&NEXT2M.EVAL' ;
-SET &NEXT3M = DECODE &CURM (01 04 02 05 03 06 04 07 05 08 06 09 07 10 08 11 09 12 10 01 11 02 12 03);
-SET &NEXT3MD = DECODE &CURM (01 Apr 02 May 03 Jun 04 Jul 05 Aug 06 Sep 07 Oct 08 Nov 09 Dec 10 Jan 11 Feb 12 Mar);
-SET &NEXT3Y = IF &CURM GE '10' THEN &CURY + 1 ELSE &CURY ;
-SET &NEXT3P = '&NEXT3Y.EVAL' | '&NEXT3M.EVAL' ;
-SET &NEXT3PD = '&NEXT3Y.EVAL' |'/'| '&NEXT3M.EVAL' ;
-SET &NEXT4M = DECODE &CURM (01 05 02 06 03 07 04 08 05 09 06 10 07 11 08 12 09 01 10 02 11 03 12 04);
-SET &NEXT4MD = DECODE &CURM (01 May 02 Jun 03 Jul 04 Aug 05 Sep 06 Oct 07 Nov 08 Dec 09 Jan 10 Feb 11 Mar 12 Apr);
-SET &NEXT4Y = IF &CURM GE '09' THEN &CURY + 1 ELSE &CURY ;
-SET &NEXT4P = '&NEXT4Y.EVAL' | '&NEXT4M.EVAL' ;
-SET &NEXT4PD = '&NEXT4Y.EVAL' |'/'| '&NEXT4M.EVAL' ;
-SET &NEXT5M = DECODE &CURM (01 06 02 07 03 08 04 09 05 10 06 11 07 12 08 01 09 02 10 03 11 04 12 05);
-SET &NEXT5MD = DECODE &CURM (01 Jun 02 Jul 03 Aug 04 Sep 05 Oct 06 Nov 07 Dec 08 Jan 09 Feb 10 Mar 11 Apr 12 May);
-SET &NEXT5Y = IF &CURM GE '08' THEN &CURY + 1 ELSE &CURY ;
-SET &NEXT5P = '&NEXT5Y.EVAL' | '&NEXT5M.EVAL' ;
-SET &NEXT5PD = '&NEXT5Y.EVAL' |'/'| '&NEXT5M.EVAL' ;
-SET &NEXT6M = DECODE &CURM (01 07 02 08 03 09 04 10 05 11 06 12 07 01 08 02 09 03 10 04 11 05 12 06);
-SET &NEXT6MD = DECODE &CURM (01 Jul 02 Aug 03 Sep 04 Oct 05 Nov 06 Dec 07 Jan 08 Feb 09 Mar 10 Apr 11 May 12 Jun);
-SET &NEXT6Y = IF &CURM GE '07' THEN &CURY + 1 ELSE &CURY ;
-SET &NEXT6P = '&NEXT6Y.EVAL' | '&NEXT6M.EVAL' ;
-SET &NEXT6PD = '&NEXT6Y.EVAL' |'/'| '&NEXT6M.EVAL' ;
-SET &NEXT7M = DECODE &CURM (01 08 02 09 03 10 04 11 05 12 06 01 07 02 08 03 09 04 10 05 11 06 12 07);
-SET &NEXT7MD = DECODE &CURM (01 Aug 02 Sep 03 Oct 04 Nov 05 Dec 06 Jan 07 Feb 08 Mar 09 Apr 10 May 11 Jun 12 Jul);
-SET &NEXT7Y = IF &CURM GE '06' THEN &CURY + 1 ELSE &CURY ;
-SET &NEXT7P = '&NEXT7Y.EVAL' | '&NEXT7M.EVAL' ;
-SET &NEXT7PD = '&NEXT7Y.EVAL' |'/'| '&NEXT7M.EVAL' ;
-SET &NEXT8M = DECODE &CURM (01 09 02 10 03 11 04 12 05 01 06 02 07 03 08 04 09 05 10 06 11 07 12 08);
-SET &NEXT8MD = DECODE &CURM (01 Sep 02 Oct 03 Nov 04 Dec 05 Jan 06 Feb 07 Mar 08 Apr 09 May 10 Jun 11 Jul 12 Aug);
-SET &NEXT8Y = IF &CURM GE '05' THEN &CURY + 1 ELSE &CURY ;
-SET &NEXT8P = '&NEXT8Y.EVAL' | '&NEXT8M.EVAL' ;
-SET &NEXT8PD = '&NEXT8Y.EVAL' |'/'| '&NEXT8M.EVAL' ;
-SET &NEXT9M = DECODE &CURM (01 10 02 11 03 12 04 01 05 02 06 03 07 04 08 05 09 06 10 07 11 08 12 09);
-SET &NEXT9MD = DECODE &CURM (01 Oct 02 Nov 03 Dec 04 Jan 05 Feb 06 Mar 07 Apr 08 May 09 Jun 10 Jul 11 Aug 12 Sep);
-SET &NEXT9Y = IF &CURM GE '04' THEN &CURY + 1 ELSE &CURY ;
-SET &NEXT9P = '&NEXT9Y.EVAL' | '&NEXT9M.EVAL' ;
-SET &NEXT9PD = '&NEXT9Y.EVAL' |'/'| '&NEXT9M.EVAL' ;
-SET &NEXT10M = DECODE &CURM (01 11 02 12 03 01 04 02 05 03 06 04 07 05 08 06 09 07 10 08 11 09 12 10);
-SET &NEXT10MD = DECODE &CURM (01 Nov 02 Dec 03 Jan 04 Feb 05 Mar 06 Apr 07 May 08 Jun 09 Jul 10 Aug 11 Sep 12 Oct);
-SET &NEXT10Y = IF &CURM GE '03' THEN &CURY + 1 ELSE &CURY ;
-SET &NEXT10P = '&NEXT10Y.EVAL' | '&NEXT10M.EVAL' ;
-SET &NEXT10PD = '&NEXT10Y.EVAL' |'/'| '&NEXT10M.EVAL' ;
-SET &NEXT11M = DECODE &CURM (01 12 02 01 03 02 04 03 05 04 06 05 07 06 08 07 09 08 10 09 11 10 12 11);
-SET &NEXT11MD = DECODE &CURM (01 Dec 02 Jan 03 Feb 04 Mar 05 Apr 06 May 07 Jun 08 Jul 09 Aug 10 Sep 11 Oct 12 Nov);
-SET &NEXT11Y = IF &CURM GE '02' THEN &CURY + 1 ELSE &CURY ;
-SET &NEXT11P = '&NEXT11Y.EVAL' | '&NEXT11M.EVAL' ;
-SET &NEXT11PD = '&NEXT11Y.EVAL' |'/'| '&NEXT11M.EVAL' ;

-* fiscal year calculation

-* end fiscal year calculation

-SET &PRE1M = DECODE &CURM (01 12 02 01 03 02 04 03 05 04 06 05 07 06 08 07 09 08 10 09 11 10 12 11);
-SET &PRE1Y = IF &CURM EQ '01' THEN &CURY - 1 ELSE &CURY ;
-SET &PREV1P = '&PRE1Y.EVAL' | '&PRE1M.EVAL' ;
-SET &JAN = 01;
-SET &PRE1LY = &CURY - 1  ;
-SET &PREV1LP = '&PRE1LY.EVAL' | '&JAN.EVAL' ;
-SET &PREV1CP = '&CURY.EVAL' | '&JAN.EVAL' ;
-SET &PRE2M = DECODE &CURM (01 11 02 12 03 01 04 02 05 03 06 04 07 05 08 06 09 07 10 08 11 09 12 10 );
-SET &PRE2Y = IF &CURM LE '02' THEN &CURY - 1 ELSE &CURY ;
-SET &PREV2P = '&PRE2Y.EVAL' | '&PRE2M.EVAL' ;
-SET &FEB = 02;
-SET &PREV2LP = '&PRE1LY.EVAL' | '&FEB.EVAL' ;
-SET &PREV2CP = '&CURY.EVAL' | '&FEB.EVAL' ;
-SET &PRE3M = DECODE &CURM (01 10 02 11 03 12 04 01 05 02 06 03 07 04 08 05 09 06 10 07 11 08 12 09 );
-SET &PRE3Y = IF &CURM LE '03' THEN &CURY - 1 ELSE &CURY ;
-SET &PREV3P = '&PRE3Y.EVAL' | '&PRE3M.EVAL' ;
-SET &MAR = 03;
-SET &PREV3LP = '&PRE1LY.EVAL' | '&MAR.EVAL' ;
-SET &PREV3CP = '&CURY.EVAL' | '&MAR.EVAL' ;
-SET &PRE4M = DECODE &CURM (01 09 02 10 03 11 04 12 05 01 06 02 07 03 08 04 09 05 10 06 11 07 12 08 );
-SET &PRE4Y = IF &CURM LE '04' THEN &CURY - 1 ELSE &CURY ;
-SET &PREV4P = '&PRE4Y.EVAL' | '&PRE4M.EVAL' ;
-SET &APR = 04;
-SET &PREV4LP = '&PRE1LY.EVAL' | '&APR.EVAL' ;
-SET &PREV4CP = '&CURY.EVAL' | '&APR.EVAL' ;
-SET &PRE5M = DECODE &CURM (01 08 02 09 03 10 04 11 05 12 06 01 07 02 08 03 09 04 10 05 11 06 12 07 );
-SET &PRE5Y = IF &CURM LE '05' THEN &CURY - 1 ELSE &CURY ;
-SET &PREV5P = '&PRE5Y.EVAL' | '&PRE5M.EVAL' ;
-SET &MAY = 05;
-SET &PREV5LP = '&PRE1LY.EVAL' | '&MAY.EVAL' ;
-SET &PREV5CP = '&CURY.EVAL' | '&MAY.EVAL' ;
-SET &PRE6M = DECODE &CURM (01 07 02 08 03 09 04 10 05 11 06 12 07 01 08 02 09 03 10 04 11 05 12 06 );
-SET &PRE6Y = IF &CURM LE '06' THEN &CURY - 1 ELSE &CURY ;
-SET &PREV6P = '&PRE6Y.EVAL' | '&PRE6M.EVAL' ;
-SET &JUN = 06;
-SET &PREV6LP = '&PRE1LY.EVAL' | '&JUN.EVAL' ;
-SET &PREV6CP = '&CURY.EVAL' | '&JUN.EVAL' ;
-SET &PRE7M = DECODE &CURM (01 06 02 07 03 08 04 09 05 10 06 11 07 12 08 01 09 02 10 03 11 04 12 05 );
-SET &PRE7Y = IF &CURM LE '07' THEN &CURY - 1 ELSE &CURY ;
-SET &PREV7P = '&PRE7Y.EVAL' | '&PRE7M.EVAL' ;
-SET &JUL = 07;
-SET &PREV7LP = '&PRE1LY.EVAL' | '&JUL.EVAL' ;
-SET &PREV7CP = '&CURY.EVAL' | '&JUL.EVAL' ;
-SET &PRE8M = DECODE &CURM (01 05 02 06 03 07 04 08 05 09 06 10 07 11 08 12 09 01 10 02 11 03 12 04 );
-SET &PRE8Y = IF &CURM LE '08' THEN &CURY - 1 ELSE &CURY ;
-SET &PREV8P = '&PRE8Y.EVAL' | '&PRE8M.EVAL' ;
-SET &AUG = 08;
-SET &PREV8LP = '&PRE1LY.EVAL' | '&AUG.EVAL' ;
-SET &PREV8CP = '&CURY.EVAL' | '&AUG.EVAL' ;
-SET &PRE9M = DECODE &CURM (01 04 02 05 03 06 04 07 05 08 06 09 07 10 08 11 09 12 10 01 11 02 12 03 );
-SET &PRE9Y = IF &CURM LE '09' THEN &CURY - 1 ELSE &CURY ;
-SET &PREV9P = '&PRE9Y.EVAL' | '&PRE9M.EVAL' ;
-SET &SEP = 09;
-SET &PREV9LP = '&PRE1LY.EVAL' | '&SEP.EVAL' ;
-SET &PREV9CP = '&CURY.EVAL' | '&SEP.EVAL' ;
-SET &PRE10M = DECODE &CURM (01 03 02 04 03 05 04 06 05 07 06 08 07 09 08 10 09 11 10 12 11 01 12 02 );
-SET &PRE10Y = IF &CURM LE '10' THEN &CURY - 1 ELSE &CURY ;
-SET &PREV10P = '&PRE10Y.EVAL' | '&PRE10M.EVAL' ;
-SET &OCT = 10;
-SET &PREV10LP = '&PRE1LY.EVAL' | '&OCT.EVAL' ;
-SET &PREV10CP = '&CURY.EVAL' | '&OCT.EVAL' ;
-SET &PRE11M = DECODE &CURM (01 02 02 03 03 04 04 05 05 06 06 07 07 08 08 09 09 10 10 11 11 12 12 01 );
-SET &PRE11Y = IF &CURM LE '11' THEN &CURY - 1 ELSE &CURY ;
-SET &PREV11P = '&PRE11Y.EVAL' | '&PRE11M.EVAL' ;
-SET &NOV = 11;
-SET &PREV11LP = '&PRE1LY.EVAL' | '&NOV.EVAL' ;
-SET &PREV11CP = '&CURY.EVAL' | '&NOV.EVAL' ;
-SET &PRE12M = &CURM ;
-SET &PRE12Y = &CURY - 1  ;
-SET &PREV12P = '&PRE12Y.EVAL' | '&PRE12M.EVAL' ;
-SET &DEC = 12;
-SET &PREV12LP = '&PRE1LY.EVAL' | '&DEC.EVAL' ;
-SET &PREV12CP = '&CURY.EVAL' | '&DEC.EVAL' ;
-TYPE &PREV6P &PREV5P &PREV4P &PREV3P &PREV2P &PREV1P &CURP &NEXT1P &NEXT2P &NEXT3P &NEXT4P &NEXT5P

-*-SET &ECHO ='ALL';
APP APPENDPATH   mistral
-*-IF &IOUTPUT EQ 'PDF' GOTO SKIPPRT ;
-*JOIN
-*  LEFT_OUTER MISTRAL-INV00_V01.MISTRAL_INV00_V01.PARTNO AND MISTRAL-INV00_V01.MISTRAL_INV00_V01.CO
-* AND MISTRAL-INV00_V01.MISTRAL_INV00_V01.YM IN MISTRAL-INV00_V01 TO UNIQUE
-* MISTRAL-PR00_V01.MISTRAL_PR00_V01.PARTNO AND MISTRAL-PR00_V01.MISTRAL_PR00_V01.CO
-* AND MISTRAL-PR00_V01.MISTRAL_PR00_V01.YM IN MISTRAL-PR00_V01 AS J4
-*END
DEFINE FILE MISTRAL-INV00_V01
ICURRQTY/D20  = IF YM EQ '&PREV12P.EVAL'   THEN INVQTY ELSE 0 ;
INEXT11QTY/D20 = IF YM EQ '&PREV1P.EVAL' THEN INVQTY ELSE 0 ;
INEXT10QTY/D20 = IF YM EQ '&PREV2P.EVAL' THEN INVQTY ELSE 0 ;
INEXT9QTY/D20 = IF YM EQ '&PREV3P.EVAL' THEN INVQTY ELSE 0 ;
INEXT8QTY/D20 = IF YM EQ '&PREV4P.EVAL' THEN INVQTY ELSE 0 ;
INEXT7QTY/D20 = IF YM EQ '&PREV5P.EVAL' THEN INVQTY ELSE 0 ;
INEXT6QTY/D20 = IF YM EQ '&PREV6P.EVAL' THEN INVQTY ELSE 0 ;
INEXT5QTY/D20 = IF YM EQ '&PREV7P.EVAL' THEN INVQTY ELSE 0 ;
INEXT4QTY/D20 = IF YM EQ '&PREV8P.EVAL' THEN INVQTY ELSE 0 ;
INEXT3QTY/D20 = IF YM EQ '&PREV9P.EVAL' THEN INVQTY ELSE 0 ;
INEXT2QTY/D20 = IF YM EQ '&PREV10P.EVAL' THEN INVQTY ELSE 0 ;
INEXT1QTY/D20 = IF YM EQ '&PREV11P.EVAL' THEN INVQTY ELSE 0 ;

BACURRQTY/D20  = IF YM EQ '&CURP.EVAL'   THEN BALQTY ELSE 0 ;
BANEXT11QTY/D20 = IF YM EQ '&NEXT11P.EVAL' THEN BALQTY ELSE 0 ;
BANEXT10QTY/D20 = IF YM EQ '&NEXT10P.EVAL' THEN BALQTY ELSE 0 ;
BANEXT9QTY/D20 = IF YM EQ '&NEXT9P.EVAL' THEN BALQTY ELSE 0 ;
BANEXT8QTY/D20 = IF YM EQ '&NEXT8P.EVAL' THEN BALQTY ELSE 0 ;
BANEXT7QTY/D20 = IF YM EQ '&NEXT7P.EVAL' THEN BALQTY ELSE 0 ;
BANEXT6QTY/D20 = IF YM EQ '&NEXT6P.EVAL' THEN BALQTY ELSE 0 ;
BANEXT5QTY/D20 = IF YM EQ '&NEXT5P.EVAL' THEN BALQTY ELSE 0 ;
BANEXT4QTY/D20 = IF YM EQ '&NEXT4P.EVAL' THEN BALQTY ELSE 0 ;
BANEXT3QTY/D20 = IF YM EQ '&NEXT3P.EVAL' THEN BALQTY ELSE 0 ;
BANEXT2QTY/D20 = IF YM EQ '&NEXT2P.EVAL' THEN BALQTY ELSE 0 ;
BANEXT1QTY/D20 = IF YM EQ '&NEXT1P.EVAL' THEN BALQTY ELSE 0 ;
END
TABLE FILE MISTRAL-INV00_V01
SUM
 BACURRQTY
 BANEXT1QTY
 BANEXT2QTY
 BANEXT3QTY
 BANEXT4QTY
 BANEXT5QTY
 BANEXT6QTY
 BANEXT7QTY
 BANEXT8QTY
 BANEXT9QTY
 BANEXT10QTY
 BANEXT11QTY

 ICURRQTY
 INEXT1QTY
 INEXT2QTY
 INEXT3QTY
 INEXT4QTY
 INEXT5QTY
 INEXT6QTY
 INEXT7QTY
 INEXT8QTY
 INEXT9QTY
 INEXT10QTY
 INEXT11QTY
 BY CO
 BY PARTNO
 BY YM
-*WHERE ( CO EQ 'H' );
-*WHERE (YM  GT '200712');
-*WHERE (PRIMARY_BU EQ 'IBU');
-*&RBU_WHERE.EVAL   WHERE  PRIMARY_BU EQ '&BU.EVAL'
&PART_WHERE.EVAL  WHERE  PARTNO   LIKE '&PARTNUM.EVAL'
WHERE ( CO EQ 'H' ) AND ( YM GE '&PREV12P.EVAL' ) AND ( YM LE '&NEXT11P.EVAL' )
-*WHERE (PARTNO LIKE '6%');
-*WHERE ( CO EQ 'H' )AND ( DIV1NM EQ 'IBU' ) (SM EQ '9D')
-*WHERE RECORDLIMIT = 100;
ON TABLE HOLD AS HOLD2
END
-RUN
TABLE FILE MISTRAL-FS03_V01
SUM *
BY CO
BY PARTNO
BY YM
WHERE  CO EQ 'H';
&RBU_WHERE.EVAL WHERE DIV1NM EQ '&BU.EVAL'  ;
WHERE  (YM  GT '200712')
&TERRITORY.EVAL WHERE SM EQ '&TERR';
-*WHERE (CUST EQ  'BA08') ;
&CUSTCODE_IND.EVAL WHERE  CUST LIKE '&CUSTCODEUP.EVAL'
-*WHERE PARTNO EQ '6204NR*                   6';
&PART_WHERE.EVAL  WHERE  PARTNO   LIKE '&PARTNUM.EVAL'
-*WHERE (PARTNO LIKE '6%');
&PC.EVAL  WHERE PC EQ '&IPC.EVAL'
&CSR_WHERE.EVAL WHERE CSRID EQ '&CSR.EVAL'
ON TABLE HOLD AS HOLD1
END
-RUN
JOIN
 LEFT_OUTER HOLD2.HOLD2.CO AND HOLD2.HOLD2.PARTNO AND HOLD2.HOLD2.YM  IN HOLD2
 TO  ALL HOLD1.HOLD1.CO AND HOLD1.HOLD1.PARTNO AND HOLD1.HOLD1.YM  IN HOLD1
 AS J2
 END

JOIN
 LEFT_OUTER HOLD2.HOLD2.CO AND HOLD2.HOLD2.PARTNO AND HOLD2.HOLD2.YM IN HOLD2
 TO UNIQUE MISTRAL-PR00_V01.MISTRAL_PR00_V01.CO
 AND MISTRAL-PR00_V01.MISTRAL_PR00_V01.PARTNO
 AND MISTRAL-PR00_V01.MISTRAL_PR00_V01.YM IN MISTRAL-PR00_V01 AS J6
END
JOIN
 INNER HOLD2.HOLD2.PARTNO IN HOLD2 TO UNIQUE ABS-PRICES.ABS_PRICES.PART
 IN ABS-PRICES AS J0
END
JOIN
 LEFT_OUTER HOLD1.HOLD1.SM AND HOLD1.HOLD1.CO IN HOLD2 TO UNIQUE
 SALES_REP_IDS.SALES_REP_IDS.SALES_REP AND SALES_REP_IDS.SALES_REP_IDS.COMPANY
 IN SALES_REP_IDS AS J4
END
JOIN
 LEFT_OUTER HOLD1.HOLD1.CO AND HOLD1.HOLD1.YM
 AND HOLD1.HOLD1.CUST
 AND HOLD1.HOLD1.PARTNO IN HOLD2 TO ALL
 ABS-FORECAST_METRIC_TBL.ABS_FORECAST_METRIC_TBL.CO
 AND ABS-FORECAST_METRIC_TBL.ABS_FORECAST_METRIC_TBL.YM
 AND ABS-FORECAST_METRIC_TBL.ABS_FORECAST_METRIC_TBL.CUST
 AND ABS-FORECAST_METRIC_TBL.ABS_FORECAST_METRIC_TBL.PARTNO
 IN ABS-FORECAST_METRIC_TBL AS J5
END

DEFINE FILE HOLD2
WHL/I2 = ARGLEN(12,ABS_FORECAST_METRIC_TBL.WH, 'I2');
ACTQTY/D20 = ABS_FORECAST_METRIC_TBL.FCTQTY ;
ABS_CO/A2='HH';
PARTNOA/A27 = PARTNO ;
PARTNOB/A27 = PARTNO ;
SALEQTY/D20 = IF YM GE '&PREV12P.EVAL' AND YM LE '&PREV1P.EVAL' THEN SALQTY ELSE 0 ;
FISCALQTY/D20 = IF FY EQ '&CURFY|FY' THEN BPSALQTY1 ELSE 0 ;
FISCALAMT/D20 = IF FY EQ '&CURFY|FY' THEN BPSALAMT1 ELSE 0 ;
PROJFISCALAMT/D20 = IF FY EQ '&CURFY|FY' THEN SALAMT + FCTAMT ELSE 0 ;
PREV6QTYS/D20 = IF YM EQ '&PREV6P.EVAL' THEN SALQTY ELSE 0 ;
PREV5QTYS/D20 = IF YM EQ '&PREV5P.EVAL' THEN SALQTY ELSE 0 ;
PREV4QTYS/D20 = IF YM EQ '&PREV4P.EVAL' THEN SALQTY ELSE 0 ;
PREV3QTYS/D20 = IF YM EQ '&PREV3P.EVAL' THEN SALQTY ELSE 0 ;
PREV2QTYS/D20 = IF YM EQ '&PREV2P.EVAL' THEN SALQTY ELSE 0 ;
PREV1QTYS/D20 = IF YM EQ '&PREV1P.EVAL' THEN SALQTY ELSE 0 ;
CURRQTYS/D20  = IF YM EQ '&CURP.EVAL'   THEN SALQTY ELSE 0 ;
NEXT5QTYS/D20 = IF YM EQ '&NEXT5P.EVAL' THEN SALQTY ELSE 0 ;
NEXT4QTYS/D20 = IF YM EQ '&NEXT4P.EVAL' THEN SALQTY ELSE 0 ;
NEXT3QTYS/D20 = IF YM EQ '&NEXT3P.EVAL' THEN SALQTY ELSE 0 ;
NEXT2QTYS/D20 = IF YM EQ '&NEXT2P.EVAL' THEN SALQTY ELSE 0 ;
NEXT1QTYS/D20 = IF YM EQ '&NEXT1P.EVAL' THEN SALQTY ELSE 0 ;
PROJFISCALQTY/D20 = IF FY EQ '&CURFY|FY' THEN (SALQTY + FCTQTY) - CURRQTYS  ELSE 0 ;
Price1/D12.2 = IF YM EQ '&CURP.EVAL' AND FCTQTY GT 0  THEN  FCTAMT/FCTQTY ELSE 0;
Price2/D12.2 = IF YM EQ '&NEXT1P.EVAL' AND FCTQTY GT 0  THEN  FCTAMT/FCTQTY ELSE 0;
Price3/D12.2 = IF YM EQ '&NEXT2P.EVAL' AND FCTQTY GT 0  THEN  FCTAMT/FCTQTY ELSE 0;
Price4/D12.2 = IF YM EQ '&NEXT3P.EVAL' AND FCTQTY GT 0  THEN  FCTAMT/FCTQTY ELSE 0;
Price5/D12.2 = IF YM EQ '&NEXT4P.EVAL' AND FCTQTY GT 0  THEN  FCTAMT/FCTQTY ELSE 0;
Price6/D12.2 = IF YM EQ '&NEXT5P.EVAL' AND FCTQTY GT 0  THEN  FCTAMT/FCTQTY ELSE 0;
Price7/D12.2 = IF YM EQ '&NEXT6P.EVAL' AND FCTQTY GT 0  THEN  FCTAMT/FCTQTY ELSE 0;
Price8/D12.2 = IF YM EQ '&NEXT7P.EVAL' AND FCTQTY GT 0  THEN  FCTAMT/FCTQTY ELSE 0;
Price9/D12.2 = IF YM EQ '&NEXT8P.EVAL' AND FCTQTY GT 0  THEN  FCTAMT/FCTQTY ELSE 0;
Price10/D12.2 = IF YM EQ '&NEXT9P.EVAL' AND FCTQTY GT 0  THEN  FCTAMT/FCTQTY ELSE 0;
Price11/D12.2 = IF YM EQ '&NEXT10P.EVAL' AND FCTQTY GT 0  THEN  FCTAMT/FCTQTY ELSE 0;
Price12/D12.2 = IF YM EQ '&NEXT11P.EVAL' AND FCTQTY GT 0  THEN  FCTAMT/FCTQTY ELSE 0;

PREV12QTYS/D20 = IF YM EQ '&PREV12P.EVAL' THEN SALQTY ELSE 0 ;
PREV11QTYS/D20 = IF YM EQ '&PREV11P.EVAL' THEN SALQTY ELSE 0 ;
PREV10QTYS/D20 = IF YM EQ '&PREV10P.EVAL' THEN SALQTY ELSE 0 ;
PREV9QTYS/D20 = IF YM EQ '&PREV9P.EVAL' THEN SALQTY ELSE 0 ;
PREV8QTYS/D20 = IF YM EQ '&PREV8P.EVAL' THEN SALQTY ELSE 0 ;
PREV7QTYS/D20 = IF YM EQ '&PREV7P.EVAL' THEN SALQTY ELSE 0 ;
PREV6QTYS/D20 = IF YM EQ '&PREV6P.EVAL' THEN SALQTY ELSE 0 ;
PREV5QTYS/D20 = IF YM EQ '&PREV5P.EVAL' THEN SALQTY ELSE 0 ;
PREV4QTYS/D20 = IF YM EQ '&PREV4P.EVAL' THEN SALQTY ELSE 0 ;
PREV3QTYS/D20 = IF YM EQ '&PREV3P.EVAL' THEN SALQTY ELSE 0 ;
PREV2QTYS/D20 = IF YM EQ '&PREV2P.EVAL' THEN SALQTY ELSE 0 ;
PREV1QTYS/D20 = IF YM EQ '&PREV1P.EVAL' THEN SALQTY ELSE 0 ;

PREV12QTYL/D20 = IF YM EQ '&PREV12LP.EVAL' THEN SALQTY ELSE 0 ;
PREV11QTYL/D20 = IF YM EQ '&PREV11LP.EVAL' THEN SALQTY ELSE 0 ;
PREV10QTYL/D20 = IF YM EQ '&PREV10LP.EVAL' THEN SALQTY ELSE 0 ;
PREV9QTYL/D20 =  IF YM EQ '&PREV9LP.EVAL'  THEN SALQTY ELSE 0 ;
PREV8QTYL/D20 =  IF YM EQ '&PREV8LP.EVAL'  THEN SALQTY ELSE 0 ;
PREV7QTYL/D20 =  IF YM EQ '&PREV7LP.EVAL'  THEN SALQTY ELSE 0 ;
PREV6QTYL/D20 =  IF YM EQ '&PREV6LP.EVAL'  THEN SALQTY ELSE 0 ;
PREV5QTYL/D20 =  IF YM EQ '&PREV5LP.EVAL'  THEN SALQTY ELSE 0 ;
PREV4QTYL/D20 =  IF YM EQ '&PREV4LP.EVAL'  THEN SALQTY ELSE 0 ;
PREV3QTYL/D20 =  IF YM EQ '&PREV3LP.EVAL'  THEN SALQTY ELSE 0 ;
PREV2QTYL/D20 =  IF YM EQ '&PREV2LP.EVAL'  THEN SALQTY ELSE 0 ;
PREV1QTYL/D20 =  IF YM EQ '&PREV1LP.EVAL'  THEN SALQTY ELSE 0 ;

PREV12QTYCF/D20 = IF YM EQ '&PREV12CP.EVAL' THEN FCTQTY + SALQTY ELSE 0 ;
PREV11QTYCF/D20 = IF YM EQ '&PREV11CP.EVAL' THEN FCTQTY + SALQTY ELSE 0 ;
PREV10QTYCF/D20 = IF YM EQ '&PREV10CP.EVAL' THEN FCTQTY + SALQTY ELSE 0 ;
PREV9QTYCF/D20 =  IF YM EQ '&PREV9CP.EVAL'  THEN FCTQTY + SALQTY ELSE 0 ;
PREV8QTYCF/D20 =  IF YM EQ '&PREV8CP.EVAL'  THEN FCTQTY + SALQTY ELSE 0 ;
PREV7QTYCF/D20 =  IF YM EQ '&PREV7CP.EVAL'  THEN FCTQTY + SALQTY ELSE 0 ;
PREV6QTYCF/D20 =  IF YM EQ '&PREV6CP.EVAL'  THEN FCTQTY + SALQTY ELSE 0 ;
PREV5QTYCF/D20 =  IF YM EQ '&PREV5CP.EVAL'  THEN FCTQTY + SALQTY ELSE 0 ;
PREV4QTYCF/D20 =  IF YM EQ '&PREV4CP.EVAL'  THEN FCTQTY + SALQTY ELSE 0 ;
PREV3QTYCF/D20 =  IF YM EQ '&PREV3CP.EVAL'  THEN FCTQTY + SALQTY ELSE 0 ;
PREV2QTYCF/D20 =  IF YM EQ '&PREV2CP.EVAL'  THEN FCTQTY + SALQTY ELSE 0 ;
PREV1QTYCF/D20 =  IF YM EQ '&PREV1CP.EVAL'  THEN FCTQTY + SALQTY ELSE 0 ;


CURRQTYF/D20  = IF YM EQ '&CURP.EVAL' THEN FCTQTY ELSE 0 ;
NEXT11QTYF/D20 = IF YM EQ '&NEXT11P.EVAL' THEN FCTQTY ELSE 0 ;
NEXT10QTYF/D20 = IF YM EQ '&NEXT10P.EVAL' THEN FCTQTY ELSE 0 ;
NEXT9QTYF/D20 = IF YM EQ '&NEXT9P.EVAL' THEN FCTQTY ELSE 0 ;
NEXT8QTYF/D20 = IF YM EQ '&NEXT8P.EVAL' THEN FCTQTY ELSE 0 ;
NEXT7QTYF/D20 = IF YM EQ '&NEXT7P.EVAL' THEN FCTQTY ELSE 0 ;
NEXT6QTYF/D20 = IF YM EQ '&NEXT6P.EVAL' THEN FCTQTY ELSE 0 ;
NEXT5QTYF/D20 = IF YM EQ '&NEXT5P.EVAL' THEN FCTQTY ELSE 0 ;
NEXT4QTYF/D20 = IF YM EQ '&NEXT4P.EVAL' THEN FCTQTY ELSE 0 ;
NEXT3QTYF/D20 = IF YM EQ '&NEXT3P.EVAL' THEN FCTQTY ELSE 0 ;
NEXT2QTYF/D20 = IF YM EQ '&NEXT2P.EVAL' THEN FCTQTY ELSE 0 ;
NEXT1QTYF/D20 = IF YM EQ '&NEXT1P.EVAL' THEN FCTQTY ELSE 0 ;

OCURRQTY/D20  = IF YM EQ '&CURP.EVAL'   THEN ODRQTY ELSE 0 ;
ONEXT11QTY/D20 = IF YM EQ '&NEXT11P.EVAL' THEN ODRQTY ELSE 0 ;
ONEXT10QTY/D20 = IF YM EQ '&NEXT10P.EVAL' THEN ODRQTY ELSE 0 ;
ONEXT9QTY/D20 = IF YM EQ '&NEXT9P.EVAL' THEN ODRQTY ELSE 0 ;
ONEXT8QTY/D20 = IF YM EQ '&NEXT8P.EVAL' THEN ODRQTY ELSE 0 ;
ONEXT7QTY/D20 = IF YM EQ '&NEXT7P.EVAL' THEN ODRQTY ELSE 0 ;
ONEXT6QTY/D20 = IF YM EQ '&NEXT6P.EVAL' THEN ODRQTY ELSE 0 ;
ONEXT5QTY/D20 = IF YM EQ '&NEXT5P.EVAL' THEN ODRQTY ELSE 0 ;
ONEXT4QTY/D20 = IF YM EQ '&NEXT4P.EVAL' THEN ODRQTY ELSE 0 ;
ONEXT3QTY/D20 = IF YM EQ '&NEXT3P.EVAL' THEN ODRQTY ELSE 0 ;
ONEXT2QTY/D20 = IF YM EQ '&NEXT2P.EVAL' THEN ODRQTY ELSE 0 ;
ONEXT1QTY/D20 = IF YM EQ '&NEXT1P.EVAL' THEN ODRQTY ELSE 0 ;

BCURRQTY/D20  = IF YM EQ '&CURP.EVAL'   THEN BPSALQTY1 ELSE 0 ;
BNEXT11QTY/D20 = IF YM EQ '&NEXT11P.EVAL' THEN BPSALQTY1 ELSE 0 ;
BNEXT10QTY/D20 = IF YM EQ '&NEXT10P.EVAL' THEN BPSALQTY1 ELSE 0 ;
BNEXT9QTY/D20 = IF YM EQ '&NEXT9P.EVAL' THEN BPSALQTY1 ELSE 0 ;
BNEXT8QTY/D20 = IF YM EQ '&NEXT8P.EVAL' THEN BPSALQTY1 ELSE 0 ;
BNEXT7QTY/D20 = IF YM EQ '&NEXT7P.EVAL' THEN BPSALQTY1 ELSE 0 ;
BNEXT6QTY/D20 = IF YM EQ '&NEXT6P.EVAL' THEN BPSALQTY1 ELSE 0 ;
BNEXT5QTY/D20 = IF YM EQ '&NEXT5P.EVAL' THEN BPSALQTY1 ELSE 0 ;
BNEXT4QTY/D20 = IF YM EQ '&NEXT4P.EVAL' THEN BPSALQTY1 ELSE 0 ;
BNEXT3QTY/D20 = IF YM EQ '&NEXT3P.EVAL' THEN BPSALQTY1 ELSE 0 ;
BNEXT2QTY/D20 = IF YM EQ '&NEXT2P.EVAL' THEN BPSALQTY1 ELSE 0 ;
BNEXT1QTY/D20 = IF YM EQ '&NEXT1P.EVAL' THEN BPSALQTY1 ELSE 0 ;

CURRQTYP/D20  =  IF YM EQ '&CURP.EVAL' THEN PRDQTY ELSE 0 ;
NEXT11QTYP/D20 = IF YM EQ '&NEXT11P.EVAL' THEN PRDQTY ELSE 0 ;
NEXT10QTYP/D20 = IF YM EQ '&NEXT10P.EVAL' THEN PRDQTY ELSE 0 ;
NEXT9QTYP/D20 =  IF YM EQ '&NEXT9P.EVAL' THEN PRDQTY ELSE 0 ;
NEXT8QTYP/D20 =  IF YM EQ '&NEXT8P.EVAL' THEN PRDQTY ELSE 0 ;
NEXT7QTYP/D20 =  IF YM EQ '&NEXT7P.EVAL' THEN PRDQTY ELSE 0 ;
NEXT6QTYP/D20 =  IF YM EQ '&NEXT6P.EVAL' THEN PRDQTY ELSE 0 ;
NEXT5QTYP/D20 =  IF YM EQ '&NEXT5P.EVAL' THEN PRDQTY ELSE 0 ;
NEXT4QTYP/D20 =  IF YM EQ '&NEXT4P.EVAL' THEN PRDQTY ELSE 0 ;
NEXT3QTYP/D20 =  IF YM EQ '&NEXT3P.EVAL' THEN PRDQTY ELSE 0 ;
NEXT2QTYP/D20 =  IF YM EQ '&NEXT2P.EVAL' THEN PRDQTY ELSE 0 ;
NEXT1QTYP/D20 =  IF YM EQ '&NEXT1P.EVAL' THEN PRDQTY ELSE 0 ;


CURRQTYU/D20  = IF YM EQ '&PREV12P.EVAL' AND EXTRACTYM EQ '&PREV12P.EVAL'  AND WHL EQ 2 THEN ABS_FORECAST_METRIC_TBL.FCTQTY ELSE 0 ;
NEXT11QTYU/D20 = IF YM EQ '&PREV11P.EVAL' AND EXTRACTYM EQ '&PREV11P.EVAL' AND WHL EQ 2 THEN ABS_FORECAST_METRIC_TBL.FCTQTY ELSE 0 ;
NEXT10QTYU/D20 = IF YM EQ '&PREV10P.EVAL' AND EXTRACTYM EQ '&PREV10P.EVAL' AND WHL EQ 2 THEN ABS_FORECAST_METRIC_TBL.FCTQTY ELSE 0 ;
NEXT9QTYU/D20 = IF YM EQ '&PREV9P.EVAL' AND EXTRACTYM EQ '&PREV9P.EVAL'    AND WHL EQ 2 THEN ABS_FORECAST_METRIC_TBL.FCTQTY ELSE 0 ;
NEXT8QTYU/D20 = IF YM EQ '&PREV8P.EVAL' AND EXTRACTYM EQ '&PREV8P.EVAL'    AND WHL EQ 2 THEN ABS_FORECAST_METRIC_TBL.FCTQTY ELSE 0 ;
NEXT7QTYU/D20 = IF YM EQ '&PREV7P.EVAL' AND EXTRACTYM EQ '&PREV7P.EVAL'    AND WHL EQ 2 THEN ABS_FORECAST_METRIC_TBL.FCTQTY ELSE 0 ;
NEXT6QTYU/D20 = IF YM EQ '&PREV6P.EVAL' AND EXTRACTYM EQ '&PREV6P.EVAL'    AND WHL EQ 2 THEN ABS_FORECAST_METRIC_TBL.FCTQTY ELSE 0 ;
NEXT5QTYU/D20 = IF YM EQ '&PREV5P.EVAL' AND EXTRACTYM EQ '&PREV5P.EVAL'    AND WHL EQ 2 THEN ABS_FORECAST_METRIC_TBL.FCTQTY ELSE 0 ;
NEXT4QTYU/D20 = IF YM EQ '&PREV4P.EVAL' AND EXTRACTYM EQ '&PREV4P.EVAL'    AND WHL EQ 2 THEN ABS_FORECAST_METRIC_TBL.FCTQTY ELSE 0 ;
NEXT3QTYU/D20 = IF YM EQ '&PREV3P.EVAL' AND EXTRACTYM EQ '&PREV3P.EVAL'    AND WHL EQ 2 THEN ABS_FORECAST_METRIC_TBL.FCTQTY ELSE 0 ;
NEXT2QTYU/D20 = IF YM EQ '&PREV2P.EVAL' AND EXTRACTYM EQ '&PREV2P.EVAL'    AND WHL EQ 2 THEN ABS_FORECAST_METRIC_TBL.FCTQTY ELSE 0 ;
NEXT1QTYU/D20 = IF YM EQ '&PREV1P.EVAL' AND EXTRACTYM EQ '&PREV1P.EVAL'    AND WHL EQ 2 THEN ABS_FORECAST_METRIC_TBL.FCTQTY ELSE 0 ;

CURRQTYUA/D20  = IF YM EQ '&PREV12P.EVAL' AND EXTRACTYM EQ '&PREV12P.EVAL'  AND WHL GT 2 THEN ACTQTY ELSE 0 ;
NEXT11QTYUA/D20 = IF YM EQ '&PREV11P.EVAL' AND EXTRACTYM EQ '&PREV11P.EVAL' AND WHL GT 2 THEN ACTQTY ELSE 0 ;
NEXT10QTYUA/D20 = IF YM EQ '&PREV10P.EVAL' AND EXTRACTYM EQ '&PREV10P.EVAL' AND WHL GT 2 THEN ACTQTY ELSE 0 ;
NEXT9QTYUA/D20 = IF YM EQ '&PREV9P.EVAL' AND EXTRACTYM EQ '&PREV9P.EVAL'    AND WHL GT 2 THEN ACTQTY ELSE 0 ;
NEXT8QTYUA/D20 = IF YM EQ '&PREV8P.EVAL' AND EXTRACTYM EQ '&PREV8P.EVAL'    AND WHL GT 2 THEN ACTQTY ELSE 0 ;
NEXT7QTYUA/D20 = IF YM EQ '&PREV7P.EVAL' AND EXTRACTYM EQ '&PREV7P.EVAL'    AND WHL GT 2 THEN ACTQTY ELSE 0 ;
NEXT6QTYUA/D20 = IF YM EQ '&PREV6P.EVAL' AND EXTRACTYM EQ '&PREV6P.EVAL'    AND WHL GT 2 THEN ACTQTY ELSE 0 ;
NEXT5QTYUA/D20 = IF YM EQ '&PREV5P.EVAL' AND EXTRACTYM EQ '&PREV5P.EVAL'    AND WHL GT 2 THEN ACTQTY ELSE 0 ;
NEXT4QTYUA/D20 = IF YM EQ '&PREV4P.EVAL' AND EXTRACTYM EQ '&PREV4P.EVAL'    AND WHL GT 2 THEN ACTQTY ELSE 0 ;
NEXT3QTYUA/D20 = IF YM EQ '&PREV3P.EVAL' AND EXTRACTYM EQ '&PREV3P.EVAL'    AND WHL GT 2 THEN ACTQTY ELSE 0 ;
NEXT2QTYUA/D20 = IF YM EQ '&PREV2P.EVAL' AND EXTRACTYM EQ '&PREV2P.EVAL'    AND WHL GT 2 THEN ACTQTY ELSE 0 ;
NEXT1QTYUA/D20 = IF YM EQ '&PREV1P.EVAL' AND EXTRACTYM EQ '&PREV1P.EVAL'    AND WHL GT 2 THEN ACTQTY ELSE 0 ;

SAL_QTY/D20 = PREV12QTYS + PREV11QTYS + PREV10QTYS + PREV9QTYS + PREV8QTYS + PREV7QTYS + PREV6QTYS + PREV5QTYS
               + PREV4QTYS + PREV3QTYS + PREV2QTYS + PREV1QTYS ;

SAL_LY/D20 = PREV1QTYL + PREV2QTYL + PREV3QTYL + PREV4QTYL + PREV5QTYL + PREV6QTYL + PREV7QTYL + PREV8QTYL
             + PREV9QTYL + PREV10QTYL + PREV11QTYL + PREV12QTYL ;

FCT_CY/D20 = (PREV1QTYCF + PREV2QTYCF + PREV3QTYCF + PREV4QTYCF + PREV5QTYCF + PREV6QTYCF + PREV7QTYCF + PREV8QTYCF
             + PREV9QTYCF + PREV10QTYCF + PREV11QTYCF + PREV12QTYCF)- CURRQTYS  ;

FCT_QTY/D20 = (CURRQTYF + NEXT11QTYF + NEXT10QTYF + NEXT9QTYF + NEXT8QTYF + NEXT7QTYF + NEXT6QTYF + NEXT5QTYF
               + NEXT4QTYF + NEXT3QTYF + NEXT2QTYF + NEXT1QTYF) - CURRQTYS;
Lst_Difference/D20 = FCT_QTY - SAL_QTY ;
Cur_Difference/D20 = FCT_CY - SAL_LY ;
BP_Difference/D20 = PROJFISCALQTY - FISCALQTY ;
space/A100 = '    ';
DATE1/A7 = '&CURPD.EVAL';
DATE2/A7 = '&NEXT1PD.EVAL';
DATE3/A7 = '&NEXT2PD.EVAL';
DATE4/A7 = '&NEXT3PD.EVAL';
DATE5/A7 = '&NEXT4PD.EVAL';
DATE6/A7 = '&NEXT5PD.EVAL';
DATE7/A7 = '&NEXT6PD.EVAL';
DATE8/A7 = '&NEXT7PD.EVAL';
DATE9/A7 = '&NEXT8PD.EVAL';
DATE10/A7 = '&NEXT9PD.EVAL';
DATE11/A7 = '&NEXT10PD.EVAL';
DATE12/A7 = '&NEXT11PD.EVAL';
END
TABLE FILE HOLD2
SUM
SAL_LY
SAL_QTY
FCT_QTY
FCT_CY
SALEQTY
FISCALQTY
FISCALQTY
FISCALQTY
PROJFISCALQTY
 TOT.PROJFISCALQTY AS TOTPROJFISQTY
  PROJFISCALQTY
  FISCALAMT
  TOT.FISCALAMT AS TOTFISAMT
  FISCALAMT
 PROJFISCALAMT
 TOT.PROJFISCALAMT AS TOTPROJFISAMT
 PROJFISCALAMT
 CURRQTYF
 NEXT1QTYF
 NEXT2QTYF
 NEXT3QTYF
 NEXT4QTYF
 NEXT5QTYF
 NEXT6QTYF
 NEXT7QTYF
 NEXT8QTYF
 NEXT9QTYF
 NEXT10QTYF
 NEXT11QTYF

 CURRQTYP
 NEXT1QTYP
 NEXT2QTYP
 NEXT3QTYP
 NEXT4QTYP
 NEXT5QTYP
 NEXT6QTYP
 NEXT7QTYP
 NEXT8QTYP
 NEXT9QTYP
 NEXT10QTYP
 NEXT11QTYP

 DATE1
 DATE2
 DATE3
 DATE4
 DATE5
 DATE6
 DATE7
 DATE8
 DATE9
 DATE10
 DATE11
 DATE12

 CURRQTYP
 NEXT1QTYP
 NEXT2QTYP
 NEXT3QTYP
 NEXT4QTYP
 NEXT5QTYP
 NEXT6QTYP
 NEXT7QTYP
 NEXT8QTYP
 NEXT9QTYP
 NEXT10QTYP
 NEXT11QTYP

 OCURRQTY
 ONEXT1QTY
 ONEXT2QTY
 ONEXT3QTY
 ONEXT4QTY
 ONEXT5QTY
 ONEXT6QTY
 ONEXT7QTY
 ONEXT8QTY
 ONEXT9QTY
 ONEXT10QTY
 ONEXT11QTY

 BCURRQTY
 BNEXT1QTY
 BNEXT2QTY
 BNEXT3QTY
 BNEXT4QTY
 BNEXT5QTY
 BNEXT6QTY
 BNEXT7QTY
 BNEXT8QTY
 BNEXT9QTY
 BNEXT10QTY
 BNEXT11QTY

 BACURRQTY
 BANEXT1QTY
 BANEXT2QTY
 BANEXT3QTY
 BANEXT4QTY
 BANEXT5QTY
 BANEXT6QTY
 BANEXT7QTY
 BANEXT8QTY
 BANEXT9QTY
 BANEXT10QTY
 BANEXT11QTY

 ICURRQTY
 INEXT1QTY
 INEXT2QTY
 INEXT3QTY
 INEXT4QTY
 INEXT5QTY
 INEXT6QTY
 INEXT7QTY
 INEXT8QTY
 INEXT9QTY
 INEXT10QTY
 INEXT11QTY
 BCURRQTY
 OCURRQTY

PREV12QTYCF
PREV11QTYCF
PREV10QTYCF
PREV9QTYCF
PREV8QTYCF
PREV7QTYCF
PREV6QTYCF
PREV5QTYCF
PREV4QTYCF
PREV3QTYCF
PREV2QTYCF
PREV1QTYCF

PREV12QTYL
PREV11QTYL
PREV10QTYL
PREV9QTYL
PREV8QTYL
PREV7QTYL
PREV6QTYL
PREV5QTYL
PREV4QTYL
PREV3QTYL
PREV2QTYL
PREV1QTYL

PREV12QTYS
PREV11QTYS
PREV10QTYS
PREV9QTYS
PREV8QTYS
PREV7QTYS
PREV6QTYS
PREV5QTYS
PREV4QTYS
PREV3QTYS
PREV2QTYS
PREV1QTYS

CURRQTYU
NEXT1QTYU
NEXT2QTYU
NEXT3QTYU
NEXT4QTYU
NEXT5QTYU
NEXT6QTYU
NEXT7QTYU
NEXT8QTYU
NEXT9QTYU
NEXT10QTYU
NEXT11QTYU

CURRQTYUA
NEXT1QTYUA
NEXT2QTYUA
NEXT3QTYUA
NEXT4QTYUA
NEXT5QTYUA
NEXT6QTYUA
NEXT7QTYUA
NEXT8QTYUA
NEXT9QTYUA
NEXT10QTYUA
NEXT11QTYUA

Price1
Price2
Price3
Price4
Price5
Price6
Price7
Price8
Price9
Price10
Price11
Price12
FST.CATQTY
COMPUTE CNT/I4=CNT+1;
ABS_CO
SM
CUST
CSTNM
PC
CSRID
CSRNM
CPARTNO
BY PARTNO
BY PARTNOA
BY PARTNOB
-*WHERE ( YM EQ '&CURP.EVAL' )
-*WHERE ( CO EQ 'H' )AND ( DIV1NM EQ 'IBU' ) AND (CUST = 'VW01' OR  'VW02')  ;
-*WHERE (FCT_CY NE '0') OR (SAL_QTY NE '0');
-*WHERE ( CO EQ 'H' )AND ( DIV1NM EQ 'IBU' ) AND (CUST EQ 'BA08') ;
-*WHERE (PARTNO LIKE '6%');
-*WHERE (PARTNO EQ '6204NR*                   6');
-*WHERE ( CO EQ 'H' )AND ( DIV1NM EQ 'IBU' ) AND (SM EQ '9D');
-*WHERE RECORDLIMIT = 100;
ON TABLE HOLD AS HOLD1A
END
-RUN
JOIN
 INNER HOLD1A.HOLD1A.ABS_CO AND HOLD1A.HOLD1A.CUST AND HOLD1A.HOLD1A.PARTNO IN
HOLD1A TO UNIQUE VIEW_DIF_PARTS.VIEW_DIF_PARTS.COMPANY
 AND VIEW_DIF_PARTS.VIEW_DIF_PARTS.CUSTOMER
 AND VIEW_DIF_PARTS.VIEW_DIF_PARTS.NSK_PART IN VIEW_DIF_PARTS AS J1
 END
  DEFINE FILE HOLD1A
PARTNOA/A27 = PARTNO ;
TERR/A2 = SM;
PRNT/A60='<button type="button">PDF OUTPUT</button>';
SAL_QTY/D20 = PREV12QTYS + PREV11QTYS + PREV10QTYS + PREV9QTYS + PREV8QTYS + PREV7QTYS + PREV6QTYS + PREV5QTYS
               + PREV4QTYS + PREV3QTYS + PREV2QTYS + PREV1QTYS ;

ASAL_QTY/D20 = (PREV1QTYS + PREV2QTYS + PREV3QTYS + PREV4QTYS + PREV5QTYS + PREV6QTYS)/6 ;

SAL_LY/D20 = PREV1QTYL + PREV2QTYL + PREV3QTYL + PREV4QTYL + PREV5QTYL + PREV6QTYL + PREV7QTYL + PREV8QTYL
             + PREV9QTYL + PREV10QTYL + PREV11QTYL + PREV12QTYL ;

FCT_CY/D20 = (PREV1QTYCF + PREV2QTYCF + PREV3QTYCF + PREV4QTYCF + PREV5QTYCF + PREV6QTYCF + PREV7QTYCF + PREV8QTYCF
             + PREV9QTYCF + PREV10QTYCF + PREV11QTYCF + PREV12QTYCF)- CURRQTYS;

FCT_QTY/D20 = (CURRQTYF + NEXT11QTYF + NEXT10QTYF + NEXT9QTYF + NEXT8QTYF + NEXT7QTYF + NEXT6QTYF + NEXT5QTYF
               + NEXT4QTYF + NEXT3QTYF + NEXT2QTYF + CURRQTYF) - CURRQTYS;

AFCT_QTY/D20 = (CURRQTYF + NEXT1QTYF + NEXT2QTYF + NEXT3QTYF + NEXT4QTYF + NEXT5QTYF)/6 ;


NEW_FCT_QTY/D20 = CURRQTYF + NEXT11QTYF + NEXT10QTYF + NEXT9QTYF + NEXT8QTYF + NEXT7QTYF + NEXT6QTYF + NEXT5QTYF
               + NEXT4QTYF + NEXT3QTYF + NEXT2QTYF + NEXT1QTYF ;
TOTAL_FCT/A30  =  FTOA(NEW_FCT_QTY,   '(D20)', TOTAL_FCT);
TOTALFCTQTYID/A100 = 'SPNTOTALFCTQTY' || EDIT(CNT);
TOTFCTQTY/A350='<span id='||TOTALFCTQTYID||' value='| TOTAL_FCT |'name='||TOTALFCTQTYID||' >'|TOTAL_FCT|'</span>';

TEST_AMT/D20 = PROJFISCALAMT ;
AVG_Difference/D20 = AFCT_QTY - ASAL_QTY ;
Lst_Difference/D20 = FCT_QTY - SAL_QTY ;
Cur_Difference/D20 = FCT_CY - SAL_LY ;
BP_Difference/D20 = PROJFISCALQTY - FISCALQTY ;
SPACE/A400 = 'Comments: ';
SPACE1/A450 ='<TEXTAREA style="width:800px;"  name="SPCTXT" ></TEXTAREA>';
-*FLDNAME/A100 = CUST | '_' | PARTNO | '_FCTTEXT';
FLDNAME/A100 = CUST | '_' | EDIT(CNT) | '_FCTTEXT';
-*CNT
CUSTPARAM/A100 = '''' || CUST || '''';
PARTNOPARAM/A100 = '''' || EDIT(CNT) || '''';

ALPHA_FCT/A30  =  FTOA(CURRQTYF,   '(D20c)', ALPHA_FCT);
ALPHA_FCT1/A30 =  FTOA(NEXT1QTYF, '(D20c)',  ALPHA_FCT1);
ALPHA_FCT2/A30 =  FTOA(NEXT2QTYF, '(D20c)',  ALPHA_FCT2);
ALPHA_FCT3/A30 =  FTOA(NEXT3QTYF, '(D20c)',  ALPHA_FCT3);
ALPHA_FCT4/A30 =  FTOA(NEXT4QTYF, '(D20c)',  ALPHA_FCT4);
ALPHA_FCT5/A30 =  FTOA(NEXT5QTYF, '(D20c)',  ALPHA_FCT5);
ALPHA_FCT6/A30 =  FTOA(NEXT6QTYF, '(D20c)',  ALPHA_FCT6);
ALPHA_FCT7/A30 =  FTOA(NEXT7QTYF, '(D20c)',  ALPHA_FCT7);
ALPHA_FCT8/A30 =  FTOA(NEXT8QTYF, '(D20c)',  ALPHA_FCT8);
ALPHA_FCT9/A30 =  FTOA(NEXT9QTYF, '(D20c)',  ALPHA_FCT9);
ALPHA_FCT10/A30 = FTOA(NEXT10QTYF, '(D20c)', ALPHA_FCT10);
ALPHA_FCT11/A30 = FTOA(NEXT11QTYF, '(D20c)', ALPHA_FCT11);
INFLD1/A600='<INPUT style = "text-align:right;  width:60px"  value='|| ALPHA_FCT ||' name='||FLDNAME||'_1 id='||FLDNAME||'_1 onChange="OnChangeFCTFields('|| CUSTPARAM ||','|| PARTNOPARAM ||');">';
INFLD2/A600='<INPUT style = "text-align:right;  width:60px"  value='|| ALPHA_FCT1 ||' name='||FLDNAME||'_2 id='||FLDNAME||'_2 onChange="OnChangeFCTFields('|| CUSTPARAM ||','|| PARTNOPARAM ||');">';
INFLD3/A600='<INPUT style = "text-align:right;  width:60px" value='|| ALPHA_FCT2 ||' name='||FLDNAME||'_3 id='||FLDNAME||'_3 onChange="OnChangeFCTFields('|| CUSTPARAM ||','|| PARTNOPARAM ||');">';
INFLD4/A600='<INPUT style = "text-align:right;  width:60px" value='|| ALPHA_FCT3 ||' name='||FLDNAME||'_4 id='||FLDNAME||'_4 onChange="OnChangeFCTFields('|| CUSTPARAM ||','|| PARTNOPARAM ||');">';
INFLD5/A600='<INPUT style = "text-align:right;  width:60px" value='|| ALPHA_FCT4 ||' name='||FLDNAME||'_5 id='||FLDNAME||'_5 onChange="OnChangeFCTFields('|| CUSTPARAM ||','|| PARTNOPARAM ||');">';
INFLD6/A600='<INPUT style = "text-align:right;  width:60px" value='|| ALPHA_FCT5 ||' name='||FLDNAME||'_6 id='||FLDNAME||'_6 onChange="OnChangeFCTFields('|| CUSTPARAM ||','|| PARTNOPARAM ||');">';
INFLD7/A600='<INPUT style = "text-align:right;  width:60px" value='|| ALPHA_FCT6 ||' name='||FLDNAME||'_7 id='||FLDNAME||'_7 onChange="OnChangeFCTFields('|| CUSTPARAM ||','|| PARTNOPARAM ||');">';
INFLD8/A600='<INPUT style = "text-align:right;  width:60px" value='|| ALPHA_FCT7 ||' name='||FLDNAME||'_8 id='||FLDNAME||'_8 onChange="OnChangeFCTFields('|| CUSTPARAM ||','|| PARTNOPARAM ||');">';
INFLD9/A600='<INPUT style = "text-align:right;  width:60px" value='|| ALPHA_FCT8 ||' name='||FLDNAME||'_9 id='||FLDNAME||'_9 onChange="OnChangeFCTFields('|| CUSTPARAM ||','|| PARTNOPARAM ||');">';
INFLD10/A600='<INPUT style = "text-align:right; width:60px" value='|| ALPHA_FCT9 ||' name='||FLDNAME||'_10 id='||FLDNAME||'_10 onChange="OnChangeFCTFields('|| CUSTPARAM ||','|| PARTNOPARAM ||');">';
INFLD11/A600='<INPUT style = "text-align:right; width:60px" value='|| ALPHA_FCT10 ||' name='||FLDNAME||'_11 id='||FLDNAME||'_11 onChange="OnChangeFCTFields('|| CUSTPARAM ||','|| PARTNOPARAM ||');">';
INFLD12/A600='<INPUT style = "text-align:right; width:60px" value='|| ALPHA_FCT11 ||' name='||FLDNAME||'_12 id='||FLDNAME||'_12 onChange="OnChangeFCTFields('|| CUSTPARAM ||','|| PARTNOPARAM ||');">';
TEST_AMT1/D20 = PROJFISCALAMT + CURRQTYF;
HIDSR/A100 = '<INPUT type="hidden" id="hidSRVal" value='|| TERR ||'>';
Price_Q/D20.2 = IF Price1 GT 0 THEN Price1 ELSE IF Price2 GT 0 THEN Price2 ELSE IF Price3 GT 0 THEN Price3
                ELSE IF Price4 GT 0 THEN Price4 ELSE IF Price5 GT 0 THEN Price5 ELSE IF Price6 GT 0 THEN Price6
    ELSE IF Price7 GT 0 THEN Price7 ELSE IF Price8 GT 0 THEN Price8 ELSE IF Price9 GT 0 THEN Price9
    ELSE IF Price10 GT 0 THEN Price10 ELSE IF Price11 GT 0 THEN Price11 ELSE IF Price12 GT 0 THEN Price12 ELSE 0;
CUSTNM/A90 = CUST | ':'|CSTNM ;
QTYTXT/A15 = 'Prev Year Sales';
UNRTXT/A21 = 'Unrealized' ;
BPTXT/A2 = 'BP' ;
FCTTXT/A4 = 'Fcst' ;
RCVTXT/A15 = 'Received Orders' ;
INVTXT/A19 = 'Month End Inventory' ;
PRDTXT/A10 = 'Production' ;
BALTXT/A12 = 'Balance Line' ;
NEWFCTTXT/A17 = 'New Fcst Planning' ;
PRFTXT/A10 = 'Profit %' ;
CMTTXT/A10 = 'Comments' ;
SPACE_1/A10 = '';
END
SET LINES = 40
TABLE FILE HOLD1A
SUM
     QTYTXT AS ' '
     PREV12QTYS AS ' '
     PREV11QTYS AS ' '
     PREV10QTYS AS ' '
     PREV9QTYS AS ' '
     PREV8QTYS AS ' '
     PREV7QTYS AS ' '
     PREV6QTYS AS ' '
     PREV5QTYS AS ' '
     PREV4QTYS AS ' '
     PREV3QTYS AS ' '
     PREV2QTYS AS ' '
     PREV1QTYS AS ' '
     SAL_QTY   AS ' ' OVER
     UNRTXT AS ''
     COMPUTE UNREAL1/D20  =  CURRQTYU   - CURRQTYUA ; AS ''
     COMPUTE UNREAL2/D20  =  NEXT11QTYU - NEXT11QTYUA  ; AS ''
     COMPUTE UNREAL3/D20  =  NEXT10QTYU - NEXT10QTYUA  ; AS ''
     COMPUTE UNREAL4/D20  =  NEXT9QTYU  - NEXT9QTYUA  ; AS ''
     COMPUTE UNREAL5/D20  =  NEXT8QTYU  - NEXT8QTYUA  ; AS ''
     COMPUTE UNREAL6/D20  =  NEXT7QTYU  - NEXT7QTYUA  ; AS ''
     COMPUTE UNREAL7/D20  =  NEXT6QTYU  - NEXT7QTYUA  ; AS ''
     COMPUTE UNREAL8/D20  =  NEXT5QTYU  - NEXT5QTYUA  ; AS ''
     COMPUTE UNREAL9/D20  =  NEXT4QTYU  - NEXT4QTYUA  ; AS ''
     COMPUTE UNREAL10/D20 =  NEXT3QTYU  - NEXT3QTYUA ; AS ''
     COMPUTE UNREAL11/D20 =  NEXT2QTYU  - NEXT2QTYUA ; AS ''
     COMPUTE UNREAL12/D20 =  NEXT1QTYU  - NEXT1QTYUA ; AS ''
     SPACE_1 AS ''  OVER
     INVTXT AS ''
     ICURRQTY AS ''
  INEXT1QTY AS ''
  INEXT2QTY AS ''
  INEXT3QTY AS ''
  INEXT4QTY AS ''
  INEXT5QTY AS ''
  INEXT6QTY AS ''
  INEXT7QTY AS ''
  INEXT8QTY AS ''
  INEXT9QTY AS ''
  INEXT10QTY AS ''
  INEXT11QTY AS ''
  SPACE_1 AS ''  OVER
  SPACE_1 AS ''
  DATE1 AS ''
  DATE2 AS ''
  DATE3 AS ''
  DATE4 AS ''
  DATE5 AS ''
  DATE6 AS ''
  DATE7 AS ''
  DATE8 AS ''
  DATE9 AS ''
  DATE10 AS ''
  DATE11 AS ''
  DATE12 AS ''
  SPACE_1 AS ''  OVER
  BPTXT AS ''
  BCURRQTY AS ''
  BNEXT1QTY AS ''
  BNEXT2QTY AS ''
  BNEXT3QTY AS ''
  BNEXT4QTY AS ''
  BNEXT5QTY AS ''
  BNEXT6QTY AS ''
  BNEXT7QTY AS ''
  BNEXT8QTY AS ''
  BNEXT9QTY AS ''
  BNEXT10QTY AS ''
  BNEXT11QTY AS ''
  SPACE_1 AS ''  OVER
  FCTTXT AS ''
  CURRQTYF AS ''
  NEXT1QTYF AS ''
  NEXT2QTYF AS ''
  NEXT3QTYF AS ''
  NEXT4QTYF AS ''
  NEXT5QTYF AS ''
  NEXT6QTYF AS ''
  NEXT7QTYF AS ''
  NEXT8QTYF AS ''
  NEXT9QTYF AS ''
  NEXT10QTYF AS ''
  NEXT11QTYF AS ''
  NEW_FCT_QTY    AS '' OVER
  RCVTXT AS ''
  OCURRQTY AS ''
  ONEXT1QTY AS ''
  ONEXT2QTY AS ''
  ONEXT3QTY AS ''
  ONEXT4QTY AS ''
  ONEXT5QTY AS ''
  ONEXT6QTY AS ''
  ONEXT7QTY AS ''
  ONEXT8QTY AS ''
  ONEXT9QTY AS ''
  ONEXT10QTY AS ''
  ONEXT11QTY AS ''
  SPACE_1 AS ''  OVER
  PRDTXT AS ''
  CURRQTYP AS ''
  NEXT1QTYP AS ''
  NEXT2QTYP AS ''
  NEXT3QTYP AS ''
  NEXT4QTYP AS ''
  NEXT5QTYP AS ''
  NEXT6QTYP AS ''
  NEXT7QTYP AS ''
  NEXT8QTYP AS ''
  NEXT9QTYP AS ''
  NEXT10QTYP AS ''
  NEXT11QTYP AS ''
  SPACE_1 AS ''  OVER
  BALTXT AS ''
  BACURRQTY AS ''
 BANEXT1QTY AS ''
 BANEXT2QTY AS ''
 BANEXT3QTY AS ''
 BANEXT4QTY AS ''
 BANEXT5QTY AS ''
 BANEXT6QTY AS ''
 BANEXT7QTY AS ''
 BANEXT8QTY AS ''
 BANEXT9QTY AS ''
 BANEXT10QTY AS ''
 BANEXT11QTY AS ''
 SPACE_1 AS ''  OVER
 NEWFCTTXT AS ''
 SPACE_1 AS ''
 SPACE_1 AS ''
 SPACE_1 AS ''
 SPACE_1 AS ''
 SPACE_1 AS ''
 SPACE_1 AS ''
 SPACE_1 AS ''
 SPACE_1 AS ''
 SPACE_1 AS ''
 SPACE_1 AS ''
 SPACE_1 AS ''
 SPACE_1 AS ''
 SPACE_1 AS ''
BY CUST NOPRINT
BY PARTNO NOPRINT
BY PARTNOA NOPRINT
ON CUST NOSPLIT SUBHEAD
"CSR:<CSRID<CSRNM Territory<SM <+0> Cust:<CUST<CSTNM"
ON PARTNO NOSPLIT SUBHEAD
"Customer Part Number: <CPARTNO NSK Part Number: <PARTNO<+0>Price:<Price_Q <+0>Box Qty:<CATQTY "
"<+0> <+0> <+0> <+0> <+0>PC: <+0><PC <+0> <+0> <+0> <+0> <+0> <+0> "
"Calendar Year &PRE1LY.EVAL Sales Qty <SAL_LY <+0> <+0> Current FY BP Qty <FISCALQTY <+0> <+0> Average 6-Mths Sales<ASAL_QTY "
"Calendar Year &CURY.EVAL Projected <FCT_CY <+0> <+0> Projected FY Qty <PROJFISCALQTY <+0> <+0> Average 6-Mths Fct<AFCT_QTY"
"(Projected - Sales)  Difference <Cur_Difference <+0> <+0> (FY-BP)Difference <BP_Difference <+0> <+0>(Avg Sls - Avg fct) Diff<AVG_Difference "
"<+0> <+0> <+0> <+0> <+0> <+0> <+0> <+0> <+0> <+0> <+0> <+0> <+0>"
" <+0>&CURMD.EVAL<+0>&NEXT1MD.EVAL<+0>&NEXT2MD.EVAL<+0>&NEXT3MD.EVAL<+0>&NEXT4MD.EVAL<+0>&NEXT5MD.EVAL<+0>&NEXT6MD.EVAL<+0>&NEXT7MD.EVAL<+0>&NEXT8MD.EVAL<+0>&NEXT9MD.EVAL<+0>&NEXT10MD.EVAL<+0>&NEXT11MD.EVAL<+0> "
ON PARTNOA SUBFOOT
"<CMTTXT"
" "
WHERE (FCT_CY NE '0') ;
WHERE (SAL_QTY NE '0');
ON TABLE SET PAGE-NUM OFF
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
-*ON TABLE PCHOLD FORMAT EXL2K
ON TABLE HOLD AS REP001 FORMAT HTMTABLE
-*ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
     UNITS=IN,
     LEFTMARGIN=0.000000,
     RIGHTMARGIN=0.000000,
     TOPMARGIN=0.180556,
     BOTTOMMARGIN=0.180556,
     SQUEEZE=ON,
     ORIENTATION=LANDSCAPE,
$
TYPE=REPORT,
     BORDER-TOP=LIGHT,
     BORDER-BOTTOM=LIGHT,
     BORDER-LEFT=LIGHT,
     BORDER-RIGHT=LIGHT,
     BORDER-TOP-COLOR='WHITE',
     BORDER-BOTTOM-COLOR='WHITE',
     BORDER-LEFT-COLOR='WHITE',
     BORDER-RIGHT-COLOR='WHITE',
     FONT='ARIAL',
     SIZE=8,
     RIGHTGAP=0.013889,
     LEFTGAP=0.055556,
$
TYPE=HEADING,STYLE=BOLD,HEADALIGN=BODY,SQUEEZE=ON,$
TYPE=HEADING,BY=1, LINE=1,ITEM=1, COLSPAN=1, STYLE = BOLD, JUSTIFY=RIGHT, $
TYPE=HEADING,BY=1, LINE=1,OBJECT=FIELD,COLSPAN=2, STYLE = BOLD, JUSTIFY=RIGHT, $
TYPE=SUBHEAD,BY=1,BACKCOLOR=RGB(212 192 212),STYLE=BOLD,HEADALIGN=BODY,$
TYPE=SUBHEAD,BY=1,LINE=2,BACKCOLOR=RGB(212 192 202),STYLE=BOLD,HEADALIGN=BODY,$
TYPE=SUBHEAD,BY=2,STYLE=BOLD,HEADALIGN=BODY,$
TYPE=SUBFOOT,STYLE=BOLD,HEADALIGN=BODY,$
TYPE = SUBHEAD,BY=1, LINE=1,ITEM=1, COLSPAN=1, STYLE = BOLD, JUSTIFY=RIGHT, $
TYPE = SUBHEAD,BY=1, LINE=1,ITEM=3, COLSPAN=2, STYLE = BOLD, JUSTIFY=RIGHT, $
TYPE = SUBHEAD,BY=1, LINE=1,ITEM=4, COLSPAN=2, STYLE = BOLD, JUSTIFY=RIGHT, $
TYPE = SUBHEAD,BY=1, LINE=1,ITEM=5, COLSPAN=1, STYLE = BOLD, JUSTIFY=LEFT, $
TYPE = SUBHEAD,BY=1, LINE=1,ITEM=6, COLSPAN=2, STYLE = BOLD, JUSTIFY=LEFT, $
TYPE = SUBHEAD,BY=1, LINE=1,ITEM=8, COLSPAN=1, STYLE = BOLD, JUSTIFY=RIGHT, $
TYPE = SUBHEAD,BY=1, LINE=1,ITEM=9, COLSPAN=3, STYLE = BOLD, JUSTIFY=RIGHT, $
TYPE = SUBHEAD,BY=2, LINE=1,ITEM=1, COLSPAN=1, STYLE = BOLD,BACKCOLOR=RGB(212 234 192), JUSTIFY=LEFT, $
TYPE = SUBHEAD,BY=2, LINE=1,ITEM=2, COLSPAN=2, STYLE = BOLD, JUSTIFY=LEFT, $
TYPE = SUBHEAD,BY=2, LINE=1,ITEM=3, COLSPAN=2, STYLE = BOLD,BACKCOLOR=RGB(212 234 192), JUSTIFY=LEFT, $
TYPE = SUBHEAD,BY=2, LINE=1,ITEM=4, COLSPAN=3, STYLE = BOLD, JUSTIFY=LEFT, $
TYPE = SUBHEAD,BY=2, LINE=1,ITEM=5, COLSPAN=1, STYLE = BOLD,BACKCOLOR=RGB(212 234 192), JUSTIFY=LEFT, $
TYPE = SUBHEAD,BY=2, LINE=1,ITEM=8, COLSPAN=1, STYLE = BOLD,BACKCOLOR=RGB(212 234 192), JUSTIFY=LEFT, $
TYPE = SUBHEAD,BY=2, LINE=2,ITEM=5, COLSPAN=1, STYLE = BOLD,BACKCOLOR=RGB(212 234 192), JUSTIFY=LEFT, $
TYPE = SUBHEAD,BY=2, LINE=3,ITEM=1, COLSPAN=2, STYLE = BOLD, JUSTIFY=LEFT, $
TYPE = SUBHEAD,BY=2, LINE=4,ITEM=1, COLSPAN=2, STYLE = BOLD, JUSTIFY=LEFT, $
TYPE = SUBHEAD,BY=2, LINE=5,ITEM=1, COLSPAN=2, STYLE = BOLD, JUSTIFY=LEFT, $
TYPE = SUBHEAD,BY=2,LINE=3,ITEM=1,  COLSPAN=2, STYLE = BOLD,BACKCOLOR=RGB(212 234 192),JUSTIFY=LEFT,$
TYPE = SUBHEAD,BY=2,LINE=3,ITEM=5,  COLSPAN=2, STYLE = BOLD,BACKCOLOR=RGB(212 234 192),JUSTIFY=LEFT,  $
TYPE = SUBHEAD,BY=2, LINE=3,ITEM=9, COLSPAN=2, STYLE = BOLD,BACKCOLOR=RGB(212 234 192),JUSTIFY=LEFT, $
TYPE = SUBHEAD,BY=2,LINE=4,ITEM=1,  COLSPAN=2, STYLE = BOLD,BACKCOLOR=RGB(212 234 192),JUSTIFY=LEFT,$
TYPE = SUBHEAD,BY=2,LINE=4,ITEM=5,  COLSPAN=2, STYLE = BOLD,BACKCOLOR=RGB(212 234 192),JUSTIFY=LEFT,  $
TYPE = SUBHEAD,BY=2, LINE=4,ITEM=9, COLSPAN=2, STYLE = BOLD,BACKCOLOR=RGB(212 234 192),JUSTIFY=LEFT, $
TYPE = SUBHEAD,BY=2,LINE=5,ITEM=1,  COLSPAN=2, STYLE = BOLD,BACKCOLOR=RGB(212 234 192),JUSTIFY=LEFT,$
TYPE = SUBHEAD,BY=2,LINE=5,ITEM=5,  COLSPAN=2, STYLE = BOLD,BACKCOLOR=RGB(212 234 192),JUSTIFY=LEFT,  $
TYPE = SUBHEAD,BY=2,LINE=5,ITEM=9,  COLSPAN=2, STYLE = BOLD,BACKCOLOR=RGB(212 234 192),JUSTIFY=LEFT,  $
TYPE = SUBHEAD,BY=2,LINE=5,ITEM=10,  COLSPAN=1, STYLE = BOLD,BACKCOLOR=RGB(255 255 191),JUSTIFY=LEFT,  $
TYPE = SUBHEAD,BY=2, LINE=6,ITEM=5, COLSPAN=2, STYLE = BOLD, JUSTIFY=LEFT, $
TYPE=DATA,COLUMN=N3,STYLE=BOLD,$
TYPE=DATA,COLUMN=N17,STYLE=BOLD,$
TYPE=DATA,COLUMN=N31,STYLE=BOLD,$
TYPE=DATA,COLUMN=N31,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N32,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N33,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N34,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N35,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N36,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N37,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N38,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N39,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N40,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N41,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N42,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N43,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N44,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N45,STYLE=BOLD,$
TYPE=DATA,COLUMN=N46,STYLE=BOLD,$
TYPE=DATA,COLUMN=N47,STYLE=BOLD,$
TYPE=DATA,COLUMN=N48,STYLE=BOLD,$
TYPE=DATA,COLUMN=N49,STYLE=BOLD,$
TYPE=DATA,COLUMN=N50,STYLE=BOLD,$
TYPE=DATA,COLUMN=N51,STYLE=BOLD,$
TYPE=DATA,COLUMN=N52,STYLE=BOLD,$
TYPE=DATA,COLUMN=N53,STYLE=BOLD,$
TYPE=DATA,COLUMN=N54,STYLE=BOLD,$
TYPE=DATA,COLUMN=N55,STYLE=BOLD,$
TYPE=DATA,COLUMN=N56,STYLE=BOLD,$
TYPE=DATA,COLUMN=N57,STYLE=BOLD,$
TYPE=DATA,COLUMN=N58,STYLE=BOLD,$
TYPE=DATA,COLUMN=N59,STYLE=BOLD,$
TYPE=DATA,COLUMN=N73,STYLE=BOLD,$
TYPE=DATA,COLUMN=N87,STYLE=BOLD,$
TYPE=DATA,COLUMN=N101,STYLE=BOLD,$
TYPE=DATA,COLUMN=N115,STYLE=BOLD,$
TYPE=DATA,COLUMN=N129,STYLE=BOLD,$
TYPE=DATA,COLUMN=N115,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N116,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N117,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N118,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N119,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N120,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N121,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N122,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N123,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N124,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N125,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N126,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N127,BACKCOLOR=RGB(255 255 191),$
TYPE=DATA,COLUMN=N128,BACKCOLOR=RGB(255 255 191),$
ENDSTYLE
END
-IF &LINES EQ 0 GOTO MESSAGE ;
-GOTO FINISH ;
-MESSAGE
-INCLUDE NODATA_MESSAGE
-FINISH
SET HTMLFORMTYPE=XLS
-HTMLFORM BEGIN
!IBI.FIL.REP001;
-HTMLFORM END
 

First of all, an Excel report and an HTML report are two totally different things. The fact that Excel opens in a browser doesn't make it an HTML report. Second, I do not think the page-breaks carry over into an Excel report. That is a function controlled by Excel. You may be able to get something similar by using the table of contents feature and breaking your report into separate sheets. If you have to have them all on the same sheet, you'll have to manage the page-breaks withing excel. WF will put the footings, etc. in the correct place, but the physical page break (i.e. for printed pages) is not inserted. Control of printed pages is best done in PDF format.

Another suggestion for next time would be to recreate your issue using the CAR file. That's an awful lot of code for someone to look through, most of which is not related to the issue. Simpler is better.

(SOLVED)As always, thanks Darin. I know I tried every suggestion to no avail. I probably won't be at summit this year to thank you personally as I did last year but as always, your answers are appreciated.