DEFINE FILE GGSALES
ALPHA_MO/A3=
IF EDIT(DATE,'$$$$99') EQ '01' THEN 'JAN' ELSE
IF EDIT(DATE,'$$$$99') EQ '02' THEN 'FEB' ELSE
IF EDIT(DATE,'$$$$99') EQ '03' THEN 'MAR' ELSE
IF EDIT(DATE,'$$$$99') EQ '04' THEN 'APR' ELSE
IF EDIT(DATE,'$$$$99') EQ '05' THEN 'MAY' ELSE
IF EDIT(DATE,'$$$$99') EQ '06' THEN 'JUN' ELSE
IF EDIT(DATE,'$$$$99') EQ '07' THEN 'JUL' ELSE
IF EDIT(DATE,'$$$$99') EQ '08' THEN 'AUG' ELSE
IF EDIT(DATE,'$$$$99') EQ '09' THEN 'SEP' ELSE
IF EDIT(DATE,'$$$$99') EQ '10' THEN 'OCT' ELSE
IF EDIT(DATE,'$$$$99') EQ '11' THEN 'NOV' ELSE 'DEC';
ORACLE_DATE/A9=EDIT(DATE,'$$$$$$99') | '-' | ALPHA_MO | '-' | EDIT(DATE,'$$99');
END
TABLE FILE GGSALES
BY ORACLE_DATE
WHERE READLIMIT EQ 10
WHERE RECORDLIMIT EQ 10
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 *
INCLUDE = IBFS:/FILE/IBI_HTML_DIR/ibi_themes/Warm.sty,
$
ENDSTYLE
END
DEFINE FILE CAR DTX /I8 = 20200705; DT /A8DMYY = DATECVT(DTX, 'I8YYMD', 'A8DMYY'); -* The T is to display the 3 characters month in capitals letters (t = mixed case, TR = full month name capital, tr = full month name mixed case) DTA /D-M-YYT = DT; END TABLE FILE CAR PRINT DTX DT DTA BY COUNTRY WHERE READLIMIT EQ 1; END
TABLE FILE GGSALES SUM FST.DATE/D-Mt-YY BY DATE END
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 |