TABLE FILE CAR
SUM SALES
BY CAR
ACROSS COUNTRY
END

Waz...

Prod:	WebFOCUS 7.6.10/8.1.04	Upgrade:	WebFOCUS 8.2.07	OS:	Linux	Outputs:	HTML, PDF, Excel, PPT
In Focus since 1984
Pity the lost knowledge of an old programmer!

TABLE FILE CAR
  LIST RCOST
    BY COUNTRY
    BY CAR
ON TABLE HOLD AS TEMPHLD1
END
TABLE FILE TEMPHLD1
   SUM CAR
       RETAIL_COST
    BY LIST NOPRINT
ACROSS COUNTRY
END

 TABLE FILE EMPDATA
PRINT
FIRSTNAME
DEPT
SALARY
ON TABLE HOLD AS EMPDATA1
END


TABLE FILE EMPDATA1
PRINT
FIRSTNAME
SALARY
ACROSS  DEPT
END
 

    10                20             30
Comp1  St date    Comp1  St date
Tom    01/01/09   Lee    01/13/09
Tim    02/12/08   Comp2  End Date
Comp2  End Date   Jim    01/23/06
Joe    03/01/07

APP PREPENDPATH IBISAMP
DEFINE FILE EMPDATA
  NAME/A26 = FIRSTNAME || (' ' | LASTNAME);
END
TABLE FILE EMPDATA
   SUM HIREDATE/DMYY
       COMPUTE LIST/I9 = IF DEPT NE LAST DEPT THEN 1 ELSE
                         IF DIV  NE LAST DIV  THEN 1 ELSE LAST LIST + 1;
    BY DEPT
    BY DIV
    BY NAME
WHERE DEPT IN ('MARKETING','PERSONNEL','SALES')
WHERE DIV  NE 'CORP'
ON TABLE HOLD AS TEMPHLD1
END
TABLE FILE TEMPHLD1
   SUM NAME
       HIREDATE
    BY DIV  NOPRINT
    BY LIST NOPRINT
ACROSS DEPT AS ''
ON DIV SUBHEAD
"Division <DIV"
ON TABLE SET HTMLCSS ON
ON TABLE SET PAGE NOLEAD
ON TABLE SET STYLE *
  GRID=OFF, SIZE=9, $
  TYPE=REPORT, COLUMN=NAME(*), BORDER-LEFT=LIGHT, BORDER-RIGHT=OFF, $
  TYPE=REPORT, COLUMN=HIREDATE(*), BORDER-RIGHT=LIGHT, $
  TYPE=REPORT, ACROSSCOLUMN=DEPT, BORDER-RIGHT=LIGHT, $
  TYPE=SUBHEAD, BORDER-BOTTOM=LIGHT, $
ENDSTYLE
END