-* Default Parameters
-SET &DDLR_ID=' ';
-INCLUDE mrs98int/app/fcsd_i_0011_time.fex
-MRNOEDIT -INCLUDE mrs-98/fcsd_i_0000_gbl_parms.fex
-DEFAULT &DEALER='FOC_NONE'
-DEFAULT &EndYRMTH='FOC_NONE'
-DEFAULT &StartYRMTH='FOC_NONE'
-DEFAULT &WFFMT='PDF'
-*
-SET &STYRMTH = EDIT(&StartYRMTH,'$$$$99/') | EDIT(&StartYRMTH,'9999');
-SET &EDYRMTH = EDIT(&EndYRMTH,'$$$$99/') | EDIT(&EndYRMTH,'9999');
-SET &StartYRMTH = &StartYRMTH | '01';
-SET &EndYRMTH = EDIT(AYM(&EndYRMTH,1,'I6YYM'),'999999') | '01';
-TYPE &StartYRMTH &EndYRMTH
-*
TABLE FILE PARTSALES001
BY DDLR_DEALER_ID_C
WHERE DLR_DEALER_CODE_C EQ '&DEALER';
ON TABLE HOLD AS DDLRHOLD FORMAT ALPHA
END
-RUN

-READ DDLRHOLD &DDLR_ID.A8.
-TYPE DDLR_ID=&DDLR_ID
TABLE FILE PARTSALES001
BY DLR_DEALER_CODE_C
WHERE DDLR_DEALER_ID_C EQ '&DDLR_ID'
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE HOLD AS DLR_CODES FORMAT ALPHA
END
-RUN

DEFINE FILE PARTSALES001

SlsType/A50= DRST.CDTB_DESC_X;
NegPrice/P9.2=PDET_UNIT_PRICE_A * (-1);
INV_CUS_LAST_N/A50=IF INV_CUS_LAST_N EQ '' THEN ' ' ELSE INV_CUS_LAST_N;
UnitPrice/P9.2CBM=
IF PDET_UNIT_PRICE_A LE 0 THEN NegPrice ELSE
IF PDET_PART_QUANITY_T LE 0 THEN NegPrice
ELSE PDET_UNIT_PRICE_A;

Cost/P12.2 = PDET_PART_QUANITY_T * PDET_UNIT_PRICE_A;
Cost/P12.2 = IF MLI_PRODUCT_C EQ '' THEN 0 ELSE Cost;

28MiscParts/P9.2 MISSING ON = IF COMM_PRODUCT_C EQ '28' THEN Cost ELSE MISSING;
29BED/P9.2 MISSING ON =IF COMM_PRODUCT_C EQ '29' THEN Cost ELSE MISSING;
30Access/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '30' THEN Cost ELSE MISSING;
38Covers/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '38' THEN Cost ELSE MISSING;
39Deflectors/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '39' THEN Cost ELSE MISSING;
40Mats/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '40' THEN Cost ELSE MISSING;
41Electronics/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '41' THEN Cost ELSE MISSING;
42Boards/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '42' THEN Cost ELSE MISSING;
33Maint/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '33' THEN Cost ELSE MISSING;
34BDPowerTrain/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '34' THEN Cost ELSE MISSING;
35Diesel/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '35' THEN Cost ELSE MISSING;
36BDs/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '36' THEN Cost ELSE MISSING;
37BDchass/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '37' THEN Cost ELSE MISSING;
20Crash/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '20' THEN Cost ELSE MISSING;
21Exlite/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '21' THEN Cost ELSE MISSING;
22glass/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '22' THEN Cost ELSE MISSING;
23xtrim/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '23' THEN Cost ELSE MISSING;
24Radiator/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '24' THEN Cost ELSE MISSING;
25Restraint/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '25' THEN Cost ELSE MISSING;
26sheetm/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '26' THEN Cost ELSE MISSING;
27softtrim/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '27' THEN Cost ELSE MISSING;
43Recovered/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '43' THEN Cost ELSE MISSING;
6Brakes/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '6' THEN Cost ELSE MISSING;
7ElectIgn/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '7' THEN Cost ELSE MISSING;
8Exhaust/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '8' THEN Cost ELSE MISSING;
9Fuel/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '9' THEN Cost ELSE MISSING;
10Steersusp/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '10' THEN Cost ELSE MISSING;
11RideCtl/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '11' THEN Cost ELSE MISSING;
12lightrpair/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '12' THEN Cost ELSE MISSING;
32Tire/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '32' THEN Cost ELSE MISSING;
1Climatectl/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '1' THEN Cost ELSE MISSING;
2Battery/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '2' THEN Cost ELSE MISSING;
3Filters/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '3' THEN Cost ELSE MISSING;
4Oilchem/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '4' THEN Cost ELSE MISSING;
5OtherMaint/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '5' THEN Cost ELSE MISSING;
99Nonspec/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '99' THEN Cost ELSE MISSING;
31OtherPCT/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '31' THEN Cost ELSE MISSING;
13drivetrain/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '13' THEN Cost ELSE MISSING;
14EngAssem/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '14' THEN Cost ELSE MISSING;
15EngCompo/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '15' THEN Cost ELSE MISSING;
18TransmAssem/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '18' THEN Cost ELSE MISSING;
19TransCompo/P9.2CBM MISSING ON =IF COMM_PRODUCT_C EQ '19' THEN Cost ELSE MISSING;
Hub/A1=EDIT(OLEV1_SA_LEVEL1_C,'9');
Cust_ID/A15 MISSING ON= IF INV_CUS_ID_C EQ ' ' THEN '' ELSE INV_CUS_ID_C;
CUST_TYPE/A50=INV_CUST_TYPE_C;
CUST_TYPE_SORT/I5= IF CUST_TYPE EQ 'W' THEN 1 ELSE
IF CUST_TYPE EQ 'D' THEN 2 ELSE
IF CUST_TYPE EQ 'R' THEN 3 ELSE
IF CUST_TYPE EQ 'F' THEN 4 ELSE
IF CUST_TYPE EQ 'G' THEN 5 ELSE
IF CUST_TYPE EQ 'I' THEN 6 ELSE
IF CUST_TYPE EQ 'U' THEN 7 ELSE
IF CUST_TYPE EQ 'INSTALLER' THEN 8 ELSE
IF CUST_TYPE EQ 'COUNTER RETAIL' THEN 9 ELSE
IF CUST_TYPE EQ 'INDEPENDENT BODY SHOP' THEN 10 ELSE
IF CUST_TYPE EQ 'DEALER TO DEALER' THEN 11 ELSE
IF CUST_TYPE EQ 'FLEET' THEN 12 ELSE
IF CUST_TYPE EQ 'GOVERNMENT' THEN 13 ELSE 99;
PartCode/A22=(PDET_PART_PREFIX_C || PDET_PART_BASE_C || PDET_PART_SUFFIX_C);
RegH/A80='Hub: '|Hub||' Region: '|OLEV1_DESC_X|' - '|OLEV1_SA_LEVEL1_C|' Zone: '|OLEV3_SA_LEVEL3_C;
END
TABLE FILE PARTSALES001
PRINT MLI_PRODUCT_C
CUST_TYPE_SORT
GTKPR_DSP_ID
GTKPR_CDSREL
SSA_TRADE_N
PAACCT_TYPE_C
OLEV4_SA_LEVEL4_C
Cust_ID
INV_CUST_TYPE_C
Cost
28MiscParts
29BED
30Access
38Covers
39Deflectors
40Mats
41Electronics
42Boards
33Maint
34BDPowerTrain
35Diesel
36BDs
37BDchass
20Crash
21Exlite
22glass
23xtrim
24Radiator
25Restraint
26sheetm
27softtrim
43Recovered
6Brakes
7ElectIgn
8Exhaust
9Fuel
10Steersusp
11RideCtl
12lightrpair
32Tire
1Climatectl
2Battery
3Filters
4Oilchem
5OtherMaint
99Nonspec
31OtherPCT
13drivetrain
14EngAssem
15EngCompo
18TransmAssem
19TransCompo
PAACCT_TYPE_C
DLR_DEALER_CODE_C
INV_CUS_ID_C
INV_CUST_TYPE_C
Hub
OLEV3_SA_LEVEL3_C
OLEV1_SA_LEVEL1_C
RegH
BY OLEV1_DESC_X
BY INV_CUS_LAST_N
BY SlsType
WHERE OLEV1_SA_LEVEL1_C IN (&STD_REGIONS);
WHERE NOT OLEV4_SA_LEVEL4_C IN (&BAD_WZONES2);
WHERE NOT OLEV3_SA_LEVEL3_C IN (&BAD_ZONES);
WHERE DLR_DEALER_SUBCD_C EQ ' ';
WHERE CUS_COUNTRY_ISO3_C EQ 'USA';
WHERE PA_STATUS_C EQ 'A';
WHERE DLR_DEALER_CODE_C IN FILE DLR_CODES;
WHERE DRST.CDTB_TABLE_ID_C EQ 'DRST';
WHERE TOTAL CNT.PartCode GT 0;
WHERE ( INV_INVOICE_DATE_Y GE '&StartYRMTH' ) AND ( INV_INVOICE_DATE_Y LT '&EndYRMTH' );
ON TABLE HOLD AS DATAHOLD FORMAT ALPHA
END
-RUN
APP PATH DATAHOLD
SET NODATA = ''
DEFINE FILE DATAHOLD
28MiscParts/D9CBM MISSING ON =IF 28MiscParts NE 0 THEN 28MiscParts ELSE MISSING;
29BED/D9CBM MISSING ON =IF 29BED NE 0 THEN 29BED ELSE MISSING;
30Access/D9CBM MISSING ON =IF 30Access NE 0 THEN 30Access ELSE MISSING;
38Covers/D9CBM MISSING ON =IF 38Covers NE 0 THEN 38Covers ELSE MISSING;
39Deflectors/D9CBM MISSING ON =IF 39Deflectors NE 0 THEN 39Deflectors ELSE MISSING;
40Mats/D9CBM MISSING ON =IF 40Mats NE 0 THEN 40Mats ELSE MISSING;
41Electronics/D9CBM MISSING ON =IF 41Electronics NE 0 THEN 41Electronics ELSE MISSING;
42Boards/D9CBM MISSING ON =IF 42Boards NE 0 THEN 42Boards ELSE MISSING;
33Maint/D9CBM MISSING ON =IF 33Maint NE 0 THEN 33Maint ELSE MISSING;
34BDPowerTrain/D9CBM MISSING ON =IF 34BDPowerTrain NE 0 THEN 34BDPowerTrain ELSE MISSING;
35Diesel/D9CBM MISSING ON =IF 35Diesel NE 0 THEN 35Diesel ELSE MISSING;
36BDs/D9CBM MISSING ON =IF 36BDs NE 0 THEN 36BDs ELSE MISSING;
37BDchass/D9CBM MISSING ON =IF 37BDchass NE 0 THEN 37BDchass ELSE MISSING;
20Crash/D9CBM MISSING ON =IF 20Crash NE 0 THEN 20Crash ELSE MISSING;
21Exlite/D9CBM MISSING ON =IF 21Exlite NE 0 THEN 21Exlite ELSE MISSING;
22glass/D9CBM MISSING ON =IF 22glass NE 0 THEN 22glass ELSE MISSING;
23xtrim/D9CBM MISSING ON =IF 23xtrim NE 0 THEN 23xtrim ELSE MISSING;
24Radiator/D9CBM MISSING ON =IF 24Radiator NE 0 THEN 24Radiator ELSE MISSING;
25Restraint/D9CBM MISSING ON =IF 25Restraint NE 0 THEN 25Restraint ELSE MISSING;
26sheetm/D9CBM MISSING ON =IF 26sheetm NE 0 THEN 26sheetm ELSE MISSING;
27softtrim/D9CBM MISSING ON =IF 27softtrim NE 0 THEN 27softtrim ELSE MISSING;
43Recovered/D9CBM MISSING ON =IF 43Recovered NE 0 THEN 43Recovered ELSE MISSING;
6Brakes/D9CBM MISSING ON =IF 6Brakes NE 0 THEN 6Brakes ELSE MISSING;
7ElectIgn/D9CBM MISSING ON =IF 7ElectIgn NE 0 THEN 7ElectIgn ELSE MISSING;
8Exhaust/D9CBM MISSING ON =IF 8Exhaust NE 0 THEN 8Exhaust ELSE MISSING;
9Fuel/D9CBM MISSING ON =IF 9Fuel NE 0 THEN 9Fuel ELSE MISSING;
10Steersusp/D9CBM MISSING ON =IF 10Steersusp NE 0 THEN 10Steersusp ELSE MISSING;
11RideCtl/D9CBM MISSING ON =IF 11RideCtl NE 0 THEN 11RideCtl ELSE MISSING;
12lightrpair/D9CBM MISSING ON =IF 12lightrpair NE 0 THEN 12lightrpair ELSE MISSING;
32Tire/D9CBM MISSING ON =IF 32Tire NE 0 THEN 32Tire ELSE MISSING;
1Climatectl/D9CBM MISSING ON =IF 1Climatectl NE 0 THEN 1Climatectl ELSE MISSING;
2Battery/D9CBM MISSING ON =IF 2Battery NE 0 THEN 2Battery ELSE MISSING;
3Filters/D9CBM MISSING ON =IF 3Filters NE 0 THEN 3Filters ELSE MISSING;
4Oilchem/D9CBM MISSING ON =IF 4Oilchem NE 0 THEN 4Oilchem ELSE MISSING;
5OtherMaint/D9CBM MISSING ON =IF 5OtherMaint NE 0 THEN 5OtherMaint ELSE MISSING;
99Nonspec/D9CBM MISSING ON =IF 99Nonspec NE 0 THEN 99Nonspec ELSE MISSING;
31OtherPCT/D9CBM MISSING ON =IF 31OtherPCT NE 0 THEN 31OtherPCT ELSE MISSING;
13drivetrain/D9CBM MISSING ON =IF 13drivetrain NE 0 THEN 13drivetrain ELSE MISSING;
14EngAssem/D9CBM MISSING ON =IF 14EngAssem NE 0 THEN 14EngAssem ELSE MISSING;
15EngCompo/D9CBM MISSING ON =IF 15EngCompo NE 0 THEN 15EngCompo ELSE MISSING;
18TransmAssem/D9CBM MISSING ON =IF 18TransmAssem NE 0 THEN 18TransmAssem ELSE MISSING;
19TransCompo/D9CBM MISSING ON =IF 19TransCompo NE 0 THEN 9TransCompo ELSE MISSING;
END
TABLE FILE DATAHOLD
SUM
DLR_DEALER_CODE_C AS 'P&|A,Code'
SSA_TRADE_N AS 'Dealer Name'
PAACCT_TYPE_C AS 'Dealer,P&|A,Type'
OLEV3_SA_LEVEL3_C AS 'Dealer, Zone'
OLEV4_SA_LEVEL4_C AS 'WHLS,Zone'
OLEV1_DESC_X AS 'Region Name'
OLEV1_SA_LEVEL1_C AS 'Region, Code'
INV_CUS_LAST_N AS 'Customer Name'
Cust_ID AS 'Customer ID'
INV_CUST_TYPE_C AS 'Actual,Customer,Type,Code'
SlsType AS 'Sale Type'
COMPUTE TOTSLS/D12CBM = Cost; AS 'Total,Amount'
28MiscParts AS 'Accessories, 5, Misc. Service,Parts,28'
29BED AS 'Accessories, 5,BED Products,29'
30Access AS 'Accessories, 5,Others,30'
38Covers AS 'Accessories, 5,Tonneau,Covers, 38'
39Deflectors AS 'Accessories, 5,Deflectors,39'
40Mats AS 'Accessories, 5,Floor Mats,40'
41Electronics AS 'Accessories, 5,Electronics,41'
42Boards AS 'Accessories, 5,Running Boards,42'
33Maint AS 'Blue Diamond, 7,Maintenance,Parts,33'
34BDPowerTrain AS 'Blue Diamond, 7,PowerTrain,Assemblies,34'
35Diesel AS 'Blue Diamond, 7,Diesel Service,Parts,35'
36BDs AS 'Blue Diamond, 7, All Makes,36'
37BDchass AS 'Blue Diamond, 7,Common, Chassis,37'
20Crash AS 'Collision, 7, Assorted,Crash,20'
21Exlite AS 'Collision, 7, Exterior,Lighting,21'
22glass AS 'Collision, 7, Glass,22'
23xtrim AS 'Collision, 7, Major ,Exterior,Trim,23'
24Radiator AS 'Collision, 7, Radiator,24'
25Restraint AS 'Collision, 7, Restraint,Systems,25'
26sheetm AS 'Collision, 7, Sheet,Metal,26'
27softtrim AS 'Collision, 7, Soft Trim,27'
43Recovered AS 'Collision, 7, Recovered,Parts,43'
6Brakes AS 'Light Repair, 2, Brakes,6'
7ElectIgn AS 'Light Repair, 2,Electrical/,Ignition,7'
8Exhaust AS 'Light Repair, 2,Exhaust,8'
9Fuel AS 'Light Repair, 2,Fuel,9'
10Steersusp AS 'Light Repair, 2,Steering/,Suspension,10'
11RideCtl AS 'Light Repair, 2,Ride,Control,11'
12lightrpair AS 'Light Repair, 2,Other,12'
32Tire AS 'Light Repair, 2,Tires,32'
1Climatectl AS 'Maintenance,1, Climate,Control,1'
2Battery AS 'Maintenance,1,Batteries,2'
3Filters AS 'Maintenance,1,Filters,3'
4Oilchem AS 'Maintenance,1,Oil and ,Chemical,4'
5OtherMaint AS 'Maintenance,1,Other,5'
99Nonspec AS 'Non-Specific,Part Num,99'
31OtherPCT AS 'Other 6, Other PCT,31'
13drivetrain AS 'Power Train , 3, Drivetrain,13'
14EngAssem AS 'Power Train , 3,Engine,Assemblies,14'
15EngCompo AS 'Power Train , 3,Engine,Components,15'
18TransmAssem AS 'Power Train , 3,Transmission,Assemblies,18'
19TransCompo AS 'Power Train , 3,Transmission,Components,19'
BY PAACCT_TYPE_C NOPRINT
BY DLR_DEALER_CODE_C NOPRINT
BY CUST_TYPE_SORT NOPRINT
BY HIGHEST TOTSLS NOPRINT
BY INV_CUS_LAST_N NOPRINT
BY SlsType NOPRINT
HEADING
"Date Refreshed: &DATEMDYY &TimeHHMMSS"
""
"Wholesale Part Sales - Actual by PCT/Commodity Code"
"Ford, Lincoln, and Mercury Parts Only"
"Invoice Close Date for the Month of &STYRMTH"
"""
"This report contains data for the Dealer's Primary & Secondary P & A Codes"
""
""
FOOTING BOTTOM
"Confidential"
"Data Frequency = Daily"
"<74 Page <77 "fcsd_r_0114_wholesale_parts1"
"<1.1 PRT_Wholesale Parts Sales Customer Activity Report.rep <135 DSP: <138 "<135 Direct Questions to: REACT HQ Help Desk @ [888) 207-1248"
ON TABLE SET LINES 99
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE COLUMN-TOTAL AS '' TOTSLS 28MiscParts 29BED 30Access 38Covers 39Deflectors 40Mats 41Electronics 42Boards 33Maint 35Diesel 36BDs 37BDchass 20Crash 21Exlite 22glass 23xtrim 24Radiator 25Restraint 26sheetm 27softtrim 43Recovered 6Brakes 7ElectIgn 8Exhaust 9Fuel 10Steersusp 11RideCtl 12lightrpair 32Tire 1Climatectl 2Battery 3Filters 4Oilchem 5OtherMaint 99Nonspec 31OtherPCT 13drivetrain 14EngAssem 15EngCompo 18TransmAssem 19TransCompo
ON TABLE PCHOLD FORMAT &WFFMT
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=PTS,
PAGESIZE='Legal',
BOTTOMMARGIN=0.000000,
SQUEEZE=ON,
ORIENTATION=LANDSCAPE,
$
TYPE=REPORT, FONT='ARIAL', SIZE=6, COLOR='BLACK', STYLE=NORMAL, RIGHTGAP=1.0, LEFTGAP=1.0, WRAP=50,$
TYPE=REPORT, COLUMN=P1, WRAP=30, $
TYPE=REPORT, COLUMN=P2, WRAP=100, $
TYPE=REPORT, COLUMN=P3, WRAP=30, $
TYPE=REPORT, COLUMN=P4, WRAP=30, $
TYPE=REPORT, COLUMN=P5, WRAP=30, $
TYPE=REPORT, COLUMN=P6, WRAP=50, $
TYPE=REPORT, COLUMN=P7, WRAP=30, $
TYPE=REPORT, COLUMN=P8, WRAP=120, $
TYPE=REPORT, COLUMN=P9, WRAP=70, $
TYPE=REPORT, COLUMN=P10, WRAP=30, $
TYPE=REPORT, COLUMN=P11, WRAP=50, $
TYPE=DATA, BORDER-TOP=LIGHT, BORDER-BOTTOM=LIGHT, BORDER-LEFT=LIGHT, BORDER-RIGHT=LIGHT,$
TYPE=DATA, COLUMN=P1, JUSTIFY=CENTER, $
TYPE=DATA, COLUMN=P2, JUSTIFY=LEFT,$
TYPE=DATA, COLUMN=P3, JUSTIFY=CENTER,$
TYPE=DATA, COLUMN=P4, JUSTIFY=CENTER,$
TYPE=DATA, COLUMN=P5, JUSTIFY=CENTER,$
TYPE=DATA, COLUMN=P6, JUSTIFY=CENTER,$
TYPE=DATA, COLUMN=P7, JUSTIFY=CENTER,$
TYPE=DATA, COLUMN=P8, JUSTIFY=LEFT,$
TYPE=DATA, COLUMN=P9, JUSTIFY=CENTER,$
TYPE=DATA, COLUMN=P10, JUSTIFY=CENTER,$
TYPE=DATA, COLUMN=P11, JUSTIFY=CENTER,$
TYPE=DATA, COLUMN=P12, BORDER-LEFT=MEDIUM, BORDER-RIGHT=MEDIUM, BORDER-LEFT-STYLE=SOLID,
BORDER-RIGHT-STYLE=SOLID, SIZE=6, BACKCOLOR=RGB(255 255 198), STYLE=BOLD,$
TYPE=DATA, COLUMN=N25, BORDER-LEFT=MEDIUM, BORDER-LEFT-STYLE=SOLID, SIZE=6,$
TYPE=DATA, COLUMN=N38, BORDER-LEFT=MEDIUM, BORDER-LEFT-STYLE=SOLID, SIZE=6,$
TYPE=DATA, COLUMN=N46, BORDER-LEFT=MEDIUM, BORDER-LEFT-STYLE=SOLID, SIZE=6,$
TYPE=DATA, COLUMN=N51, BORDER-LEFT=MEDIUM, BORDER-RIGHT=MEDIUM, BORDER-LEFT-STYLE=SOLID, BORDER-RIGHT-STYLE=SOLID, SIZE=6,$
TYPE=DATA, COLUMN=P12, BORDER-LEFT=MEDIUM, BORDER-RIGHT=MEDIUM, BORDER-LEFT-STYLE=SOLID, BORDER-RIGHT-STYLE=SOLID, SIZE=6,$
TYPE=TITLE, BORDER-TOP=LIGHT, BORDER-BOTTOM=LIGHT, BORDER-LEFT=LIGHT, BORDER-RIGHT=LIGHT, SIZE=6,
BACKCOLOR=RGB(208 235 251), STYLE=BOLD, JUSTIFY=CENTER,$
TYPE=TITLE, COLUMN=P12, BORDER-LEFT=MEDIUM, BORDER-RIGHT=MEDIUM, BORDER-LEFT-STYLE=SOLID, BORDER-RIGHT-STYLE=SOLID,
SIZE=6, BACKCOLOR=RGB(255 255 198), STYLE=BOLD,$
TYPE=TITLE, COLUMN=N25, BORDER-LEFT=MEDIUM, BORDER-LEFT-STYLE=SOLID, SIZE=6,$
TYPE=TITLE, COLUMN=N31, BORDER-LEFT=MEDIUM, BORDER-LEFT-STYLE=SOLID, SIZE=6,$
TYPE=TITLE, COLUMN=N38, BORDER-LEFT=MEDIUM, BORDER-LEFT-STYLE=SOLID, SIZE=6,$
TYPE=TITLE, COLUMN=N46, BORDER-LEFT=MEDIUM, BORDER-LEFT-STYLE=SOLID, SIZE=6,$
TYPE=TITLE, COLUMN=N51, BORDER-LEFT=MEDIUM, BORDER-RIGHT=MEDIUM, BORDER-LEFT-STYLE=SOLID, BORDER-RIGHT-STYLE=SOLID, SIZE=6,$
TYPE=TITLE, COLUMN=N52, BORDER-LEFT=MEDIUM, BORDER-RIGHT=MEDIUM, BORDER-LEFT-STYLE=SOLID, BORDER-RIGHT-STYLE=SOLID, SIZE=6,$
TYPE=TABHEADING, SIZE=12, STYLE=BOLD,$
TYPE=TABFOOTING, SIZE=12, STYLE=BOLD,$
TYPE=HEADING, LINE=1, JUSTIFY=RIGHT, SIZE=5,$
TYPE=HEADING, LINE=3, JUSTIFY=CENTER, SIZE=8, STYLE=BOLD, TOPGAP=10, BOTTOMGAP=10,$
TYPE=HEADING, LINE=4, JUSTIFY=CENTER, SIZE=7, STYLE=BOLD, TOPGAP=25, BOTTOMGAP=10,$
TYPE=HEADING, LINE=5, JUSTIFY=CENTER, SIZE=7, STYLE=BOLD, TOPGAP=25, BOTTOMGAP=10,$
TYPE=HEADING, LINE=6, JUSTIFY=CENTER, SIZE=7, STYLE=BOLD, TOPGAP=25, BOTTOMGAP=10,WRAP=975,$
TYPE=HEADING, LINE=8, JUSTIFY=CENTER, SIZE=7, STYLE=BOLD, TOPGAP=25, BOTTOMGAP=10,$
TYPE=HEADING, IMAGE=app/ford_large.jpg, POSITION=(0 -10), PRESERVERATIO=ON, SIZE=(100 40), $
TYPE=HEADING, IMAGE=app/ereact.gif, POSITION=(450 -5), PRESERVERATIO=OFF, SIZE=(80 13), $
TYPE=HEADING, IMAGE=app/legend114.gif, PRESERVERATIO=ON, POSITION=(900 12), SIZE=(100 60), $
TYPE=FOOTING, LINE=1, JUSTIFY=LEFT, $
TYPE=FOOTING, LINE=2, JUSTIFY=LEFT,$
TYPE=FOOTING, LINE=3, JUSTIFY=CENTER,$
TYPE=FOOTING, LINE=4, JUSTIFY=LEFT,$
TYPE=FOOTING, LINE=5, JUSTIFY=LEFT,$
TYPE=FOOTING, LINE=6, JUSTIFY=RIGHT,$
TYPE=SUBHEAD, SIZE=10, STYLE=BOLD,$
TYPE=SUBFOOT, BORDER-TOP=LIGHT, BORDER-BOTTOM=LIGHT, BORDER-LEFT=LIGHT, BORDER-RIGHT=LIGHT, STYLE=BOLD,$
TYPE=SUBTOTAL, BORDER-TOP=LIGHT, BORDER-BOTTOM=LIGHT, BORDER-LEFT=LIGHT, BORDER-RIGHT=LIGHT, BACKCOLOR=RGB(210 210 210),$
TYPE=ACROSSVALUE, SIZE=9,$
TYPE=ACROSSTITLE, STYLE=BOLD,$
TYPE=GRANDTOTAL, BORDER-TOP=LIGHT, BORDER-BOTTOM=LIGHT, BORDER-LEFT=LIGHT, BORDER-RIGHT=LIGHT,
BACKCOLOR=RGB(225 240 255), STYLE=BOLD,$
ENDSTYLE
END
-RUN


====================================
error is:

FOC_NONE01 00000001
0 NUMBER OF RECORDS IN TABLE= 6960 LINES= 6960
DDLR_ID=.
0 NUMBER OF RECORDS IN TABLE= 0 LINES= 0
WARNING: FILE (DLR_CODES) EMPTY
0 ERROR AT OR NEAR LINE 194 IN PROCEDURE ADHOCRQ FOCEXEC *
(FOC006) THE FORMAT OF THE TEST VALUE IS INCONSISTENT WITH FIELD FORMAT:
FOC_NONE01
BYPASSING TO END OF COMMAND
(FOC009) INCOMPLETE REQUEST STATEMENT
(FOC205) THE DESCRIPTION CANNOT BE FOUND FOR FILE NAMED: DATAHOLD
(FOC205) THE DESCRIPTION CANNOT BE FOUND FOR FILE NAMED: DATAHOLD
BYPASSING TO END OF COMMAND
(FOC205) THE DESCRIPTION CANNOT BE FOUND FOR FILE NAMED: DATAHOLD
(FOC205) THE DESCRIPTION CANNOT BE FOUND FOR FILE NAMED: DATAHOLD
BYPASSING TO END OF COMMAND


please look into it and tell me whats causing the error....

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

7.6.7
windows
PDF,EXCEL.

Swati, Thanks for bringing the entire WebFOCUS features in a single FEX.

WebFOCUS provides detail explanation of the error codes. In your case "FOC006"

-*? error_number(leaving behind the letters FOC)
? 006

Format mismatch between the fields being tested.
Example - an integer field may not be tested against a non-numeric character string.

Also I notice

ON TABLE HOLD AS DATAHOLD FORMAT ALPHA
END
-RUN
APP PATH DATAHOLD
SET NODATA = ''
DEFINE FILE DATAHOLD

APP PATH with sets or resets the application search path. By setting to DATAHOLD, the HOLD file saved before may or may not be in that directory.