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.
I am unable to generate border for OBJECT=FIELD which is item=3 in my code.
TABLE FILE CAR
PRINT CAR LENGTH
RC DC
BY COUNTRY
ON COUNTRY SUBFOOT
"Total:<ST.RC<ST.DC<0+> "
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN, PAGESIZE='Letter', ORIENTATION=LANDSCAPE, SQUEEZE=ON, $
TYPE = SUBFOOT,HEADALIGN=BODY, $
TYPE = SUBFOOT, STYLE = BOLD, BORDER=LIGHT, $
TYPE = SUBFOOT,LINE=1 ,ITEM=1, OBJECT=TEXT, COLSPAN=1, BORDER =LIGHT, BORDER-LEFT=LIGHT, BORDER-RIGHT=LIGHT, $
TYPE = SUBFOOT,LINE=1 ,ITEM=2, OBJECT=FIELD, COLSPAN=1, BORDER =LIGHT, BORDER-LEFT=LIGHT, BORDER-RIGHT=LIGHT, $
TYPE = SUBFOOT,LINE=1 ,ITEM=3, OBJECT=FIELD, COLSPAN=1, BORDER =LIGHT, BORDER-LEFT=LIGHT, BORDER-RIGHT=LIGHT, $
TYPE = SUBFOOT,LINE=1 ,ITEM=4, OBJECT=TEXT, COLSPAN=1, BORDER =LIGHT, BORDER-LEFT=LIGHT, BORDER-RIGHT=LIGHT,$
ENDSTYLE
END
This message has been edited. Last edited by: FP Mod Chuck,
TABLE FILE CAR
PRINT CAR
LENGTH
RC
DC
BY COUNTRY
ON COUNTRY SUBFOOT
"Total:<ST.RC<ST.DC<0+>"
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN, PAGESIZE='Letter', ORIENTATION=LANDSCAPE, SQUEEZE=ON, $
TYPE = SUBFOOT,HEADALIGN=BODY, $
TYPE = SUBFOOT, STYLE = BOLD, $
TYPE = SUBFOOT,LINE=1 ,ITEM=1, OBJECT=TEXT, COLSPAN=1, BORDER =LIGHT, $
TYPE = SUBFOOT,LINE=1 ,ITEM=1, OBJECT=FIELD, COLSPAN=3, BORDER =LIGHT, $
TYPE = SUBFOOT,LINE=1 ,ITEM=2, OBJECT=FIELD, COLSPAN=1, BORDER =LIGHT, $
ENDSTYLE
END
-RUN
WF versions : Prod 8.2.04M gen 33, Dev 8.2.04M gen 33, OS : Windows, DB : MSSQL, Outputs : HTML, Excel, PDF In Focus since 2007
Posts: 2409 | Location: Montreal Area, Qc, CA | Registered: September 25, 2013
I, sometimes, eliminate the "ITEM=1, OBJECT=TEXT" and just count the items (regardless of the TYPE, TEXT or FIELD, just to eliminate some confusion. Just a thought...
Posts: 3132 | Location: Tennessee, Nashville area | Registered: February 23, 2005
DEFINE FILE CAR
RC_DC/D14.2CMB = DEALER_COST - RETAIL_COST ;
RETAIL_COST_1/D14.2CMB = RETAIL_COST;
DEALER_COST_1/D14.2CMB = DEALER_COST;
END
TABLE FILE CAR
SUM RETAIL_COST_1
DEALER_COST_1
RC_DC/D14.2CMB
LENGTH
BY COUNTRY
BY CAR
ON COUNTRY SUBFOOT
"Total:<+0> <ST.RETAIL_COST_1<ST.DEALER_COST_1<RC_DC <0+>"
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET PAGE NOLEAD
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
SQUEEZE=ON, $
TYPE=TITLE, STYLE=BOLD,$
TYPE=REPORT, FONT='ARIAL', SIZE=5, STYLE=NORMAL, BORDER =LIGHT, $
TYPE=DATA,COLUMN=RETAIL_COST_1, JUSTIFY=RIGHT,$
TYPE=DATA,COLUMN=DEALER_COST_1, JUSTIFY=RIGHT,$
TYPE=DATA,COLUMN=RC_DC, JUSTIFY=RIGHT,$
TYPE=TITLE, STYLE=BOLD,$
TYPE=SUBFOOT, HEADALIGN=BODY, BORDER=LIGHT, $
TYPE=SUBFOOT, LINE=1 ,OBJECT = TEXT , ITEM=1, COLSPAN=1, BORDER =ON, BORDER-LEFT=ON, BORDER-RIGHT=ON, $
TYPE=SUBFOOT, LINE=1 ,OBJECT = TEXT , ITEM=2, COLSPAN=1, BORDER =ON, BORDER-LEFT=ON, BORDER-RIGHT=ON, $
TYPE=SUBFOOT, LINE=1 ,OBJECT = FIELD, ITEM=1, COLSPAN=1, BORDER =ON, BORDER-LEFT=ON, BORDER-RIGHT=ON,$
TYPE=SUBFOOT, LINE=1 ,OBJECT = FIELD, ITEM=2, COLSPAN=1, BORDER =ON, BORDER-LEFT=ON, BORDER-RIGHT=ON,$
TYPE=SUBFOOT, LINE=1 ,OBJECT = FIELD, ITEM=3, COLSPAN=1, BORDER =ON, BORDER-LEFT=ON, BORDER-RIGHT=ON,$
-*TYPE=SUBFOOT, LINE=1 ,OBJECT = TEXT, ITEM=3, COLSPAN=1, BORDER =ON, BORDER-LEFT=ON, BORDER-RIGHT=ON,$
-*TYPE=SUBFOOT, LINE=1 ,OBJECT = TEXT, ITEM=4, COLSPAN=1, BORDER =ON, BORDER-LEFT=ON, BORDER-RIGHT=ON,$
-*TYPE=SUBFOOT, LINE=1 ,OBJECT = TEXT, ITEM=5, COLSPAN=1, BORDER =ON, BORDER-LEFT=ON, BORDER-RIGHT=ON,$
TYPE=SUBFOOT, LINE=1 ,OBJECT = TEXT , ITEM=6, COLSPAN=1, BORDER =ON, BORDER-LEFT=ON, BORDER-RIGHT=ON,$
ENDSTYLE
END
Above is my code snippet to get subtotal using subfoot, but i could not able to generate right border for the totals in subfoot when i used OBJECT = TEXT. when i tried OBJECT = FIELD border is not respecting correctly for negative values.
DEFINE FILE CAR
RC_DC/D14.2CMB = DEALER_COST - RETAIL_COST ;
RETAIL_COST_1/D14.2CMB = RETAIL_COST;
DEALER_COST_1/D14.2CMB = DEALER_COST;
END
TABLE FILE CAR
SUM RETAIL_COST_1
DEALER_COST_1
RC_DC
LENGTH
BY COUNTRY
BY CAR
ON COUNTRY SUBFOOT
"Total:<+0> <ST.RETAIL_COST_1<ST.DEALER_COST_1<ST.RC_DC <+0> "
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE SET ONLINE-FMT PDF
ON TABLE SET PAGE NOLEAD
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
SQUEEZE=ON, $
TYPE=TITLE, STYLE=BOLD,$
TYPE=REPORT, FONT='ARIAL', SIZE=5, STYLE=NORMAL, BORDER=LIGHT, $
TYPE=DATA,COLUMN=RETAIL_COST_1, JUSTIFY=RIGHT,$
TYPE=DATA,COLUMN=DEALER_COST_1, JUSTIFY=RIGHT,$
TYPE=DATA,COLUMN=RC_DC, JUSTIFY=RIGHT,$
TYPE=SUBFOOT,HEADALIGN=BODY, $
TYPE=SUBFOOT,STYLE=BOLD, $
TYPE=SUBFOOT,LINE=1 ,ITEM=1, OBJECT=TEXT, COLSPAN=1, BORDER=LIGHT, $
TYPE=SUBFOOT,LINE=1 ,ITEM=1, OBJECT=FIELD, COLSPAN=1, BORDER=LIGHT, $
TYPE=SUBFOOT,LINE=1 ,ITEM=2, OBJECT=FIELD, COLSPAN=1, BORDER=LIGHT, $
TYPE=SUBFOOT,LINE=1 ,ITEM=3, OBJECT=FIELD, COLSPAN=1, $
TYPE=SUBFOOT,LINE=1 ,ITEM=3, OBJECT=TEXT, COLSPAN=1, BORDER=LIGHT, $
END
-RUN
WF versions : Prod 8.2.04M gen 33, Dev 8.2.04M gen 33, OS : Windows, DB : MSSQL, Outputs : HTML, Excel, PDF In Focus since 2007
Posts: 2409 | Location: Montreal Area, Qc, CA | Registered: September 25, 2013
I added some elaborations to MartinY's already prefect code.
-* File: http://forums.informationbuild...407047196#5407047196
-* Created by WebFOCUS Doug in AppStudio
DEFINE FILE CAR
COUNTRY_Total/A17=COUNTRY || ( ' Total') ;
END
TABLE FILE CAR
SUM CNT.DST.MODEL/I2 AS 'Models'
RETAIL_COST/D12C AS 'Retail'
DEALER_COST/D12C AS 'Dealer'
COMPUTE Profit/D12C = RETAIL_COST - DEALER_COST ;
BY COUNTRY
BY CAR
ON COUNTRY SUBFOOT
"<COUNTRY_Total <+0> <ST.RETAIL_COST<ST.DEALER_COST<ST.Profit <+0> "
ON TABLE SET PAGE-NUM NOLEAD
ON TABLE SET ASNAMES ON
ON TABLE SET PAGE NOLEAD
ON TABLE SUBTOTAL AS 'Report Total:'
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
SQUEEZE=ON, $
TYPE=TITLE, STYLE=BOLD,$
TYPE=REPORT, FONT='ARIAL', SIZE=5, STYLE=NORMAL, BORDER=LIGHT, $
TYPE=DATA,COLUMN=RETAIL_COST, JUSTIFY=RIGHT,$
TYPE=DATA,COLUMN=DEALER_COST, JUSTIFY=RIGHT,$
TYPE=DATA,COLUMN=N3, JUSTIFY=CENTER, $
TYPE=SUBFOOT,HEADALIGN=BODY, $
TYPE=SUBFOOT,STYLE=BOLD, BACKCOLOR=RGB(244 244 244), $
TYPE=SUBFOOT,LINE=1 ,ITEM=1, OBJECT=FIELD, COLSPAN=1, BORDER=LIGHT, $
TYPE=SUBFOOT,LINE=1 ,ITEM=2, OBJECT=FIELD, COLSPAN=1, BORDER=LIGHT, $
TYPE=SUBFOOT,LINE=1 ,ITEM=3, OBJECT=FIELD, COLSPAN=1, $
TYPE=SUBFOOT,LINE=1 ,ITEM=3, OBJECT=TEXT, COLSPAN=1, BORDER=LIGHT, $
TYPE=GRANDTOTAL,STYLE=BOLD, BACKCOLOR=RGB(204 204 204), $
TYPE=GRANDTOTAL,COLUMN=N3, JUSTIFY=CENTER,$
END
-RUN
I hope you like it.
In FOCUS Since 1983 ~ from FOCUS to WebFOCUS. Current: WebFOCUS Administrator at FIS Worldpay | 8204, 8206
Posts: 3132 | Location: Tennessee, Nashville area | Registered: February 23, 2005
Focal Point Forums 
