-*//////////////////////////////////////// -* Creating SUBTOTALS above the detail -*//////////////////////////////////////// -* McGyver Technique setup... -* First set up the master file. Note that the top line of the master MUST -* be a full line of 80 spaces. (This is acheived by LRECL below) -* Do NOT delete that line or the technique will not work. APP FI FSEQ DISK FSEQ.MAS (LRECL 80 -RUN -WRITE FSEQ -WRITE FSEQ FILE=FSEQ,SUFFIX=FIX -WRITE FSEQ SEGNAME=SEG1 -WRITE FSEQ FIELD=BLANK,,A1,A1,$ -WRITE FSEQ SEGNAME=SEG2,OCCURS=80,PARENT=SEG1 -WRITE FSEQ $ <== Bigger than usual -WRITE FSEQ FIELD=1CHAR,,A1,A1,$ -WRITE FSEQ FIELD=COUNTER,ORDER,I4,I4,$ -RUN -* Set up the define based join. We join ANY field in the source file -* to the FSEQ master so that we replicate each row in the source file -* 80 times without any extra i/o. JOIN BLANK WITH PIN IN EMPDATA TO BLANK IN FSEQ AS AJ -* End McGyver Setup DEFINE FILE EMPDATA BLANK/A1 WITH PIN = ' ' ; DEPT1/A20 = IF COUNTER EQ 2 THEN DEPT ELSE 'TOTAL'; END TABLE FILE EMPDATA COUNT PIN DST.DEPT SUM.SAL AVE.SAL -*BY DIV BY COUNTER BY DEPT1 IF COUNTER LE 2 END
In Focus since 1979///7706m/5 ;wintel 2008/64;OAM security; Oracle db, ///MRE/BID |
Frank | |
prod: WF 7.6.10 platform Windows, databases: msSQL2000, msSQL2005, RMS, Oracle, Sybase,IE7 test: WF 7.6.10 on the same platform and databases,IE7 |
FOCUS/WebFOCUS 1990 - 2011 |
In Focus since 1979///7706m/5 ;wintel 2008/64;OAM security; Oracle db, ///MRE/BID |
JOIN BLANK WITH BODYTYPE IN CAR TO BLANK IN FSEQ AS B_ -* DEFINE FILE CAR BLANK/A1 WITH BODYTYPE=' '; XCAR/A16=IF COUNTER EQ 1 THEN ' Total' ELSE CAR; END -* TABLE FILE CAR SUM RETAIL DEALER SALES BY COUNTRY BY XCAR AS CAR WHERE COUNTER LE 2 HEADING "Summary and Detail" ON TABLE NOTOTAL ON TABLE SET PAGE-NUM NOLEAD ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * ENDSTYLE END
TABLE FILE CAR SUM RCOST RCOST WITHIN COUNTRY AS RC DCOST DCOST WITHIN COUNTRY AS DC SALES BY COUNTRY BY CAR BY MODEL ON TABLE HOLD AS HOLD1 ON TABLE SET ASNAMES ON END -RUN -* SET BYDISPLAY=ON TABLE FILE HOLD1 PRINT SALES/I5C BY COUNTRY SUBHEAD "Totals for <COUNTRY : Retail-Cost=$<RC & Dealer-cost=$<DC " BY CAR BY MODEL HEADING "CAR FILE SAMPLE" ON TABLE SET STYLE * TYPE=REPORT, SQUEEZE=ON,$ TYPE=SUBHEAD,LINE=1,COLSPAN=3,HEADALIGN=BODY, BACKCOLOR=BLUE, COLOR=WHITE, STYLE=BOLD,$ TYPE=HEADING,COLOR=WHITE,BACKCOLOR=GREEN,$ TYPE=TITLE,BACKCOLOR=YELLOW,$ ENDSTYLE END -EXIT