</>

DEFINE FILE GGSALES
YR  /YY = DATE;
MTH /Mt = DATE;
END
TABLE FILE GGSALES
SUM DOLLARS
BY REGION AS ''
ACROSS MTH AS ''
ACROSS YR AS ''
ON TABLE SET PAGE-NUM NOLEAD
END
-RUN

 
Dealership1 SalesYr1, SalesYr2, SalesYr3 | ProfitsYr1, ProfitsYr2, ProfitsYr3 | QuantityYr1, QuantityYr2, QuantityYr3
Dealership2 SalesYr1, SalesYr2, SalesYr3 | ProfitsYr1, ProfitsYr2, ProfitsYr3 | QuantityYr1, QuantityYr2, QuantityYr3
Dealership3 SalesYr1, SalesYr2, SalesYr3 | ProfitsYr1, ProfitsYr2, ProfitsYr3 | QuantityYr1, QuantityYr2, QuantityYr3
Dealership4 SalesYr1, SalesYr2, SalesYr3 | ProfitsYr1, ProfitsYr2, ProfitsYr3 | QuantityYr1, QuantityYr2, QuantityYr3
Dealership5 SalesYr1, SalesYr2, SalesYr3 | ProfitsYr1, ProfitsYr2, ProfitsYr3 | QuantityYr1, QuantityYr2, QuantityYr3

 
TABLE FILE expanse/v_los_collaborative
SUM V_LOS_COLLABORATIVE.V_LOS_COLLABORATIVE.VISITCOUNT AS 'CASES'
COMPUTE CMI;
AVE.V_LOS_COLLABORATIVE.V_LOS_COLLABORATIVE.LENGTHOFSTAYDAYS_DECIMAL AS 'ALOS'
BY V_LOS_COLLABORATIVE.V_LOS_COLLABORATIVE.EPSI_PAYOR
ACROSS V_LOS_COLLABORATIVE.V_LOS_COLLABORATIVE.FISCALYEAR AS 'CASES'
WHERE DISCHARGEMONTH EQ LASTMONTHMONTH;
 

  
Dealership1 SalesYr1, ProfitsYr1, QuantityYr1 | SalesYr2, ProfitsYr2, QuantityYr2 | SalesYr3, ProfitsYr3 , QuantityYr3
Dealership2 SalesYr1, ProfitsYr1, QuantityYr1 | SalesYr2, ProfitsYr2, QuantityYr2 | SalesYr3, ProfitsYr3 , QuantityYr3
Dealership3 SalesYr1, ProfitsYr1, QuantityYr1 | SalesYr2, ProfitsYr2, QuantityYr2 | SalesYr3, ProfitsYr3 , QuantityYr3
Dealership4 SalesYr1, ProfitsYr1, QuantityYr1 | SalesYr2, ProfitsYr2, QuantityYr2 | SalesYr3, ProfitsYr3 , QuantityYr3

DEFINE FILE GGSALES
YR  /YY = DATE;
END
TABLE FILE GGSALES
SUM DOLLARS OVER
    BUDDOLLARS OVER
    UNITS OVER
    BUDUNITS
BY REGION AS ''
ACROSS YR AS ''
ON TABLE SET PAGE-NUM NOLEAD
END
-RUN

DEFINE FILE GGSALES
YR  /YY = DATE;
END
TABLE FILE GGSALES
SUM DOLLARS/P8 AS 'VAL'
BY REGION
BY YR
BY TOTAL COMPUTE COLID   /I2 = 1;
BY TOTAL COMPUTE COLTITL /A10V = 'SALES';
ON TABLE HOLD AS TMP1
END
-RUN

TABLE FILE GGSALES
SUM BUDDOLLARS/P8 AS 'VAL'
BY REGION
BY YR
BY TOTAL COMPUTE COLID   /I2 = 2;
BY TOTAL COMPUTE COLTITL /A10V = 'BDG SALES';
ON TABLE HOLD AS TMP2
END
-RUN

TABLE FILE GGSALES
SUM UNITS/P8 AS 'VAL'
BY REGION
BY YR
BY TOTAL COMPUTE COLID    /I2 = 3;
BY TOTAL COMPUTE COLTITL /A10V = 'UNITS';
ON TABLE HOLD AS TMP3
END
-RUN

TABLE FILE GGSALES
SUM BUDUNITS/P8 AS 'VAL'
BY REGION
BY YR
BY TOTAL COMPUTE COLID   /I2 = 4;
BY TOTAL COMPUTE COLTITL /A10V = ' BDG UNITS';
ON TABLE HOLD AS TMP4
END
-RUN

TABLE FILE TMP1
SUM VAL
BY REGION
BY YR
BY COLID
BY COLTITL
ON TABLE HOLD AS RPTDATA
MORE
FILE TMP2
MORE
FILE TMP3
MORE
FILE TMP4
END
-RUN

TABLE FILE RPTDATA
SUM VAL AS ''
BY REGION AS ''
ACROSS COLID NOPRINT
ACROSS COLTITL AS ''
ACROSS YR AS ''
ON TABLE SET PAGE-NUM NOLEAD
END
-RUN

  
-SET &ECHO=ALL;
-* File rosie01.fex
TABLE FILE CAR
-* SALES, RETAIL and DEALER should have the same format!
SUM SALES/D7 RETAIL_COST DEALER_COST
BY COUNTRY
BY SEATS
ON TABLE SET HOLDLIST PRINTONLY
ON TABLE HOLD AS ROSIE
END
-RUN
-* Alternate Master: use -LINES internal procedure to write in memory
-* All mesures are "collapsed" into one field: VALUE
-* The virtual field VAL is an index: 1-SALES, 2-RETAIL, 3-DEALER
EX -LINES 8 EDAPUT MASTER,ROSIE,C,MEM
 FILENAME=ROSIE   , SUFFIX=FIX
 SEGMENT=ROSIE, SEGTYPE=S2
 FIELDNAME=COUNTRY, ALIAS=E01, USAGE=A10, ACTUAL=A12, $
 FIELDNAME=SEATS, ALIAS=E02, USAGE=I3, ACTUAL=I04, $
 SEGMENT=VALS, PARENT=ROSIE, OCCURS=VARIABLE
 FIELDNAME=VALUE, ALIAS=E03, USAGE=D7, ACTUAL=D08, $
 FIELDNAME=VAL, ALIAS=ORDER, USAGE=I2, ACTUAL=I4, $
-RUN
-* Use the virtual field VAL to produce titles in the report
DEFINE FILE ROSIE
FIELDV/A6 =DECODE VAL(1 'SALES' 2 'RETAIL' 3 'DEALER');
TITLEV/A7 = FIELDV || EDIT(SEATS,'$$9');
END
TABLE FILE ROSIE
SUM VALUE
BY COUNTRY
ACROSS VAL NOPRINT
ACROSS SEATS NOPRINT
ACROSS TITLEV
ON TABLE SET ACROSSTITLE SIDE
END