TABLE FILE CAR
SUM RETAIL DEALER
COMPUTE DIFF/D12.2=RETAIL-DEALER;
BY COUNTRY 
BY CAR
ON COUNTRY SUB-TOTAL
END
 

DEFINE FILE SQLOUT
CR_AMOUNT/D20.2 = IF T_TYPE EQ 'CR' THEN AMOUNT;
DB_AMOUNT/D20.2 = IF T_TYPE EQ 'DB' THEN AMOUNT;
END

TABLE FILE SQLOUT
PRINT
...
.....
COMPUTE DIFF/D20.2 = CR_AMOUNT - DB_AMOUNT; NOPRINT
.....
BY SORTFIELD1 NOPRINT
BY SORTFIELD2 NOPRINT
BY SORTFIELD3 NOPRINT
ON SORTFIELD1 SUBTOTAL DIFF AS 'Total: '
.........
........

 
TABLE FILE CAR
SUM RETAIL DEALER
COMPUTE DIFF/D12.2=RETAIL-DEALER; NOPRINT
BY COUNTRY 
BY CAR
ON COUNTRY SUBHEAD
"SUBTOTAL FOR THE DIFFERENCE FOR <COUNTRY IS: <ST.DIFF"
END
 

TABLE FILE CAR
SUM 
     DEALER_COST
     RETAIL_COST
     COMPUTE DIFF/D12.2 = RETAIL_COST- DEALER_COST;
BY  COUNTRY
BY  CAR
     
ON COUNTRY SUBTOTAL AS 'Subtotal and the difference'
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT HTML
ON TABLE SET HTMLEMBEDIMG ON
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *

TYPE=DATA,
     COLUMN=N5,
     COLOR='WHITE',
$
TYPE=TITLE,
     COLUMN=N5,
     COLOR='WHITE',
$
ENDSTYLE
END

  

TABLE FILE SQLOUT
PRINT
...
.....
COMPUTE DIFF/D20.2 = CR_AMOUNT - DB_AMOUNT; NOPRINT
.....
BY SORTFIELD1 NOPRINT
BY SORTFIELD2 NOPRINT
BY SORTFIELD3 NOPRINT
ON SORTFIELD1 SUBTOTAL DIFF AS 'Total: '
.........
........

In FOCUS Since 1983 ~ from FOCUS to WebFOCUS.    Current: WebFOCUS Administrator at FIS Worldpay | 8204, 8206

  
-* File Nova27_02.fex
TABLE FILE CAR
SUM RCOST DCOST
COMPUTE DIFF/D6=RCOST - DCOST; 
BY COUNTRY
BY CAR
ON COUNTRY SUBTOTAL 
ON TABLE SET STYLE *
INCLUDE=ENDEFLT, $
TYPE=DATA, COLUMN=DIFF, SIZE=1,$
ENDSTYLE
END