DEFINE FILE CAR
BODYTYPE_TEXT/A10 = 'BODYTYPE';
END
TABLE FILE CAR
PRINT
DEALER_COST
RETAIL_COST
SALES
BY COUNTRY
ACROSS BODYTYPE AS ''
ACROSS BODYTYPE_TEXT AS ''
ON TABLE PCHOLD FORMAT EXL2K
END

Francis

Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server

quote:

Originally posted by Piipster:
FILEDEF FSEQ DISK C:\IBI\APPS\BASEAPP\FSEQ.MAS
-RUN
JOIN BLANC WITH DEALER_COST IN CAR TO CONTROL IN FSEQ AS J1
DEFINE FILE CAR
BLANC/A1 = ' ';
DISP_VALUE/D9 = IF COUNTER EQ 1 THEN DEALER_COST
ELSE IF COUNTER EQ 2 THEN RETAIL_COST
ELSE SALES;
DISP_TITLE/A12 =
IF COUNTER EQ 1 THEN 'DEALER_COST'
ELSE IF COUNTER EQ 2 THEN 'RETAIL_COST'
ELSE 'SALES';
END
TABLE FILE CAR
SUM
DISP_VALUE AS ''
BY COUNTRY
ACROSS BODYTYPE AS '' NOPRINT
ACROSS COUNTER NOPRINT
ACROSS BODYTYPE AS ''
ACROSS DISP_TITLE AS ''
WHERE COUNTER LE 3;
ON TABLE PCHOLD FORMAT EXL2K
END



...and the FSEQ.MAS ...
FILE=FSEQ, SUFFIX=FIX, DATASET=FSEQ.MAS
SEGNAME=SEG1, SEGTYPE=S1, $
FIELD=CONTROL, ALIAS=BLANK, USAGE=A1, ACTUAL=A1, $
SEGNAME=SEG2, SEGTYPE=S1, PARENT=SEG1, OCCURS=VARIABLE, $
FIELD=WHATEVER, ALIAS=WHATEVER, USAGE=A1, ACTUAL=A1, $
FIELD=COUNTER, ALIAS=ORDER, USAGE=I4, ACTUAL=I4, $