Apples Granny Red Delicious Green -SET &INDENT_LABEL1 = CTRAN(16,' Red Delicious', 32,13,'A16');
DEFINE FILE CAR D_MODEL/A70 = CTRAN(3,'...',46,13,'A3')|MODEL; END TABLE FILE CAR BY COUNTRY BY CAR BY D_MODEL ON TABLE PCHOLD FORMAT EXL2K ON TABLE SET HTMLCSS ON ON TABLE SET LINES 999999 ON TABLE SET PAGE NOLEAD ON TABLE SET STYLE * ENDSTYLE 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 |
SET SHOWBLANKS = ON DEFINE FILE CAR CATEGORY/A20 = ' ' | CAR; END TABLE FILE CAR SUM RETAIL_COST DEALER_COST BY COUNTRY BY CATEGORY ON TABLE HOLD AS HOLD2 END -RUN DEFINE FILE HOLD2 TOT1/P13C = RETAIL_COST; TOT2/P13C = DEALER_COST; END TABLE FILE HOLD2 SUM TOT1 NOPRINT TOT2 NOPRINT BY COUNTRY NOPRINT SUM RETAIL_COST DEALER_COST BY COUNTRY NOPRINT BY CATEGORY AS 'CATEGORY' ON COUNTRY SUBHEAD "<COUNTRY<TOT1<TOT2" ON TABLE PCHOLD FORMAT EXL07 ON TABLE SET HTMLCSS ON ON TABLE SET LINES 999999 ON TABLE SET PAGE NOLEAD ON TABLE SET STYLE * TYPE=SUBHEAD, HEADALIGN=BODY, STYLE=BOLD,$ TYPE=TITLE, STYLE=BOLD,$ ENDSTYLE END -RUN -EXITThis message has been edited. Last edited by: Tom Flynn,
SET SHOWBLANKS = ON DEFINE FILE CAR MAX_PADDING/A30 = '@@@@@@@@@@@@@@@@@@'; INSTRLEN/I5 = ARGLEN(24, MODEL,INSTRLEN); DES/D12 = IF INSTRLEN EQ 3 THEN 1 ELSE IF INSTRLEN EQ 9 THEN 2 ELSE IF INSTRLEN EQ 11 THEN 3 ELSE IF INSTRLEN EQ 16 THEN 4 ELSE 7; PADDING/A30= SUBSTR(30, MAX_PADDING, 1, DES, DES, PADDING); PADDED_VALUE/A100 = PADDING || MODEL; IND_VALUE/A100 = STRREP (100, PADDED_VALUE, 1, '@',1,' ',100, IND_VALUE); END TABLE FILE CAR PRINT MODEL INSTRLEN DES PADDING PADDED_VALUE IND_VALUE ON TABLE PCHOLD FORMAT EXL07 END