I want to only create a hold file from this procedure.
APP HOLD BASEAPP
data
ON TABLE SET PAGE-NUM OFF
ON TABLE SET BYDISPLAY ON
ON TABLE SET BYPANEL ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF OPEN
ON TABLE SET HTMLCSS ON
END
HOLD AS CATALOGINDEX11 FORMAT WP
-RUN
when I run this I get the PDF report and the hold file. Is there anyway to only get the hold file because I am creating my report in the next procedure...
thanks

quote:

ON TABLE PCHOLD FORMAT PDF OPEN

BJK,
Get rid of this line
"ON TABLE PCHOLD FORMAT PDF OPEN"

Still getting part of the first report and none of my other reports after removing that statement.

Try this.

APP HOLD BASEAPP
data
ON TABLE HOLD AS CATALOGINDEX11 FORMAT WP
END
-RUN

Sayed

Still getting the first report....
bjk

Can you post your full code?

Sayed

You've just got to follow the rules for properly creating your statement. If you're just creating your hold file and then creating the report in a subsequent request, all of the ON TABLE ... statements you have are not necessary - they make no difference if you're just holding the data. All you need is
APP HOLD BASEAPP
TABLE FILE...
ON TABLE HOLD AS CATALOGINDEX11
END
-RUN

Then you can TABLE FILE CATALOGINDEX11 and create whatever report you needed.

Darin,
That worked I removed all formatting details and i got my two reports. Now a question. I am using the PDF open and PDF close for the two reports i am generating. Is there a way to start the second report over at page 1? It picks up with the next page number from the first report.
thanks
brian

sorry but still having problems with this issue. I will try to explain a little of what i am trying to do. I have a catalog and I am trying to reference in an index the sub headings that are all thru the report. The first report i am running to create a hold file has page number next to the sub headings. I do not want this report to print i just want the hold file so i can extract the page numbers that are next to the sub headings. I get the hold file but when i compare line for line the hold file has more detail lines than the report if i display it. This is the issue because it throws off the page numbers after awhile.
here is the code it is much so sorry if were not suppose to do this.

-* File nonfood.fex
-* CATHEAD NOPRINT AS 'Major Head'
-* COMMODITYCLASSNAME NOPRINT AS 'ccName'
-* COMMODITYCLASSCODE NOPRINT AS 'CC'
-* ITEMBUYERCODE NOPRINT AS 'Buyer'
-* BUYERNAME NOPRINT AS 'Buyer Name'
-* COMPUTE INDEXVALUE/A5 = EDIT(TABPAGENO);
-* COMPUTE INDICATOR/A1 = 'N';
-SET ECHO=ALL;
-SET &compet = 6;
-SET &retail1 = 08;
-SET &retail2 = 01;
-SET &retail3 = 02;
-SET &retail4 = 03;
-SET &addpercent = 0.0;
-SET &dept = 'G';
-SET &formtype = 'PDF';
-SET &sellprice = 1;
-SET &sellpricenum = &sellprice;
-CHECK1
-SET &keepretail1 = &retail1;
-SET &retail1 = 2;
-IF &keepretail1 EQ 73 THEN GOTO SET73A;
-IF &keepretail1 EQ 74 THEN GOTO SET74A;
-IF &keepretail1 EQ 75 THEN GOTO SET75A;
-IF &keepretail1 EQ 76 THEN GOTO SET76A;
-SET &addtoretail1 = 0;
-SET &retail1 = &keepretail1;
-GOTO CHECK2
-SET73A
-SET &addtoretail1 = 5;
-GOTO CHECK2
-SET74A
-SET &addtoretail1 = 9;
-GOTO CHECK2
-SET75A
-SET &addtoretail1 = 12;
-GOTO CHECK2
-SET76A
-SET &addtoretail1 = 35;
-CHECK2
-SET &keepretail2 = &retail2;
-SET &retail2 = 2;
-IF &keepretail2 EQ 73 THEN GOTO SET73B;
-IF &keepretail2 EQ 74 THEN GOTO SET74B;
-IF &keepretail2 EQ 75 THEN GOTO SET75B;
-IF &keepretail2 EQ 76 THEN GOTO SET76B;
-SET &addtoretail2 = 0;
-SET &retail2 = &keepretail2;
-GOTO CHECK3
-SET73B
-SET &addtoretail2 = 5;
-GOTO CHECK3
-SET74B
-SET &addtoretail2 = 9;
-GOTO CHECK3
-SET75B
-SET &addtoretail2 = 12;
-GOTO CHECK3
-SET76B
-SET &addtoretail2 = 35;
-CHECK3
-SET &keepretail3 = &retail3;
-SET &retail3 = 2;
-IF &keepretail3 EQ 73 THEN GOTO SET73C;
-IF &keepretail3 EQ 74 THEN GOTO SET74C;
-IF &keepretail3 EQ 75 THEN GOTO SET75C;
-IF &keepretail3 EQ 76 THEN GOTO SET76C;
-SET &addtoretail3 = 0;
-SET &retail3 = &keepretail3;
-GOTO CHECK4
-SET73C
-SET &addtoretail3 = 5;
-GOTO CHECK4
-SET74C
-SET &addtoretail3 = 9;
-GOTO CHECK4
-SET75C
-SET &addtoretail3 = 12;
-GOTO CHECK4
-SET76C
-SET &addtoretail3 = 35;
-CHECK4
-SET &keepretail4 = &retail4;
-SET &retail4 = 2;
-IF &keepretail4 EQ 73 THEN GOTO SET73D;
-IF &keepretail4 EQ 74 THEN GOTO SET74D;
-IF &keepretail4 EQ 75 THEN GOTO SET75D;
-IF &keepretail4 EQ 76 THEN GOTO SET76D;
-SET &addtoretail4 = 0;
-SET &retail4 = &keepretail4;
-GOTO SKIPTO
-SET73D
-SET &addtoretail4 = 5;
-GOTO SKIPTO
-SET74D
-SET &addtoretail4 = 9;
-GOTO SKIPTO
-SET75D
-SET &addtoretail4 = 12;
-GOTO SKIPTO
-SET76D
-SET &addtoretail4 = 35;
-SKIPTO
-? &keepretail1
-? &retail1
-? &addtoretail1
-? &keepretail2
-? &retail2
-? &addtoretail2
-? &keepretail3
-? &retail3
-? &addtoretail3
-? &keepretail4
-? &retail4
-? &addtoretail4

ENGINE SQLORA SET DEFAULT_CONNECTION yprd
SQL SQLORA PREPARE CATALOGDATA FOR
SELECT CIH.ITEMCODE, CIH.CATALOGCOLUMNCODE, CIH.CATALOGSUBCOLUMNCODE, CIH.CATALOGSUBCOLUMNPOSITION,
CCD.COMMODITYCLASSNAME, CCD.COMMODITYCLASSCODE, IM.ITEMDESCRIPTION, IM.ITEMBUYERCODE, BUY.BUYERNAME,
IM.CASEQTY, IM.RETAILPACKAGESIZE, IM.VELOCITYCODE, SPD.SELLPRICE, spd.sellpricingcode,
IM.PALLETLAYER, IM.PALLETHEIGHT,

( SELECT IUPC.UPC FROM AWI.ITEMUPC IUPC
WHERE CIH.ITEMCODE = IUPC.ITEMCODE AND IUPC.PRIMARYCATALOGUPCSWITCH = -1) ITEMUPC,

( SELECT CATCOL.CATALOGCOLUMNHEADING
FROM AWI.CATALOGCOLUMNS CATCOL
WHERE CIH.CATALOGCOLUMNCODE = CATCOL.CATALOGHEADINGCODE) CATHEAD,

( SELECT CATSUBCOL.CATALOGSUBHEADING
FROM AWI.CATALOGSUBCOLUMNS CATSUBCOL
WHERE CIH.CATALOGCOLUMNCODE = CATSUBCOL.CATALOGHEADINGCODE AND
CIH.CATALOGSUBCOLUMNCODE = CATSUBCOL.CATALOGSUBCOLUMNCODE) CATSUBHEAD,

(SELECT CASE WHEN RPI.RETAILPRICINGPLANPACK = 1 THEN
TO_CHAR(RPI.RETAILPRICINGPLANRETAILPRI,'999.99') ELSE
RPI.RETAILPRICINGPLANPACK || '/' || RPI.RETAILPRICINGPLANRETAILPRI END
FROM AWI.RETAILPRICINGINFO RPI
WHERE ( CIH.ITEMCODE = RPI.ITEMCODE AND RPI.RETAILPRICINGPLANCODE IN (&compet))) WEISZONE,

(SELECT awi.get_ITEM_RETAIL_PROF_SELL(CIH.ITEMCODE,&sellpricenum,&addpercent,&retail1,&addtoretail1) from dual) PRICEDATA1,
(SELECT awi.get_ITEM_RETAIL_PROF_SELL(CIH.ITEMCODE,&sellpricenum,&addpercent,&retail2,&addtoretail2) from dual) PRICEDATA2,
(SELECT awi.get_ITEM_RETAIL_PROF_SELL(CIH.ITEMCODE,&sellpricenum,&addpercent,&retail3,&addtoretail3) from dual) PRICEDATA3,
(SELECT awi.get_ITEM_RETAIL_PROF_SELL(CIH.ITEMCODE,&sellpricenum,&addpercent,&retail4,&addtoretail4) from dual) PRICEDATA4

FROM AWI.CATALOGITEMHEADINGS CIH, AWI.SELLPRICINGDATA SPD, AWI.ITEMMASTER IM,
AWI.COMMODITYCLASSDETAIL CCD, AWI.BUYERS BUY
WHERE (( CIH.CATALOGCOLUMNCODE <> 0 ) OR ( CIH.CATALOGSUBCOLUMNCODE <> 0 ) OR ( CIH.CATALOGSUBCOLUMNPOSITION <> 0 )) AND
( CIH.ITEMCODE = IM.ITEMCODE ) AND (IM.ITEMSTATUSCODE IS NULL OR IM.ITEMSTATUSCODE IN(' ')) AND IM.ITEMBUYERCODE = BUY.BUYERCODE AND
( CIH.ITEMCODE = SPD.ITEMCODE AND SPD.SELLPRICINGCODE = &sellpricenum ) AND
( IM.COMMODITYCLASSCODE = CCD.COMMODITYCLASSCODE) AND
(('&dept' = 'NonFoods' AND CIH.CATALOGDEPARTMENTCODE = 'R' AND ( CCD.COMMODITYCLASSCODE IN ('00','01','02','03','04','05','06','07','08','09','10','11','12','13','14','15','16','17','18','19','20','21','22','23','24','25','26','27','28','29','30','31','32','33','34','35','36','37','38','39','40','41','42','43','44','45','46','47','48','49','50','51','52','53','54','55','56','57','58','59','60','61','62','63','64','65','66','70','71','72','73','74','75','76','77','78','79','80','81','82','83','84','85','86','87','88','89','90','91','92','93','94','95','96','97','98','99','AA','AB','AC','AD','AE','AF','AG','AI','AJ','BA','BB','BC','BD','BE','BF','BG','BH','BJ','CA','CB','CC','CD','CE','CF','CG','CH','CI','CJ','DA','DB','DC','DD','DE','DF','DG','DH','DI','EA','EB','EC','ED','EE','EF','EG','FG','FH','FI','FJ','GB','GC','GD','GE','GF','GG','GH','HB','HC','HD','HE','HF','HG','HH','HI','HJ','IA','IB','IC','ID','IE','IF','IH','II','KA','KB','KC','KD','KE','LB','LC','LD','LE','LF','LG','LH','OA','OB','OC','OD','OE','OF','OG','OH','OI','OJ','RB','RC','RD','RE','RF','RG','RH','RI','UA','UB','UC','UD','UE','UF','UG','UH','UJ','VA','VB','VC','H5','P6') )
) OR
('&dept' <> 'NonFoods' AND CIH.CATALOGDEPARTMENTCODE = '&dept'))
;
END
-RUN
TABLE FILE CATALOGDATA
PRINT *
ON TABLE HOLD AS H001
END
-RUN
-SET &DEPTNAME = IF &dept EQ 'D' THEN 'Dairy' ELSE IF &dept EQ 'B' THEN 'Bakery' ELSE IF &dept EQ 'F' THEN 'FrozenFood' ELSE IF &dept EQ 'G' THEN 'Grocery' ELSE IF &dept EQ 'M' THEN 'Meat' ELSE IF &dept EQ 'P' THEN 'Produce' ELSE IF &dept EQ 'Q' THEN 'Cigarettes' ELSE IF &dept EQ 'R' THEN 'GM / HBC' ELSE IF &dept EQ 'K' THEN 'Candy/Tobacco' ELSE IF &dept EQ 'NonFoods' THEN 'NonFoods' ELSE 'Bad Dept';
-SET &CompHead = IF &compet EQ 1 THEN 'Supmk1' ELSE IF &compet EQ 2 THEN 'Supett' ELSE IF &compet EQ 3 THEN 'Conv' ELSE IF &compet EQ 4 THEN 'Weis' ELSE IF &compet EQ 5 THEN 'MD-S' ELSE IF &compet EQ 6 THEN 'Rutters' ELSE IF &compet EQ 7 THEN 'Eagle' ELSE IF &compet EQ 8 THEN 'Supmk2' ELSE IF &compet EQ 10 THEN 'MD-GT' ELSE IF &compet EQ 11 THEN 'MR Z' ELSE IF &compet EQ 12 THEN 'Scr 01' ELSE IF &compet EQ 13 THEN 'Scr 02' ELSE IF &compet EQ 14 THEN 'Scr 16' ELSE IF &compet EQ 15 THEN 'Pitt-B' ELSE IF &compet EQ 17 THEN 'MD-N' ELSE IF &compet EQ 18 THEN 'P-G' ELSE IF &compet EQ 19 THEN 'P-1' ELSE IF &compet EQ 20 THEN 'F/L' ELSE IF &keepretail1 EQ 73 THEN 'SUPET+.05' ELSE IF &keepretail1 EQ 74 THEN 'SUPET+.09' ELSE IF &keepretail1 EQ 75 THEN 'SUPET+.12' ELSE IF &keepretail1 EQ 76 THEN 'SUPET+.35' ELSE 'ERROR';

-SET &RetHead1 = IF &keepretail1 EQ 1 THEN 'Supmk1' ELSE IF &keepretail1 EQ 2 THEN 'Supett' ELSE IF &keepretail1 EQ 3 THEN 'Conv' ELSE IF &keepretail1 EQ 4 THEN 'Weis' ELSE IF &keepretail1 EQ 5 THEN 'MD-S' ELSE IF &keepretail1 EQ 6 THEN 'Rutters' ELSE IF &keepretail1 EQ 7 THEN 'Eagle' ELSE IF &keepretail1 EQ 8 THEN 'Supmk2' ELSE IF &keepretail1 EQ 10 THEN 'MD-GT' ELSE IF &keepretail1 EQ 11 THEN 'MR Z' ELSE IF &keepretail1 EQ 12 THEN 'Scr 01' ELSE IF &keepretail1 EQ 13 THEN 'Scr 02' ELSE IF &keepretail1 EQ 14 THEN 'Scr 16' ELSE IF &keepretail1 EQ 15 THEN 'Pitt-B' ELSE IF &keepretail1 EQ 17 THEN 'MD-N' ELSE IF &keepretail1 EQ 18 THEN 'P-G' ELSE IF &keepretail1 EQ 19 THEN 'P-1' ELSE IF &keepretail1 EQ 20 THEN 'F/L' ELSE IF &keepretail1 EQ 73 THEN 'SUPET+.05' ELSE IF &keepretail1 EQ 74 THEN 'SUPET+.09' ELSE IF &keepretail1 EQ 75 THEN 'SUPET+.12' ELSE IF &keepretail1 EQ 76 THEN 'SUPET+.35' ELSE 'ERROR';

-SET &RetHead2 = IF &keepretail2 EQ 1 THEN 'Supmk1' ELSE IF &keepretail2 EQ 2 THEN 'Supett' ELSE IF &keepretail2 EQ 3 THEN 'Conv' ELSE IF &keepretail2 EQ 4 THEN 'Weis' ELSE IF &keepretail2 EQ 5 THEN 'MD-S' ELSE IF &keepretail2 EQ 6 THEN 'Rutters' ELSE IF &keepretail2 EQ 7 THEN 'Eagle' ELSE IF &keepretail2 EQ 8 THEN 'Supmk2' ELSE IF &keepretail2 EQ 10 THEN 'MD-GT' ELSE IF &keepretail2 EQ 11 THEN 'MR Z' ELSE IF &keepretail2 EQ 12 THEN 'Scr 01' ELSE IF &keepretail2 EQ 13 THEN 'Scr 02' ELSE IF &keepretail2 EQ 14 THEN 'Scr 16' ELSE IF &keepretail2 EQ 15 THEN 'Pitt-B' ELSE IF &keepretail2 EQ 17 THEN 'MD-N' ELSE IF &keepretail2 EQ 18 THEN 'P-G' ELSE IF &keepretail2 EQ 19 THEN 'P-1' ELSE IF &keepretail2 EQ 20 THEN 'F/L' ELSE IF &keepretail2 EQ 73 THEN 'SUPET+.05' ELSE IF &keepretail2 EQ 74 THEN 'SUPET+.09' ELSE IF &keepretail2 EQ 75 THEN 'SUPET+.12' ELSE IF &keepretail2 EQ 76 THEN 'SUPET+.35' ELSE 'ERROR';

-SET &RetHead3 = IF &keepretail3 EQ 1 THEN 'Supmk1' ELSE IF &keepretail3 EQ 2 THEN 'Supett' ELSE IF &keepretail3 EQ 3 THEN 'Conv' ELSE IF &keepretail3 EQ 4 THEN 'Weis' ELSE IF &keepretail3 EQ 5 THEN 'MD-S' ELSE IF &keepretail3 EQ 6 THEN 'Rutters' ELSE IF &keepretail3 EQ 7 THEN 'Eagle' ELSE IF &keepretail3 EQ 8 THEN 'Supmk2' ELSE IF &keepretail3 EQ 10 THEN 'MD-GT' ELSE IF &keepretail3 EQ 11 THEN 'MR Z' ELSE IF &keepretail3 EQ 12 THEN 'Scr 01' ELSE IF &keepretail3 EQ 13 THEN 'Scr 02' ELSE IF &keepretail3 EQ 14 THEN 'Scr 16' ELSE IF &keepretail3 EQ 15 THEN 'Pitt-B' ELSE IF &keepretail3 EQ 17 THEN 'MD-N' ELSE IF &keepretail3 EQ 18 THEN 'P-G' ELSE IF &keepretail3 EQ 19 THEN 'P-1' ELSE IF &keepretail3 EQ 20 THEN 'F/L' ELSE IF &keepretail3 EQ 73 THEN 'SUPET+.05' ELSE IF &keepretail3 EQ 74 THEN 'SUPET+.09' ELSE IF &keepretail3 EQ 75 THEN 'SUPET+.12' ELSE IF &keepretail3 EQ 76 THEN 'SUPET+.35' ELSE 'ERROR';

-SET &RetHead4 = IF &keepretail4 EQ 1 THEN 'Supmk1' ELSE IF &keepretail4 EQ 2 THEN 'Supett' ELSE IF &keepretail4 EQ 3 THEN 'Conv' ELSE IF &keepretail4 EQ 4 THEN 'Weis' ELSE IF &keepretail4 EQ 5 THEN 'MD-S' ELSE IF &keepretail4 EQ 6 THEN 'Rutters' ELSE IF &keepretail4 EQ 7 THEN 'Eagle' ELSE IF &keepretail4 EQ 8 THEN 'Supmk2' ELSE IF &keepretail4 EQ 10 THEN 'MD-GT' ELSE IF &keepretail4 EQ 11 THEN 'MR Z' ELSE IF &keepretail4 EQ 12 THEN 'Scr 01' ELSE IF &keepretail4 EQ 13 THEN 'Scr 02' ELSE IF &keepretail4 EQ 14 THEN 'Scr 16' ELSE IF &keepretail4 EQ 15 THEN 'Pitt-B' ELSE IF &keepretail4 EQ 17 THEN 'MD-N' ELSE IF &keepretail4 EQ 18 THEN 'P-G' ELSE IF &keepretail4 EQ 19 THEN 'P-1' ELSE IF &keepretail4 EQ 20 THEN 'F/L' ELSE IF &keepretail4 EQ 73 THEN 'SUPET+.05' ELSE IF &keepretail4 EQ 74 THEN 'SUPET+.09' ELSE IF &keepretail4 EQ 75 THEN 'SUPET+.12' ELSE IF &keepretail4 EQ 76 THEN 'SUPET+.35' ELSE 'ERROR';


DEFINE FILE H001
SELLPRICE1/D7.2=SELLPRICE;
UNITCOST/D6.2=SELLPRICE1 / CASEQTY;
SKIDQTY/D3=PALLETLAYER * PALLETHEIGHT;
SUPMKT1/A7V=GETTOK(PRICEDATA1, 20, 1, '=', 7, SUPMKT1);
SUPMKT2/A7V=GETTOK(PRICEDATA2, 20, 1, '=', 7, SUPMKT2);
SUPERETTE/A7V=GETTOK(PRICEDATA3, 20, 1, '=', 7, SUPERETTE);
CONV/A7V=GETTOK(PRICEDATA4, 20, 1, '=', 7, CONV);

SUP1PROF/A7V=GETTOK(PRICEDATA1, 20, 2, '=', 7, SUP1PROF);
SUP2PROF/A7V=GETTOK(PRICEDATA2, 20, 2, '=', 7, SUP2PROF);
SUPETPROF/A7V=GETTOK(PRICEDATA3, 20, 2, '=', 7, SUPETPROF);
CONVPROF/A7V=GETTOK(PRICEDATA4, 20, 2, '=', 7, CONVPROF);

SUPMKT1/A7V=IF SUPMKT1 EQ '-.01 ' THEN ' ';
SUPMKT2/A7V=IF SUPMKT2 EQ '-.01 ' THEN ' ';
SUPERETTE/A7V=IF SUPERETTE EQ '-.01 ' THEN ' ';
CONV/A7V=IF CONV EQ '-.01 ' THEN ' ';

SUP1PROF/A7V=IF SUP1PROF EQ '#######' THEN ' ';
SUP2PROF/A7V=IF SUP2PROF EQ '#######' THEN ' ';
SUPETPROF/A7V=IF SUPETPROF EQ '#######' THEN ' ';
CONVPROF/A7V=IF CONVPROF EQ '#######' THEN ' ';
WEISZONE1/A7=WEISZONE;
TEMPZONE/A7=IF WEISZONE1 EQ '0/0' OR WEISZONE1 EQ ' .00' THEN ' ' ELSE WEISZONE;
END
APP HOLD BASEAPP
TABLE FILE H001
PRINT
ITEMCODE/P5L AS 'Item,Code'
ITEMUPC AS 'Item,Upc'
ITEMDESCRIPTION/A20 AS 'Desc'
CASEQTY/P5 AS 'Pack'
RETAILPACKAGESIZE AS 'Size'
VELOCITYCODE AS 'VC'
SKIDQTY AS 'Skid ,Qty'
SELLPRICE1/D6.2 AS 'Case,Cost'
UNITCOST AS 'Unit,Cost'
TEMPZONE/A7 AS '&CompHead'
SUPMKT1 AS '&RetHead1'
SUP1PROF AS '%,Prof'
SUPMKT2 AS '&RetHead2'
SUP2PROF AS '%,Prof'
SUPERETTE AS '&RetHead3'
SUPETPROF AS '%,Prof'
CONV AS '&RetHead4'
CONVPROF AS '%,Prof'
BY CATALOGCOLUMNCODE NOPRINT
BY CATALOGSUBCOLUMNCODE NOPRINT
BY CATALOGSUBCOLUMNPOSITION NOPRINT
BY ITEMCODE NOPRINT

ON CATALOGCOLUMNCODE SUBHEAD
["PAGE TABPAGENO CATALOGCOLUMNCODE -- ]
ON CATALOGSUBCOLUMNCODE SUBHEAD
["PAGE TABPAGENO CATSUBHEAD -- COMMODITYCLASSCODE --"]
WHEN (CATALOGSUBCOLUMNCODE NE 0);
HEADING
"Date <+0>&DATEMDYY <+0> &DEPTNAME Catalog"
" Sell &sellpricenum + &addpercent %"
FOOTING BOTTOM
"Page "________________________________________________________________________________________________________"
ON TABLE SET PAGE-NUM OFF
ON TABLE SET BYDISPLAY ON
ON TABLE SET BYPANEL ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT &formtype
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='Legal',
SQUEEZE=ON,
ORIENTATION=LANDSCAPE,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=9,
COLOR='BLACK',
BACKCOLOR=RGB(204 255 255),
STYLE=NORMAL,
JUSTIFY=DEFAULT,
$
TYPE=DATA,
BACKCOLOR=( RGB(204 255 204) 'WHITE' ),
$
TYPE=DATA,
COLUMN=N7,
SIZE=9,
$
TYPE=DATA,
COLUMN=N5,
SIZE=9,
$
TYPE=DATA,
COLUMN=N6,
SIZE=9,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N21,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N19,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N17,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N15,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N13,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N14,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N16,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N20,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N18,
JUSTIFY=RIGHT,
$
TYPE=TITLE,
STYLE=BOLD,
$
TYPE=TITLE,
COLUMN=N7,
JUSTIFY=CENTER,
$
TYPE=TITLE,
COLUMN=N6,
JUSTIFY=CENTER,
$
TYPE=TITLE,
COLUMN=N21,
JUSTIFY=RIGHT,
$
TYPE=TITLE,
COLUMN=N19,
JUSTIFY=RIGHT,
$
TYPE=TITLE,
COLUMN=N17,
JUSTIFY=RIGHT,
$
TYPE=TITLE,
COLUMN=N15,
JUSTIFY=RIGHT,
$
TYPE=TITLE,
COLUMN=N14,
JUSTIFY=RIGHT,
$
TYPE=TABHEADING,
SIZE=12,
STYLE=BOLD,
$
TYPE=TABFOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=HEADING,
SIZE=12,
BACKCOLOR=RGB(255 204 153),
STYLE=BOLD,
$
TYPE=FOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=FOOTING,
LINE=1,
JUSTIFY=CENTER,
$
TYPE=FOOTING,
LINE=1,
OBJECT=TEXT,
ITEM=1,
SIZE=10,
$
TYPE=FOOTING,
LINE=1,
OBJECT=FIELD,
ITEM=1,
SIZE=10,
$
TYPE=FOOTING,
LINE=2,
JUSTIFY=CENTER,
$
TYPE=FOOTING,
LINE=2,
OBJECT=TEXT,
ITEM=1,
STYLE=NORMAL,
$
TYPE=SUBHEAD,
SIZE=10,
BACKCOLOR=RGB(255 255 153),
STYLE=BOLD,
$
TYPE=SUBHEAD,
BY=2,
LINE=1,
OBJECT=TEXT,
ITEM=2,
STYLE=ITALIC,
$
TYPE=SUBHEAD,
BY=2,
LINE=1,
OBJECT=FIELD,
ITEM=2,
STYLE=ITALIC,
$
TYPE=SUBHEAD,
BY=2,
LINE=1,
OBJECT=FIELD,
ITEM=3,
STYLE=ITALIC,
$
TYPE=SUBFOOT,
SIZE=10,
STYLE=BOLD,
$
TYPE=SUBTOTAL,
BACKCOLOR=RGB(210 210 210),
$
TYPE=ACROSSVALUE,
SIZE=9,
BACKCOLOR='NONE',
$
TYPE=ACROSSTITLE,
BACKCOLOR=RGB(0 204 255),
STYLE=BOLD,
$
TYPE=PAGENUM,
STYLE=BOLD,
JUSTIFY=CENTER,
$
TYPE=GRANDTOTAL,
BACKCOLOR=RGB(210 210 210),
STYLE=BOLD,
$
TYPE=REPORT,
COLUMN=N21,
$
TYPE=REPORT,
COLUMN=N19,
$
TYPE=REPORT,
COLUMN=N17,
$
TYPE=REPORT,
COLUMN=N15,
$
TYPE=REPORT,
COLUMN=N14,
$
TYPE=REPORT,
COLUMN=N16,
$
TYPE=REPORT,
COLUMN=N20,
$
TYPE=REPORT,
COLUMN=N18,
$
TYPE=REPORT,
COLUMN=N22,
$
TYPE=REPORT,
COLUMN=N24,
WRAP=6.000000,
$
TYPE=REPORT,
COLUMN=N23,
WRAP=6.000000,
$
ENDSTYLE
END
HOLD AS CATALOGINDEX11 FORMAT WP

FILEDEF HOLD11 DISK "BASEAPP/CATALOGINDEX11.WP"
? FILEDEF
DEFINE FILE HOLD11
PRNTHEAD/A35=GETTOK(SUBHEAD1, 40, 1, '--', 35, PRNTHEAD);
HOLDHEAD/A35=LOCASE(35, PRNTHEAD, HOLDHEAD);
HOLDONE/A1=SUBSTR(35, HOLDHEAD, 1, 1, 1, HOLDONE);
HOLDHEAD/A35=UPCASE(1,HOLDONE,'A1')||SUBSTR(35,HOLDHEAD,2,35,34,'A34');
TEMP1/I3=POSIT(HOLDHEAD, 35, ' ', 2, TEMP1);

END
-* GET INDEX SORTED
TABLE FILE HOLD11
PRINT
INDEXVALUE1
BY HOLDHEAD
WHERE PAGELIT1 EQ 'PAGE';
ON TABLE HOLD AS SORTED1
END
-* ASSIGN NUMBER TO EACH INDEX ENTRY
DEFINE FILE SORTED1
CNT1/I4=CNT1+1;
END
TABLE FILE SORTED1
PRINT
CNT1
HOLDHEAD
INDEXVALUE1
ON TABLE HOLD AS SORTED2
END
-* print actual index pages
DEFINE FILE SORTED2
PAGE1/I3=INT(CNT1/132)+1;
TMP1/I3=IF IMOD(CNT1, 132, 'I3') EQ 0 THEN 132 ELSE IMOD(CNT1, 132, 'I3');
PAGE1X/I3=IF IMOD(CNT1, 132, 'I3') EQ 0 THEN PAGE1-1 ELSE PAGE1;
ROW1/I3=IF IMOD(CNT1, 44, 'I3') EQ 0 THEN 44 ELSE IMOD(CNT1, 44, 'I3');
COLUMN1/I3=
IF TMP1 GE 1 AND TMP1 LE 44 THEN 1 ELSE
IF TMP1 GE 45 AND TMP1 LE 88 THEN 2 ELSE
IF TMP1 GE 89 AND TMP1 LE 132 THEN 3;
PINDEXV/A5=RJUST(5, INDEXVALUE1, PINDEXV);
END
TABLE FILE SORTED2
SUM
HOLDHEAD AS ''
INDEXVALUE1 AS ''
BY PAGE1X NOPRINT
BY ROW1 NOPRINT
ACROSS COLUMN1 NOPRINT

ON PAGE1X PAGE-BREAK
HEADING
" Date <+0>&DATEMDYY <+0> Index "
FOOTING BOTTOM
"Page "________________________________________________________________________________________________________"
ON TABLE SET PAGE-NUM OFF
ON TABLE SET BYDISPLAY ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
SQUEEZE=ON,
ORIENTATION=LANDSCAPE,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=9,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
JUSTIFY=DEFAULT,
$
TYPE=DATA,
BACKCOLOR=( 'WHITE' RGB(204 255 255) ),
$
TYPE=TITLE,
STYLE=BOLD,
$
TYPE=TABHEADING,
SIZE=12,
STYLE=BOLD,
$
TYPE=TABFOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=HEADING,
SIZE=12,
STYLE=BOLD,
$
TYPE=FOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=FOOTING,
LINE=1,
JUSTIFY=CENTER,
$
TYPE=FOOTING,
LINE=1,
OBJECT=TEXT,
ITEM=1,
SIZE=10,
$
TYPE=FOOTING,
LINE=1,
OBJECT=FIELD,
ITEM=1,
SIZE=10,
$
TYPE=SUBHEAD,
SIZE=10,
STYLE=BOLD,
$
TYPE=SUBFOOT,
SIZE=10,
STYLE=BOLD,
$
TYPE=SUBTOTAL,
BACKCOLOR=RGB(210 210 210),
$
TYPE=ACROSSVALUE,
SIZE=9,
$
TYPE=ACROSSVALUE,
ACROSS=1,
SIZE=9,
$
TYPE=ACROSSVALUE,
COLUMN=ROWTOTAL(1),
BACKCOLOR='WHITE',
$
TYPE=ACROSSVALUE,
COLUMN=ROWTOTAL(2),
JUSTIFY=DEFAULT,
$
TYPE=ACROSSVALUE,
COLUMN=ROWTOTAL(3),
JUSTIFY=DEFAULT,
$
TYPE=ACROSSTITLE,
STYLE=BOLD,
$
TYPE=GRANDTOTAL,
BACKCOLOR=RGB(210 210 210),
STYLE=BOLD,
$
ENDSTYLE
END

ENGINE SQLORA SET DEFAULT_CONNECTION yprd
SQL SQLORA PREPARE CATALOGDATA FOR
SELECT CIH.ITEMCODE, CIH.CATALOGCOLUMNCODE, CIH.CATALOGSUBCOLUMNCODE, CIH.CATALOGSUBCOLUMNPOSITION,
CCD.COMMODITYCLASSNAME, CCD.COMMODITYCLASSCODE, IM.ITEMDESCRIPTION, IM.ITEMBUYERCODE, BUY.BUYERNAME,
IM.CASEQTY, IM.RETAILPACKAGESIZE, IM.VELOCITYCODE, SPD.SELLPRICE, spd.sellpricingcode,
IM.PALLETLAYER, IM.PALLETHEIGHT,

( SELECT IUPC.UPC FROM AWI.ITEMUPC IUPC
WHERE CIH.ITEMCODE = IUPC.ITEMCODE AND IUPC.PRIMARYCATALOGUPCSWITCH = -1) ITEMUPC,

( SELECT CATCOL.CATALOGCOLUMNHEADING
FROM AWI.CATALOGCOLUMNS CATCOL
WHERE CIH.CATALOGCOLUMNCODE = CATCOL.CATALOGHEADINGCODE) CATHEAD,

( SELECT CATSUBCOL.CATALOGSUBHEADING
FROM AWI.CATALOGSUBCOLUMNS CATSUBCOL
WHERE CIH.CATALOGCOLUMNCODE = CATSUBCOL.CATALOGHEADINGCODE AND
CIH.CATALOGSUBCOLUMNCODE = CATSUBCOL.CATALOGSUBCOLUMNCODE) CATSUBHEAD,

(SELECT CASE WHEN RPI.RETAILPRICINGPLANPACK = 1 THEN
TO_CHAR(RPI.RETAILPRICINGPLANRETAILPRI,'999.99') ELSE
RPI.RETAILPRICINGPLANPACK || '/' || RPI.RETAILPRICINGPLANRETAILPRI END
FROM AWI.RETAILPRICINGINFO RPI
WHERE ( CIH.ITEMCODE = RPI.ITEMCODE AND RPI.RETAILPRICINGPLANCODE IN (&compet))) WEISZONE,

(SELECT awi.get_ITEM_RETAIL_PROF_SELL(CIH.ITEMCODE,&sellpricenum,&addpercent,&retail1,&addtoretail1) from dual) PRICEDATA1,
(SELECT awi.get_ITEM_RETAIL_PROF_SELL(CIH.ITEMCODE,&sellpricenum,&addpercent,&retail2,&addtoretail2) from dual) PRICEDATA2,
(SELECT awi.get_ITEM_RETAIL_PROF_SELL(CIH.ITEMCODE,&sellpricenum,&addpercent,&retail3,&addtoretail3) from dual) PRICEDATA3,
(SELECT awi.get_ITEM_RETAIL_PROF_SELL(CIH.ITEMCODE,&sellpricenum,&addpercent,&retail4,&addtoretail4) from dual) PRICEDATA4

FROM AWI.CATALOGITEMHEADINGS CIH, AWI.SELLPRICINGDATA SPD, AWI.ITEMMASTER IM,
AWI.COMMODITYCLASSDETAIL CCD, AWI.BUYERS BUY
WHERE (( CIH.CATALOGCOLUMNCODE <> 0 ) OR ( CIH.CATALOGSUBCOLUMNCODE <> 0 ) OR ( CIH.CATALOGSUBCOLUMNPOSITION <> 0 )) AND
( CIH.ITEMCODE = IM.ITEMCODE ) AND (IM.ITEMSTATUSCODE IS NULL OR IM.ITEMSTATUSCODE IN(' ')) AND IM.ITEMBUYERCODE = BUY.BUYERCODE AND
( CIH.ITEMCODE = SPD.ITEMCODE AND SPD.SELLPRICINGCODE = &sellpricenum ) AND
( IM.COMMODITYCLASSCODE = CCD.COMMODITYCLASSCODE) AND
(('&dept' = 'NonFoods' AND CIH.CATALOGDEPARTMENTCODE = 'R' AND ( CCD.COMMODITYCLASSCODE IN ('00','01','02','03','04','05','06','07','08','09','10','11','12','13','14','15','16','17','18','19','20','21','22','23','24','25','26','27','28','29','30','31','32','33','34','35','36','37','38','39','40','41','42','43','44','45','46','47','48','49','50','51','52','53','54','55','56','57','58','59','60','61','62','63','64','65','66','70','71','72','73','74','75','76','77','78','79','80','81','82','83','84','85','86','87','88','89','90','91','92','93','94','95','96','97','98','99','AA','AB','AC','AD','AE','AF','AG','AI','AJ','BA','BB','BC','BD','BE','BF','BG','BH','BJ','CA','CB','CC','CD','CE','CF','CG','CH','CI','CJ','DA','DB','DC','DD','DE','DF','DG','DH','DI','EA','EB','EC','ED','EE','EF','EG','FG','FH','FI','FJ','GB','GC','GD','GE','GF','GG','GH','HB','HC','HD','HE','HF','HG','HH','HI','HJ','IA','IB','IC','ID','IE','IF','IH','II','KA','KB','KC','KD','KE','LB','LC','LD','LE','LF','LG','LH','OA','OB','OC','OD','OE','OF','OG','OH','OI','OJ','RB','RC','RD','RE','RF','RG','RH','RI','UA','UB','UC','UD','UE','UF','UG','UH','UJ','VA','VB','VC','H5','P6') )
) OR
('&dept' <> 'NonFoods' AND CIH.CATALOGDEPARTMENTCODE = '&dept'))
;
END
-RUN

TABLE FILE CATALOGDATA
PRINT *
ON TABLE HOLD AS H001
END
-RUN
-SET &DEPTNAME = IF &dept EQ 'D' THEN 'Dairy' ELSE IF &dept EQ 'B' THEN 'Bakery' ELSE IF &dept EQ 'F' THEN 'FrozenFood' ELSE IF &dept EQ 'G' THEN 'Grocery' ELSE IF &dept EQ 'M' THEN 'Meat' ELSE IF &dept EQ 'P' THEN 'Produce' ELSE IF &dept EQ 'Q' THEN 'Cigarettes' ELSE IF &dept EQ 'R' THEN 'GM / HBC' ELSE IF &dept EQ 'K' THEN 'Candy/Tobacco' ELSE IF &dept EQ 'NonFoods' THEN 'NonFoods' ELSE 'Bad Dept';
-SET &CompHead = IF &compet EQ 1 THEN 'Supmk1' ELSE IF &compet EQ 2 THEN 'Supett' ELSE IF &compet EQ 3 THEN 'Conv' ELSE IF &compet EQ 4 THEN 'Weis' ELSE IF &compet EQ 5 THEN 'MD-S' ELSE IF &compet EQ 6 THEN 'Rutters' ELSE IF &compet EQ 7 THEN 'Eagle' ELSE IF &compet EQ 8 THEN 'Supmk2' ELSE IF &compet EQ 10 THEN 'MD-GT' ELSE IF &compet EQ 11 THEN 'MR Z' ELSE IF &compet EQ 12 THEN 'Scr 01' ELSE IF &compet EQ 13 THEN 'Scr 02' ELSE IF &compet EQ 14 THEN 'Scr 16' ELSE IF &compet EQ 15 THEN 'Pitt-B' ELSE IF &compet EQ 17 THEN 'MD-N' ELSE IF &compet EQ 18 THEN 'P-G' ELSE IF &compet EQ 19 THEN 'P-1' ELSE IF &compet EQ 20 THEN 'F/L' ELSE IF &keepretail1 EQ 73 THEN 'SUPET+.05' ELSE IF &keepretail1 EQ 74 THEN 'SUPET+.09' ELSE IF &keepretail1 EQ 75 THEN 'SUPET+.12' ELSE IF &keepretail1 EQ 76 THEN 'SUPET+.35' ELSE 'ERROR';

-SET &RetHead1 = IF &keepretail1 EQ 1 THEN 'Supmk1' ELSE IF &keepretail1 EQ 2 THEN 'Supett' ELSE IF &keepretail1 EQ 3 THEN 'Conv' ELSE IF &keepretail1 EQ 4 THEN 'Weis' ELSE IF &keepretail1 EQ 5 THEN 'MD-S' ELSE IF &keepretail1 EQ 6 THEN 'Rutters' ELSE IF &keepretail1 EQ 7 THEN 'Eagle' ELSE IF &keepretail1 EQ 8 THEN 'Supmk2' ELSE IF &keepretail1 EQ 10 THEN 'MD-GT' ELSE IF &keepretail1 EQ 11 THEN 'MR Z' ELSE IF &keepretail1 EQ 12 THEN 'Scr 01' ELSE IF &keepretail1 EQ 13 THEN 'Scr 02' ELSE IF &keepretail1 EQ 14 THEN 'Scr 16' ELSE IF &keepretail1 EQ 15 THEN 'Pitt-B' ELSE IF &keepretail1 EQ 17 THEN 'MD-N' ELSE IF &keepretail1 EQ 18 THEN 'P-G' ELSE IF &keepretail1 EQ 19 THEN 'P-1' ELSE IF &keepretail1 EQ 20 THEN 'F/L' ELSE IF &keepretail1 EQ 73 THEN 'SUPET+.05' ELSE IF &keepretail1 EQ 74 THEN 'SUPET+.09' ELSE IF &keepretail1 EQ 75 THEN 'SUPET+.12' ELSE IF &keepretail1 EQ 76 THEN 'SUPET+.35' ELSE 'ERROR';

-SET &RetHead2 = IF &keepretail2 EQ 1 THEN 'Supmk1' ELSE IF &keepretail2 EQ 2 THEN 'Supett' ELSE IF &keepretail2 EQ 3 THEN 'Conv' ELSE IF &keepretail2 EQ 4 THEN 'Weis' ELSE IF &keepretail2 EQ 5 THEN 'MD-S' ELSE IF &keepretail2 EQ 6 THEN 'Rutters' ELSE IF &keepretail2 EQ 7 THEN 'Eagle' ELSE IF &keepretail2 EQ 8 THEN 'Supmk2' ELSE IF &keepretail2 EQ 10 THEN 'MD-GT' ELSE IF &keepretail2 EQ 11 THEN 'MR Z' ELSE IF &keepretail2 EQ 12 THEN 'Scr 01' ELSE IF &keepretail2 EQ 13 THEN 'Scr 02' ELSE IF &keepretail2 EQ 14 THEN 'Scr 16' ELSE IF &keepretail2 EQ 15 THEN 'Pitt-B' ELSE IF &keepretail2 EQ 17 THEN 'MD-N' ELSE IF &keepretail2 EQ 18 THEN 'P-G' ELSE IF &keepretail2 EQ 19 THEN 'P-1' ELSE IF &keepretail2 EQ 20 THEN 'F/L' ELSE IF &keepretail2 EQ 73 THEN 'SUPET+.05' ELSE IF &keepretail2 EQ 74 THEN 'SUPET+.09' ELSE IF &keepretail2 EQ 75 THEN 'SUPET+.12' ELSE IF &keepretail2 EQ 76 THEN 'SUPET+.35' ELSE 'ERROR';

-SET &RetHead3 = IF &keepretail3 EQ 1 THEN 'Supmk1' ELSE IF &keepretail3 EQ 2 THEN 'Supett' ELSE IF &keepretail3 EQ 3 THEN 'Conv' ELSE IF &keepretail3 EQ 4 THEN 'Weis' ELSE IF &keepretail3 EQ 5 THEN 'MD-S' ELSE IF &keepretail3 EQ 6 THEN 'Rutters' ELSE IF &keepretail3 EQ 7 THEN 'Eagle' ELSE IF &keepretail3 EQ 8 THEN 'Supmk2' ELSE IF &keepretail3 EQ 10 THEN 'MD-GT' ELSE IF &keepretail3 EQ 11 THEN 'MR Z' ELSE IF &keepretail3 EQ 12 THEN 'Scr 01' ELSE IF &keepretail3 EQ 13 THEN 'Scr 02' ELSE IF &keepretail3 EQ 14 THEN 'Scr 16' ELSE IF &keepretail3 EQ 15 THEN 'Pitt-B' ELSE IF &keepretail3 EQ 17 THEN 'MD-N' ELSE IF &keepretail3 EQ 18 THEN 'P-G' ELSE IF &keepretail3 EQ 19 THEN 'P-1' ELSE IF &keepretail3 EQ 20 THEN 'F/L' ELSE IF &keepretail3 EQ 73 THEN 'SUPET+.05' ELSE IF &keepretail3 EQ 74 THEN 'SUPET+.09' ELSE IF &keepretail3 EQ 75 THEN 'SUPET+.12' ELSE IF &keepretail3 EQ 76 THEN 'SUPET+.35' ELSE 'ERROR';

-SET &RetHead4 = IF &keepretail4 EQ 1 THEN 'Supmk1' ELSE IF &keepretail4 EQ 2 THEN 'Supett' ELSE IF &keepretail4 EQ 3 THEN 'Conv' ELSE IF &keepretail4 EQ 4 THEN 'Weis' ELSE IF &keepretail4 EQ 5 THEN 'MD-S' ELSE IF &keepretail4 EQ 6 THEN 'Rutters' ELSE IF &keepretail4 EQ 7 THEN 'Eagle' ELSE IF &keepretail4 EQ 8 THEN 'Supmk2' ELSE IF &keepretail4 EQ 10 THEN 'MD-GT' ELSE IF &keepretail4 EQ 11 THEN 'MR Z' ELSE IF &keepretail4 EQ 12 THEN 'Scr 01' ELSE IF &keepretail4 EQ 13 THEN 'Scr 02' ELSE IF &keepretail4 EQ 14 THEN 'Scr 16' ELSE IF &keepretail4 EQ 15 THEN 'Pitt-B' ELSE IF &keepretail4 EQ 17 THEN 'MD-N' ELSE IF &keepretail4 EQ 18 THEN 'P-G' ELSE IF &keepretail4 EQ 19 THEN 'P-1' ELSE IF &keepretail4 EQ 20 THEN 'F/L' ELSE IF &keepretail4 EQ 73 THEN 'SUPET+.05' ELSE IF &keepretail4 EQ 74 THEN 'SUPET+.09' ELSE IF &keepretail4 EQ 75 THEN 'SUPET+.12' ELSE IF &keepretail4 EQ 76 THEN 'SUPET+.35' ELSE 'ERROR';

DEFINE FILE H001
SELLPRICE1/D7.2=SELLPRICE;
UNITCOST/D6.2=SELLPRICE1 / CASEQTY;
SKIDQTY/D3=PALLETLAYER * PALLETHEIGHT;
SUPMKT1/A7V=GETTOK(PRICEDATA1, 20, 1, '=', 7, SUPMKT1);
SUPMKT2/A7V=GETTOK(PRICEDATA2, 20, 1, '=', 7, SUPMKT2);
SUPERETTE/A7V=GETTOK(PRICEDATA3, 20, 1, '=', 7, SUPERETTE);
CONV/A7V=GETTOK(PRICEDATA4, 20, 1, '=', 7, CONV);

SUP1PROF/A7V=GETTOK(PRICEDATA1, 20, 2, '=', 7, SUP1PROF);
SUP2PROF/A7V=GETTOK(PRICEDATA2, 20, 2, '=', 7, SUP2PROF);
SUPETPROF/A7V=GETTOK(PRICEDATA3, 20, 2, '=', 7, SUPETPROF);
CONVPROF/A7V=GETTOK(PRICEDATA4, 20, 2, '=', 7, CONVPROF);

SUPMKT1/A7V=IF SUPMKT1 EQ '-.01 ' THEN ' ';
SUPMKT2/A7V=IF SUPMKT2 EQ '-.01 ' THEN ' ';
SUPERETTE/A7V=IF SUPERETTE EQ '-.01 ' THEN ' ';
CONV/A7V=IF CONV EQ '-.01 ' THEN ' ';

SUP1PROF/A7V=IF SUP1PROF EQ '#######' THEN ' ';
SUP2PROF/A7V=IF SUP2PROF EQ '#######' THEN ' ';
SUPETPROF/A7V=IF SUPETPROF EQ '#######' THEN ' ';
CONVPROF/A7V=IF CONVPROF EQ '#######' THEN ' ';
WEISZONE1/A7=WEISZONE;
TEMPZONE/A7=IF WEISZONE1 EQ '0/0' OR WEISZONE1 EQ ' .00' THEN ' ' ELSE WEISZONE;
END
TABLE FILE H001
PRINT
ITEMCODE/P5L AS 'Item,Code'
ITEMUPC AS 'Item,Upc'
ITEMDESCRIPTION/A20 AS 'Desc'
CASEQTY/P5 AS 'Pack'
RETAILPACKAGESIZE AS 'Size'
VELOCITYCODE AS 'VC'
SKIDQTY AS 'Skid ,Qty'
SELLPRICE1/D6.2 AS 'Case,Cost'
UNITCOST AS 'Unit,Cost'
TEMPZONE/A7 AS '&CompHead'
SUPMKT1 AS '&RetHead1'
SUP1PROF AS '%,Prof'
SUPMKT2 AS '&RetHead2'
SUP2PROF AS '%,Prof'
SUPERETTE AS '&RetHead3'
SUPETPROF AS '%,Prof'
CONV AS '&RetHead4'
CONVPROF AS '%,Prof'
BY CATALOGCOLUMNCODE NOPRINT
BY CATALOGSUBCOLUMNCODE NOPRINT
BY CATALOGSUBCOLUMNPOSITION NOPRINT
BY ITEMCODE NOPRINT

ON CATALOGCOLUMNCODE SUBHEAD
"
ON CATALOGSUBCOLUMNCODE SUBHEAD
"WHEN (CATALOGSUBCOLUMNCODE NE 0);
HEADING
"Date <+0>&DATEMDYY <+0> &DEPTNAME Catalog"
" Sell &sellpricenum + &addpercent %"
FOOTING BOTTOM
"Page "________________________________________________________________________________________________________"
ON TABLE SET PAGE-NUM OFF
ON TABLE SET BYDISPLAY ON
ON TABLE SET BYPANEL ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT &formtype CLOSE
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,
PAGESIZE='Legal',
SQUEEZE=ON,
ORIENTATION=LANDSCAPE,
$
TYPE=REPORT,
GRID=OFF,
FONT='ARIAL',
SIZE=9,
COLOR='BLACK',
BACKCOLOR=RGB(204 255 255),
STYLE=NORMAL,
JUSTIFY=DEFAULT,
$
TYPE=DATA,
BACKCOLOR=( RGB(204 255 204) 'WHITE' ),
$
TYPE=DATA,
COLUMN=N7,
SIZE=9,
$
TYPE=DATA,
COLUMN=N5,
SIZE=9,
$
TYPE=DATA,
COLUMN=N6,
SIZE=9,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N21,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N19,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N17,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N15,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N13,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N14,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N16,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N20,
JUSTIFY=RIGHT,
$
TYPE=DATA,
COLUMN=N18,
JUSTIFY=RIGHT,
$
TYPE=TITLE,
STYLE=BOLD,
$
TYPE=TITLE,
COLUMN=N7,
JUSTIFY=CENTER,
$
TYPE=TITLE,
COLUMN=N6,
JUSTIFY=CENTER,
$
TYPE=TITLE,
COLUMN=N21,
JUSTIFY=RIGHT,
$
TYPE=TITLE,
COLUMN=N19,
JUSTIFY=RIGHT,
$
TYPE=TITLE,
COLUMN=N17,
JUSTIFY=RIGHT,
$
TYPE=TITLE,
COLUMN=N15,
JUSTIFY=RIGHT,
$
TYPE=TITLE,
COLUMN=N14,
JUSTIFY=RIGHT,
$
TYPE=TABHEADING,
SIZE=12,
STYLE=BOLD,
$
TYPE=TABFOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=HEADING,
SIZE=12,
BACKCOLOR=RGB(255 204 153),
STYLE=BOLD,
$
TYPE=FOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=FOOTING,
LINE=1,
JUSTIFY=CENTER,
$
TYPE=FOOTING,
LINE=1,
OBJECT=TEXT,
ITEM=1,
SIZE=10,
$
TYPE=FOOTING,
LINE=1,
OBJECT=FIELD,
ITEM=1,
SIZE=10,
$
TYPE=FOOTING,
LINE=2,
JUSTIFY=CENTER,
$
TYPE=FOOTING,
LINE=2,
OBJECT=TEXT,
ITEM=1,
STYLE=NORMAL,
$
TYPE=SUBHEAD,
SIZE=10,
BACKCOLOR=RGB(255 255 153),
STYLE=BOLD,
$
TYPE=SUBHEAD,
BY=2,
LINE=1,
OBJECT=TEXT,
ITEM=2,
STYLE=ITALIC,
$
TYPE=SUBHEAD,
BY=2,
LINE=1,
OBJECT=FIELD,
ITEM=2,
STYLE=ITALIC,
$
TYPE=SUBHEAD,
BY=2,
LINE=1,
OBJECT=FIELD,
ITEM=3,
STYLE=ITALIC,
$
TYPE=SUBFOOT,
SIZE=10,
STYLE=BOLD,
$
TYPE=SUBTOTAL,
BACKCOLOR=RGB(210 210 210),
$
TYPE=ACROSSVALUE,
SIZE=9,
BACKCOLOR='NONE',
$
TYPE=ACROSSTITLE,
BACKCOLOR=RGB(0 204 255),
STYLE=BOLD,
$
TYPE=PAGENUM,
STYLE=BOLD,
JUSTIFY=CENTER,
$
TYPE=GRANDTOTAL,
BACKCOLOR=RGB(210 210 210),
STYLE=BOLD,
$
TYPE=REPORT,
COLUMN=N21,
$
TYPE=REPORT,
COLUMN=N19,
$
TYPE=REPORT,
COLUMN=N17,
$
TYPE=REPORT,
COLUMN=N15,
$
TYPE=REPORT,
COLUMN=N14,
$
TYPE=REPORT,
COLUMN=N16,
$
TYPE=REPORT,
COLUMN=N20,
$
TYPE=REPORT,
COLUMN=N18,
$
TYPE=REPORT,
COLUMN=N22,
$
TYPE=REPORT,
COLUMN=N24,
WRAP=6.000000,
$
TYPE=REPORT,
COLUMN=N23,
WRAP=6.000000,
$
ENDSTYLE
END

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

Product WF 7.1.6 Windows
Database Oracle
outputs PDF, HTML, EXCEL

Bit confusing code....
If you post code please put it between code tags and leave out the styling part.

I wonder why your first give the command

ON TABLE PCHOLD FORMAT &formtype

and after the END

...
END
HOLD AS CATALOGINDEX11 FORMAT WP

FILEDEF HOLD11 DISK "BASEAPP/CATALOGINDEX11.WP"
? FILEDEF

It seems as if you create a kind of hold file in WP format and then tries to read that file again and decode some of the textlines.

Is there a special reason for this?

And I see your defines on the H001 file.
You create several A7V fields, why not just A7?

I have the hold file after the end because when i put it before the end I got NO HTML output.

and Yes i am creating a hold file to pull only lines that have a page number associated with them and the reason for this is to create an index for the catalog.

These are the lines I am after
PAge (below) is a literal followed by the page number.

ON CATALOGCOLUMNCODE SUBHEAD
[PAGE TABPAGENO CATALOGCOLUMNCODE -- ]
ON CATALOGSUBCOLUMNCODE SUBHEAD
[PAGE TABPAGENO CATSUBHEAD -- COMMODITYCLASSCODE --"]

So in the first part you create PDF

ON TABLE PCHOLD FORMAT &formtype

Then you HOLD the same report as an WP formatted report to create an index on the pagenumbers, put that in an second report

ON TABLE PCHOLD FORMAT PDF

and then you create a 3th report

ON TABLE PCHOLD FORMAT &formtype CLOSE

So you want to append these 3 reports to on??

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

no I only need the last two. The first report is only used to get the page numbers on the rows i want. I prefixed the rows i need for the index with 'PAGE00001' so i can extract them in the second hold file and format the index pages. I could use the first report if there was a way to suppress the prefix i added but i don't think there is a way.
That is why i have a third report which is the same as the first report without the prefixes on the lines.

this line causes the problem

ON TABLE PCHOLD FORMAT &formtype

change this first command with

ON TABLE HOLD AS CATALOGINDEX11 FORMAT WP

(and remove that line after your END...

You might create a simpler test version of this on the CAR database and then others can test it.