Focal Point Banner


As of December 1, 2020, Focal Point is retired and repurposed as a reference repository. We value the wealth of knowledge that's been shared here over the years. You'll continue to have access to this treasure trove of knowledge, for search purposes only.

Join the TIBCO Community
TIBCO Community is a collaborative space for users to share knowledge and support one another in making the best use of TIBCO products and services. There are several TIBCO WebFOCUS resources in the community.

  • From the Home page, select Predict: WebFOCUS to view articles, questions, and trending articles.
  • Select Products from the top navigation bar, scroll, and then select the TIBCO WebFOCUS product page to view product overview, articles, and discussions.
  • Request access to the private WebFOCUS User Group (login required) to network with fellow members.

Former myibi community members should have received an email on 8/3/22 to activate their user accounts to join the community. Check your Spam folder for the email. Please get in touch with us at community@tibco.com for further assistance. Reference the community FAQ to learn more about the community.



Read-Only Read-Only Topic
Go
Search
Notify
Tools
PDF Alinement issue
 Login/Join
 
Platinum Member
posted


*

Could someone please help me out with my allignment issue. I need the this information...My code is attached below.


(
PPLANAMT under the amount column
EXPENSES under the expense column
PINCOME undwer the income column
PYTDAMT under the amount column




Change/Update/Add
-* Date By EMR enhancement/Description
-* ---------- ------------------- -------------------------------------------
-* 11/12/2007 Timothy Brydie Initial creation of the report
-******************************************************************************
-*
FILEDEF E711ACCT2 DISK emr_work/e711acct2.ftm
-*-DEFAULTS &BYCLAUSE = ' ';
DEFINE FILE E711ACCT2
CATEGORY/A50 = category;
splancnt/D12BC = plancnt;
APLANCNT/A15 = IF EDIT(yorn,'9') EQ 'N' THEN ' ' ELSE FTOA(plancnt,'(D12BC)',APLANCNT);
splanamt/D15.2BM = planamt;
APLANAMT/A30 = IF EDIT(yorn,'$9') EQ 'N' THEN ' ' ELSE FTOA(planamt,'(D15.2B)',APLANAMT);
sexpense/D15.2BM = expense;
AEXPENSE/A30 = IF EDIT(yorn,'$$9') EQ 'N' THEN ' ' ELSE FTOA(expense,'(D15.2B)',AEXPENSE);
sincome/D15.2BM = income;
AINCOME/A30 = IF EDIT(yorn,'$$$9') EQ 'N' THEN ' ' ELSE FTOA(income,'(D15.2B)',AINCOME);
sytdamt/D15.2BM = ytdamt;
AYTDAMT/A30 = IF EDIT(yorn,'$$$$9') EQ 'N' THEN ' ' ELSE FTOA(ytdamt,'(D15.2B)',AYTDAMT);
TITL/A6 ='Total:';
DUM/A1 WITH category = ' ';
D_endofrpt/A170 = '-- End of Report --';
END
-IF &FOCERRNUM NE 0 GOTO GETOUTNOW;
-RUN
TABLE FILE E711ACCT2
SUM planamt NOPRINT
expense NOPRINT
income NOPRINT
ytdamt NOPRINT

PRINT
CATEGORY AS ''
APLANCNT AS 'Count'
APLANAMT AS 'Amount'
AEXPENSE AS 'Expense'
AINCOME AS 'Income'
AYTDAMT AS 'YTD Amount'


splancnt NOPRINT
splanamt NOPRINT
sexpense NOPRINT
sincome NOPRINT
sytdamt NOPRINT
-*
COMPUTE ZPLANAMT/D15.2 = planamt; NOPRINT
COMPUTE XPLANAMT/A20 = FTOA(ZPLANAMT,'(D15.2B)',XPLANAMT); NOPRINT
COMPUTE PPLANAMT/A30 = '$'||LJUST(20,XPLANAMT,'A20'); NOPRINT
-*
COMPUTE ZEXPENSE/D15.2 = expense; NOPRINT
COMPUTE XEXPENSE/A20 = FTOA(ZEXPENSE,'(D15.2B)',XEXPENSE); NOPRINT
COMPUTE PEXPENSE/A30 = '$'||LJUST(20,XEXPENSE,'A20'); NOPRINT
-*
COMPUTE ZINCOME/D15.2 = income; NOPRINT
COMPUTE XINCOME/A20 = FTOA(ZINCOME,'(D15.2B)',XINCOME); NOPRINT
COMPUTE PINCOME/A30 = '$'||LJUST(20,XINCOME,'A20'); NOPRINT
-*
COMPUTE ZYTDAMT/D15.2 = ytdamt; NOPRINT
COMPUTE XYTDAMT/A20 = FTOA(ZYTDAMT,'(D15.2B)',XYTDAMT); NOPRINT
COMPUTE PYTDAMT/A30 = '$'||LJUST(20,XYTDAMT,'A20'); NOPRINT
-*
BY DUM NOPRINT
-*&BYCLAUSE.EVAL
-*-IF &RECS EQ 0 GOTO SKIPSUB;
ON DUM SUBFOOT
" "
"-*"-GOTO HAVERECS
-SKIPSUB
ON DUM SUBFOOT
"" "
"-HAVERECS
-*
FOOTING BOTTOM
"Page -*
-**** NOLEAD eliminates three lines of blank at the top of the output.
-**** Requires LINES to be < 1000.
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
TYPE=REPORT,SIZE=8,FONT=HELVETICA,ORIENTATION=LANDSCAPE,SQUEEZE=ON,$
TYPE=FOOTING, JUSTIFY=CENTER,$
TYPE=TITLE,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=1,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=2,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=APLANCNT,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=APLANAMT,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=AEXPENSE,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=AINCOME,JUSTIFY=RIGHT,$
TYPE=DATA,COLUMN=ytdamt,JUSTIFY=RIGHT,$

-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=1,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C6,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=1,POSITION=Amount,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=2,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=Amount,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=3,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=Expense,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=4,JUSTIFY=RIGHT,POSITION=ytdamt,$
-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=6,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C11,$
-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=7,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C12,$
-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=8,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C13,$
-*TYPE=SUBFOOT,BY=DUM,LINE=3,JUSTIFY=CENTER,$
ENDSTYLE
-*
END
-RUN
-IF &FOCERRNUM NE 0 GOTO GETOUTNOW;
-RUN
-*
-GOTO NOMORE
-GETOUTNOW
-*-INCLUDE emr_error
-EXIT
-NOMORE




Prod: WebFOCUS 7.6.10 MRE
Oracle/Sybase
Test: DevStudio 7.6.6
WF Server 7.6.6
Report Caster 7.6.6
Web Server - Tomcat
MS Windows XP SP2
Output: HTML, Excel 2000 , PDF, CSV, DOC

 
Posts: 133 | Registered: December 29, 2006Report This Post
Virtuoso
posted Hide Post
You might try

SET PRINTPLUS = ON

You don't really say what the alignment issue is though?


Leah
 
Posts: 1317 | Location: Council Bluffs, IA | Registered: May 24, 2004Report This Post
Expert
posted Hide Post
Your POSITION tags should be on real report column names, not on their AS names:

POSITION=Amount should be POSITION=APLANAMT, etc.

As well, you have two POSITION=Amount clauses - this will not work for one of the SUBFOOT fields.


Francis


Give me code, or give me retirement. In FOCUS since 1991

Production: WF 7.7.05M, Dev Studio, BID, MRE, WebSphere, DB2 / Test: WF 8.1.05M, App Studio, BI Portal, Report Caster, jQuery, HighCharts, Apache Tomcat, MS SQL Server
 
Posts: 10577 | Location: Toronto, Ontario, Canada | Registered: April 27, 2005Report This Post
Platinum Member
posted Hide Post
MY totals are not aligned under the correct columns.
I need to have the alignment as follows:


PPLANAMT under the amount column
EXPENSES under the expense column
PINCOME undwer the income column
PYTDAMT under the amount column





Prod: WebFOCUS 7.6.10 MRE
Oracle/Sybase
Test: DevStudio 7.6.6
WF Server 7.6.6
Report Caster 7.6.6
Web Server - Tomcat
MS Windows XP SP2
Output: HTML, Excel 2000 , PDF, CSV, DOC

 
Posts: 133 | Registered: December 29, 2006Report This Post
Virtuoso
posted Hide Post
I don't see the column-total in your posted code. Are you calculating totals to print in a subfoot? Hard to align those you have to play with spot markers (posistioning with the greater than and less than symbols in the code).


Leah
 
Posts: 1317 | Location: Council Bluffs, IA | Registered: May 24, 2004Report This Post
Platinum Member
posted Hide Post
The section of my code where I am totaling did not print. that section is included here

COMPUTE ZPLANAMT/D15.2 = planamt; NOPRINT
COMPUTE XPLANAMT/A20 = FTOA(ZPLANAMT,'(D15.2B)',XPLANAMT); NOPRINT
COMPUTE PPLANAMT/A30 = '$'||LJUST(20,XPLANAMT,'A20'); NOPRINT
-*
COMPUTE ZEXPENSE/D15.2 = expense; NOPRINT
COMPUTE XEXPENSE/A20 = FTOA(ZEXPENSE,'(D15.2B)',XEXPENSE); NOPRINT
COMPUTE PEXPENSE/A30 = '$'||LJUST(20,XEXPENSE,'A20'); NOPRINT
-*
COMPUTE ZINCOME/D15.2 = income; NOPRINT
COMPUTE XINCOME/A20 = FTOA(ZINCOME,'(D15.2B)',XINCOME); NOPRINT
COMPUTE PINCOME/A30 = '$'||LJUST(20,XINCOME,'A20'); NOPRINT
-*
COMPUTE ZYTDAMT/D15.2 = ytdamt; NOPRINT
COMPUTE XYTDAMT/A20 = FTOA(ZYTDAMT,'(D15.2B)',XYTDAMT); NOPRINT
COMPUTE PYTDAMT/A30 = '$'||LJUST(20,XYTDAMT,'A20'); NOPRINT
-*
BY DUM NOPRINT
-*&BYCLAUSE.EVAL
-*-IF &RECS EQ 0 GOTO SKIPSUB;
ON DUM SUBFOOT
" "
"-*"-GOTO HAVERECS
-SKIPSUB
ON DUM SUBFOOT
"" "
"-HAVERECS
-*
FOOTING BOTTOM
"Page -*
-**** NOLEAD eliminates three lines of blank at the top of the output.
-**** Requires LINES to be < 1000.
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
TYPE=REPORT,SIZE=8,FONT=HELVETICA,ORIENTATION=LANDSCAPE,SQUEEZE=ON,$
TYPE=FOOTING, JUSTIFY=CENTER,$
TYPE=TITLE,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=1,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=2,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=APLANCNT,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=APLANAMT,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=AEXPENSE,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=AINCOME,JUSTIFY=RIGHT,$
TYPE=DATA,COLUMN=ytdamt,JUSTIFY=RIGHT,$

-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=1,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C6,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=1,POSITION=ytdamt,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=2,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=Amount,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=3,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=Expense,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=4,JUSTIFY=RIGHT,POSITION=ytdamt,$
-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=6,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C11,$
-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=7,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C12,$
-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=8,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C13,$
-*TYPE=SUBFOOT,BY=DUM,LINE=3,JUSTIFY=CENTER,$
ENDSTYLE
-*
END
-RUN
-IF &FOCERRNUM NE 0 GOTO GETOUTNOW;
-RUN





Prod: WebFOCUS 7.6.10 MRE
Oracle/Sybase
Test: DevStudio 7.6.6
WF Server 7.6.6
Report Caster 7.6.6
Web Server - Tomcat
MS Windows XP SP2
Output: HTML, Excel 2000 , PDF, CSV, DOC

 
Posts: 133 | Registered: December 29, 2006Report This Post
Platinum Member
posted Hide Post
Thanks Francis, although I believe I've tried using the real names and recieved the same results...I'll try this again.

BTW. My totaling section of the code did not post...it is included here:

COMPUTE ZPLANAMT/D15.2 = planamt; NOPRINT
COMPUTE XPLANAMT/A20 = FTOA(ZPLANAMT,'(D15.2B)',XPLANAMT); NOPRINT
COMPUTE PPLANAMT/A30 = '$'||LJUST(20,XPLANAMT,'A20'); NOPRINT
-*
COMPUTE ZEXPENSE/D15.2 = expense; NOPRINT
COMPUTE XEXPENSE/A20 = FTOA(ZEXPENSE,'(D15.2B)',XEXPENSE); NOPRINT
COMPUTE PEXPENSE/A30 = '$'||LJUST(20,XEXPENSE,'A20'); NOPRINT
-*
COMPUTE ZINCOME/D15.2 = income; NOPRINT
COMPUTE XINCOME/A20 = FTOA(ZINCOME,'(D15.2B)',XINCOME); NOPRINT
COMPUTE PINCOME/A30 = '$'||LJUST(20,XINCOME,'A20'); NOPRINT
-*
COMPUTE ZYTDAMT/D15.2 = ytdamt; NOPRINT
COMPUTE XYTDAMT/A20 = FTOA(ZYTDAMT,'(D15.2B)',XYTDAMT); NOPRINT
COMPUTE PYTDAMT/A30 = '$'||LJUST(20,XYTDAMT,'A20'); NOPRINT
-*
BY DUM NOPRINT
-*&BYCLAUSE.EVAL
-*-IF &RECS EQ 0 GOTO SKIPSUB;
ON DUM SUBFOOT
" "
"-*"-GOTO HAVERECS
-SKIPSUB
ON DUM SUBFOOT
"" "
"-HAVERECS
-*
FOOTING BOTTOM
"Page -*
-**** NOLEAD eliminates three lines of blank at the top of the output.
-**** Requires LINES to be < 1000.
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
TYPE=REPORT,SIZE=8,FONT=HELVETICA,ORIENTATION=LANDSCAPE,SQUEEZE=ON,$
TYPE=FOOTING, JUSTIFY=CENTER,$
TYPE=TITLE,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=1,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=2,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=APLANCNT,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=APLANAMT,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=AEXPENSE,JUSTIFY=RIGHT,$
-*TYPE=DATA,COLUMN=AINCOME,JUSTIFY=RIGHT,$
TYPE=DATA,COLUMN=ytdamt,JUSTIFY=RIGHT,$

-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=1,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C6,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=1,POSITION=ytdamt,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=2,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=Amount,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=3,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=Expense,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=4,JUSTIFY=RIGHT,POSITION=ytdamt,$
-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=6,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C11,$
-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=7,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C12,$
-*TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=8,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=C13,$
-*TYPE=SUBFOOT,BY=DUM,LINE=3,JUSTIFY=CENTER,$
ENDSTYLE
-*
END
-RUN
-IF &FOCERRNUM NE 0 GOTO GETOUTNOW;
-RUN





Prod: WebFOCUS 7.6.10 MRE
Oracle/Sybase
Test: DevStudio 7.6.6
WF Server 7.6.6
Report Caster 7.6.6
Web Server - Tomcat
MS Windows XP SP2
Output: HTML, Excel 2000 , PDF, CSV, DOC

 
Posts: 133 | Registered: December 29, 2006Report This Post
Virtuoso
posted Hide Post
Timothy,

If you put your code between the code brackets (the red
</>
icon) you will see that all code will be posted correctly.
Your complete code would then look like:

FILEDEF E711ACCT2 DISK emr_work/e711acct2.ftm
DEFINE FILE E711ACCT2
 CATEGORY/A50          = category;
 splancnt/D12BC         = plancnt;
 APLANCNT/A15          = IF EDIT(yorn,'9') EQ 'N' THEN ' ' ELSE FTOA(plancnt,'(D12BC)',APLANCNT);
 splanamt/D15.2BM      = planamt;
 APLANAMT/A30          = IF EDIT(yorn,'$9') EQ 'N' THEN ' ' ELSE FTOA(planamt,'(D15.2B)',APLANAMT);
 sexpense/D15.2BM      = expense;
 AEXPENSE/A30          = IF EDIT(yorn,'$$9') EQ 'N' THEN ' '  ELSE FTOA(expense,'(D15.2B)',AEXPENSE);
 sincome/D15.2BM       = income;
 AINCOME/A30           = IF EDIT(yorn,'$$$9') EQ 'N' THEN ' '  ELSE FTOA(income,'(D15.2B)',AINCOME);
 sytdamt/D15.2BM        = ytdamt;
 AYTDAMT/A30            = IF EDIT(yorn,'$$$$9') EQ 'N' THEN ' ' ELSE FTOA(ytdamt,'(D15.2B)',AYTDAMT);
 TITL/A6               ='Total:';
 DUM/A1 WITH category  = ' ';
 D_endofrpt/A170       = '-- End of Report --';
END
-IF &FOCERRNUM NE 0 GOTO GETOUTNOW;
-RUN
TABLE FILE E711ACCT2
SUM planamt  NOPRINT
    expense  NOPRINT
    income   NOPRINT
    ytdamt   NOPRINT

PRINT
   CATEGORY   AS ''
   APLANCNT   AS 'Count'
   APLANAMT   AS 'Amount'
   AEXPENSE   AS 'Expense'
   AINCOME    AS 'Income'
   AYTDAMT    AS 'YTD Amount'

   splancnt    NOPRINT
   splanamt    NOPRINT
   sexpense    NOPRINT
   sincome     NOPRINT
   sytdamt     NOPRINT
-*
COMPUTE ZPLANAMT/D15.2 = planamt; NOPRINT
COMPUTE XPLANAMT/A20  = FTOA(ZPLANAMT,'(D15.2B)',XPLANAMT); NOPRINT
COMPUTE PPLANAMT/A30 = '$'||LJUST(20,XPLANAMT,'A20'); NOPRINT
-*
COMPUTE ZEXPENSE/D15.2 = expense; NOPRINT
COMPUTE XEXPENSE/A20  = FTOA(ZEXPENSE,'(D15.2B)',XEXPENSE); NOPRINT
COMPUTE PEXPENSE/A30 = '$'||LJUST(20,XEXPENSE,'A20'); NOPRINT
-*
COMPUTE ZINCOME/D15.2 = income; NOPRINT
COMPUTE XINCOME/A20  = FTOA(ZINCOME,'(D15.2B)',XINCOME); NOPRINT
COMPUTE PINCOME/A30 = '$'||LJUST(20,XINCOME,'A20'); NOPRINT
-*
COMPUTE ZYTDAMT/D15.2 = ytdamt; NOPRINT
COMPUTE XYTDAMT/A20  = FTOA(ZYTDAMT,'(D15.2B)',XYTDAMT); NOPRINT
COMPUTE PYTDAMT/A30 = '$'||LJUST(20,XYTDAMT,'A20'); NOPRINT
-*
BY DUM  NOPRINT
ON DUM SUBFOOT
" "
"<TITL<TOT.PPLANAMT<TOT.PEXPENSE<TOT.PINCOME<TOT.PYTDAMT"
-GOTO HAVERECS
-SKIPSUB
ON DUM SUBFOOT
"<TITL"
" "
"<D_endofrpt"
-HAVERECS
-*
FOOTING BOTTOM
"Page <TABPAGENO "
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
TYPE=REPORT,SIZE=8,FONT=HELVETICA,ORIENTATION=LANDSCAPE,SQUEEZE=ON,$
TYPE=FOOTING, JUSTIFY=CENTER,$
TYPE=TITLE,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=1,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=2,JUSTIFY=RIGHT,$
TYPE=DATA,COLUMN=ytdamt,JUSTIFY=RIGHT,$

TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=1,POSITION=Amount,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=2,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=Amount,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=3,OBJECT=FIELD,JUSTIFY=RIGHT,POSITION=Expense,$
TYPE=SUBFOOT,BY=DUM,LINE=1,ITEM=4,JUSTIFY=RIGHT,POSITION=ytdamt,$
ENDSTYLE
-*
END
-RUN
-IF &FOCERRNUM NE 0 GOTO GETOUTNOW;
-RUN
-*
-GOTO NOMORE
-GETOUTNOW
-*-INCLUDE emr_error
-EXIT
-NOMORE

I took the liberty of removing comment lines.
Why don't you just use the column-total for your numeric columns? These will always be alined...


GamP

- Using AS 8.2.01 on Windows 10 - IE11.
in Focus since 1988
 
Posts: 1961 | Location: Netherlands | Registered: September 25, 2007Report This Post
Platinum Member
posted Hide Post
this was not written using the GUI..could youexplain how I would that kfor this fex




Prod: WebFOCUS 7.6.10 MRE
Oracle/Sybase
Test: DevStudio 7.6.6
WF Server 7.6.6
Report Caster 7.6.6
Web Server - Tomcat
MS Windows XP SP2
Output: HTML, Excel 2000 , PDF, CSV, DOC

 
Posts: 133 | Registered: December 29, 2006Report This Post
Virtuoso
posted Hide Post
The syntax is

ON TABLE COLUMN-TOTAL AS 'Totals'

This puts totals on line at the bottom of your data columns, then you could add your

ON TABLE SUBFOOT

To print the 'end of report' line.


Leah
 
Posts: 1317 | Location: Council Bluffs, IA | Registered: May 24, 2004Report This Post
Virtuoso
posted Hide Post
The easiest thing to do would be to use the appropriate SUBTOTAL or SUB-TOTAL command instead of doing this in a SUBFOOT. Using SUBTOTAL or SUB-TOTAL or even COLUMN-TOTAL as Leah indicated would automatically calculate the total values and position the total values in the appropriate column.

If you insist on using SUBFOOT, read the following two articles which explain a lot about positioning.

http://www.informationbuilders.com/support/developers/htmlpdf.html

http://www.informationbuilders.com/support/developers/htmlpdf_part2.html


Thanks!

Mickey

FOCUS/WebFOCUS 1990 - 2011
 
Posts: 995 | Location: Gaithersburg, MD, USA | Registered: May 07, 2003Report This Post
Platinum Member
posted Hide Post
I am still getting the same results. I am obviously doing someting wrong. My new code is as follows
TABLE FILE E711ACCT2
SUM planamt  NOPRINT
    expense  NOPRINT
    income   NOPRINT
    ytdamt   NOPRINT

PRINT
   CATEGORY   AS ''
   APLANCNT   AS 'Count'
   APLANAMT   AS 'Amount'
   AEXPENSE   AS 'Expense'
   AINCOME    AS 'Income'
   AYTDAMT    AS 'YTD Amount'


   splancnt    NOPRINT
   splanamt    NOPRINT
   sexpense    NOPRINT
   sincome     NOPRINT
   sytdamt     NOPRINT
-*
COMPUTE ZPLANAMT/D15.2 = planamt; NOPRINT
COMPUTE XPLANAMT/A20  = FTOA(ZPLANAMT,'(D15.2B)',XPLANAMT); NOPRINT
COMPUTE PPLANAMT/A30 = '$'||LJUST(20,XPLANAMT,'A20'); NOPRINT
-*
COMPUTE ZEXPENSE/D15.2 = expense; NOPRINT
COMPUTE XEXPENSE/A20  = FTOA(ZEXPENSE,'(D15.2B)',XEXPENSE); NOPRINT
COMPUTE PEXPENSE/A30 = '$'||LJUST(20,XEXPENSE,'A20'); NOPRINT
-*
COMPUTE ZINCOME/D15.2 = income; NOPRINT
COMPUTE XINCOME/A20  = FTOA(ZINCOME,'(D15.2B)',XINCOME); NOPRINT
COMPUTE PINCOME/A30 = '$'||LJUST(20,XINCOME,'A20'); NOPRINT
-*
COMPUTE ZYTDAMT/D15.2 = ytdamt; NOPRINT
COMPUTE XYTDAMT/A20  = FTOA(ZYTDAMT,'(D15.2B)',XYTDAMT); NOPRINT
COMPUTE PYTDAMT/A30 = '$'||LJUST(20,XYTDAMT,'A20'); NOPRINT
-*
BY DUM  NOPRINT
-*&BYCLAUSE.EVAL
-*-IF &RECS EQ 0 GOTO SKIPSUB;
-*ON TABLE COLUMN-TOTAL AS 'Totals'
-*ON DUM SUBFOOT
ON TABLE SUBFOOT
" "
"<TITL<TOT.PPLANAMT<TOT.PEXPENSE<TOT.PINCOME<TOT.PYTDAMT"
-*
-**** NOLEAD eliminates three lines of blank at the top of the output.
-**** Requires LINES to be < 1000.
-*-*-*ON TABLE COLUMN-TOTAL AS 'Totals'
-*ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
TYPE=REPORT,SIZE=8,FONT=HELVETICA,ORIENTATION=LANDSCAPE,SQUEEZE=ON,$
TYPE=FOOTING, JUSTIFY=CENTER,$
TYPE=TITLE,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=1,JUSTIFY=RIGHT,$
TYPE=TABHEADING,LINE=2,JUSTIFY=RIGHT,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=1, POSITION=CATEGORY,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=2, POSITION=APLANAMT,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=3, POSITION=AEXPENSE,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=4, POSITION=AINCOME,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=5, POSITION=AYTDAMT,$  




Prod: WebFOCUS 7.6.10 MRE
Oracle/Sybase
Test: DevStudio 7.6.6
WF Server 7.6.6
Report Caster 7.6.6
Web Server - Tomcat
MS Windows XP SP2
Output: HTML, Excel 2000 , PDF, CSV, DOC

 
Posts: 133 | Registered: December 29, 2006Report This Post
Expert
posted Hide Post
 
ON TABLE SUBFOOT
" "
"<TITL<TOT.PPLANAMT<TOT.PEXPENSE<TOT.PINCOME<TOT.PYTDAMT"
 

Your SUBFOOT is on LINE 2:

TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=1, POSITION=CATEGORY,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=2, POSITION=APLANAMT,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=3, POSITION=AEXPENSE,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=4, POSITION=AINCOME,$
TYPE=SUBFOOT,LINE=1, OBJECT=FIELD, ITEM=5, POSITION=AYTDAMT,$

Not LINE=1...
  


Tom Flynn
WebFOCUS 8.1.05 - PROD/QA
DB2 - AS400 - Mainframe
 
Posts: 1972 | Location: Centennial, CO | Registered: January 31, 2006Report This Post
Platinum Member
posted Hide Post
your correct...made change totals still bunched together not under their correct columns




Prod: WebFOCUS 7.6.10 MRE
Oracle/Sybase
Test: DevStudio 7.6.6
WF Server 7.6.6
Report Caster 7.6.6
Web Server - Tomcat
MS Windows XP SP2
Output: HTML, Excel 2000 , PDF, CSV, DOC

 
Posts: 133 | Registered: December 29, 2006Report This Post
Expert
posted Hide Post
S/B
ON DUM SUBFOOT

Not ON TABLE SUBFOOT

Also, change the OBJECT stuff to JUSTIFY=RIGHT,


Tom Flynn
WebFOCUS 8.1.05 - PROD/QA
DB2 - AS400 - Mainframe
 
Posts: 1972 | Location: Centennial, CO | Registered: January 31, 2006Report This Post
Platinum Member
posted Hide Post
Thanks Tom and every one else for your help !!!




Prod: WebFOCUS 7.6.10 MRE
Oracle/Sybase
Test: DevStudio 7.6.6
WF Server 7.6.6
Report Caster 7.6.6
Web Server - Tomcat
MS Windows XP SP2
Output: HTML, Excel 2000 , PDF, CSV, DOC

 
Posts: 133 | Registered: December 29, 2006Report This Post
Expert
posted Hide Post
I guess that means it is now working for you???


Tom Flynn
WebFOCUS 8.1.05 - PROD/QA
DB2 - AS400 - Mainframe
 
Posts: 1972 | Location: Centennial, CO | Registered: January 31, 2006Report This Post
Platinum Member
posted Hide Post
Yes...thanks again




Prod: WebFOCUS 7.6.10 MRE
Oracle/Sybase
Test: DevStudio 7.6.6
WF Server 7.6.6
Report Caster 7.6.6
Web Server - Tomcat
MS Windows XP SP2
Output: HTML, Excel 2000 , PDF, CSV, DOC

 
Posts: 133 | Registered: December 29, 2006Report This Post
  Powered by Social Strata  

Read-Only Read-Only Topic


Copyright © 1996-2020 Information Builders