TABLE FILE CAR BY CAR AS 'A10000' BY COUNTRY AS 'A20000' BY SALES BY MPG ON TABLE SET ASNAMES ON ON TABLE HOLD AS AFORMAT END -RUN TABLE FILE AFORMAT BY A10000 BY A20000 BY SALES ON TABLE SET PAGE NOPAGE ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE PCHOLD FORMAT XLSX ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN,SQUEEZE=ON,ORIENTATION=LANDSCAPE,HEADALIGN = BODY,$ TYPE=REPORT, FONT='ARIAL', SIZE=10, COLOR='BLACK', STYLE=NORMAL, $ TYPE=TITLE, FONT='ARIAL NARROW', COLOR='WHITE', STYLE=BOLD, JUSTIFY=CENTER, BACKCOLOR=RGB(102 102 102),$ TYPE=DATA, COLUMN=A10000, JUSTIFY=CENTER, $ ENDSTYLE ENDThis message has been edited. Last edited by: Dev,
TABLE FILE CAR BY CAR AS 'Z10000' BY COUNTRY AS 'Z20000' BY SALES BY MPG ON TABLE SET ASNAMES ON ON TABLE HOLD AS AFORMAT END -RUN TABLE FILE AFORMAT BY Z10000 BY Z20000 BY SALES ON TABLE SET PAGE NOPAGE ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL -*ON TABLE PCHOLD FORMAT XLSX ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN,SQUEEZE=ON,ORIENTATION=LANDSCAPE,HEADALIGN = BODY,$ TYPE=REPORT, FONT='ARIAL', SIZE=10, COLOR='BLACK', STYLE=NORMAL, $ TYPE=TITLE, FONT='ARIAL NARROW', COLOR='WHITE', STYLE=BOLD, JUSTIFY=CENTER, BACKCOLOR=RGB(102 102 102),$ TYPE=DATA, COLUMN=Z10000, JUSTIFY=CENTER, $ ENDSTYLE END
quote:N
quote:Does E01, E02, etc. work?
FILEDEF Z_AMASTER DISK Z_AFORMAT.MAS (APPEND FILEDEF Z_AFORMAT DISK AFORMAT.FTM -RUN TABLE FILE CAR BY CAR AS 'A10000' BY COUNTRY AS 'A20000' BY SALES BY MPG ON TABLE SET ASNAMES ON ON TABLE HOLD AS AFORMAT END -RUN TABLE FILE SYSCOLUM PRINT COMPUTE SYNLINE/A4000 = 'FILENAME='||TBNAME||',SUFFIX='||TBTYPE||',$'; COMPUTE CRLF/A2 = HEXBYT(13,'A1')||HEXBYT(10,'A1'); COMPUTE SYNLINE/A4000 = 'SEGNAME='||SEGNAME||',SEGTYPE='||SEGTYPE||LJUST(11,FPRINT(SKEYS,'I11','A11'),'A11')||',$'; BY LOWEST 1 COLNO NOPRINT WHERE TBNAME EQ 'aformat' ON TABLE SET HOLDLIST PRINTONLY ON TABLE SAVE AS Z_AMASTER END -RUN TABLE FILE SYSCOLUM PRINT COMPUTE SYNLINE/A4000 = 'FIELD='||NAME||',ALIAS=Z_'||NAME||',USAGE='||USAGE||',ACTUAL='||ACTUAL||',$'; BY SEGNO NOPRINT BY COLNO NOPRINT WHERE TBNAME EQ 'aformat' ON TABLE SET HOLDLIST PRINTONLY ON TABLE SAVE AS Z_AMASTER END -RUN TABLE FILE Z_AFORMAT BY A10000 BY A20000 BY SALES ON TABLE SET PAGE NOPAGE ON TABLE SET PAGE-NUM OFF ON TABLE NOTOTAL ON TABLE PCHOLD FORMAT XLSX ON TABLE SET HTMLCSS ON ON TABLE SET STYLE * UNITS=IN,SQUEEZE=ON,ORIENTATION=LANDSCAPE,HEADALIGN = BODY,$ TYPE=REPORT, FONT='ARIAL', SIZE=10, COLOR='BLACK', STYLE=NORMAL, $ TYPE=TITLE, FONT='ARIAL NARROW', COLOR='WHITE', STYLE=BOLD, JUSTIFY=CENTER, BACKCOLOR=RGB(102 102 102),$ TYPE=DATA, COLUMN=Z_A10000, JUSTIFY=CENTER, COLOR=RED, $ ENDSTYLE 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 |