-* Start of data preparation EX -LINES * EDAPUT MASTER,BMFILE,CV,MEM FILE=BMFILE,SUFFIX=FOC SEGNAME=SEG1 FIELD=MFR, ,A1 ,A1 ,$ FIELD=YearQtr, ,A7 ,A7 ,$ FIELD=Type, ,A2 ,A2 ,$ FIELD=PartKey, ,A10 ,A10 ,$ FIELD=SALES, ,D12M ,D12 ,$ EDAPUT* -RUN CREATE FILE BMFILE MODIFY FILE BMFILE FREEFORM MFR YearQtr Type PartKey SALES DATA A,2015-01,1A,193,1192,$ A,2015-01,1A,1934,812,$ A,2015-01,1A,CAN00,66,$ A,2015-01,4D,CAN00,115,$ A,2015-01,4D,CAN00,1125,$ A,2015-01,1A,F06,1215,$ A,2015-02,1A,193,6556,$ A,2015-02,1A,CAN00,66,$ A,2015-02,4D,VGAS,140,$ A,2015-03,4D,1934,138,$ A,2015-03,4D,CAN,66,$ A,2015-03,3C,VJ13,640,$ A,2015-04,1A,193,3874,$ A,2015-04,1A,VJ13,1080,$ A,2015-04,2B,VJ13,558,$ B,2015-01,1A,F06,1215,$ B,2015-02,1A,193,6556,$ B,2015-02,4D,CAN,66,$ B,2015-03,3C,VJ13,64,$ B,2015-04,1A,193,38,$ B,2015-04,1A,193,64,$ END -RUN -* End of data preparation SET PAGE = NOLEAD SET ASNAMES = MIXED TABLE FILE BMFILE SUM CNT.PartKey AS 'Count' SALES AS 'Sum' BY MFR BY Type ACROSS YearQtr AS '' ON TABLE ROW-TOTAL AS 'Total' END -RUN TABLE FILE BMFILE SUM CNT.DST.PartKey AS DSTPARTS SALES AS TOTSALES BY MFR BY Type ON TABLE HOLD AS BMTOTALS END -RUN JOIN CLEAR * JOIN FILE BMFILE AT MFR TAG T1 TO UNIQUE FILE BMTOTALS AT MFR TAG T2 AS J2 WHERE T1.MFR = T2.MFR; WHERE T1.Type = T2.Type; END TABLE FILE BMFILE SUM MAX.T2.DSTPARTS NOPRINT MAX.T2.TOTSALES NOPRINT BY MFR BY Type SUM CNT.PartKey AS 'Count' SALES AS 'Sum' BY MFR BY Type ACROSS YearQtr AS '' COMPUTE TotCount/I9 = C1; AS 'Count' COMPUTE TotSales/D12M = C2; AS 'Sum' END -RUN
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |
In FOCUS since 1986 | WebFOCUS Server 8.2.01M, thru 8.2.07 on Windows Svr 2008 R2 | ||
WebFOCUS App Studio 8.2.06 standalone on Windows 10 |