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've an issue with page number display in footing. There’s no page number on any of the pages except the last page.(The entire report has only graphs except for the last page).
I am using TABPAGENO to display the page number in the footing.
Its like -
FOOTING BOTTOM " " "(C) Copyright 2006-&CURYEAR.EVAL All rights reserved - &FOOTLBL - Report generated &DATEtrMDYY at &TOD by &FULLNAME Page
Sorry the code is - "(C) Copyright 2006-&CURYEAR.EVAL FMR Corp. All rights reserved - &FOOTLBL - Report generated &DATEtrMDYY at &TOD by &FULLNAME Page
Put your code between the RED code tags on the far right of the toolbar above... Didn't need the style code... Make sure you have a double quote to CLOSE the footer...
SET &FOOTLBL = IF &RECORDS EQ 0 THEN 'Fidelity Confidential Information' ELSE 'Fidelity Highly Confidential / Attorney Client Privileged Communication / Attorney Work Product';
DEFINE FILE LALITHA
BLANK/A1 = ' ' ;
BLANK1/A1 = ' ' ;
BLANK2/A1 = ' ' ;
BLANK3/A1 = ' ' ;
END
-*
SET PRINTPLUS=ON
SET PAGE=NOLEAD
-RUN
TABLE FILE LALITHA
SUM
COMPUTE CTR/I1 = IF CTR EQ 1 THEN 2 ELSE 1 ; NOPRINT
-*Now print the months
-SET &MTHCTR = 1 ;
-*Get column title
-REPEAT MTHLOOP &MTHS TIMES
-SET &MTHCTR = &MTHCTR + 1 ;
-SET &COL = IF &MTHCTR GE 10 THEN 'E' || &MTHCTR ELSE 'E' || '0'||'&MTHCTR.EVAL' ;
-READ MTHS &MTHNAME_T.10.
-SET &MTHNAME = TRUNCATE(&MTHNAME_T) ;
&COL AS '&MTHNAME.EVAL'
-MTHLOOP
-*
-*Print first total. Dont print if no records
-IF &MTHS EQ 0 THEN GOTO SKPTOT1 ;
-SET &MTHTOT = &MTHCTR + 1 ;
-*If 'InProcess', then the total displays values from the last month
-SET &COLTOT = IF &SUBLVL EQ 3 THEN &COL ELSE
- IF &MTHTOT GE 10 THEN 'E' || &MTHTOT ELSE 'E' || '0'||'&MTHTOT.EVAL' ;
&COLTOT AS 'YTD'
BLANK1 AS ''
-SKPTOT1
-*
-*Print Quarters
-SET &QTRCTR = &MTHTOT ;
-REPEAT QTRLOOP &QTRS TIMES
-SET &QTRCTR = &QTRCTR + 1 ;
-SET &COL = IF &QTRCTR GE 10 THEN 'E' || &QTRCTR ELSE 'E' || '0'||'&QTRCTR.EVAL' ;
-*Get column title
-READ QTRS &QTRNAME_T.10.
-SET &QTRNAME = TRUNCATE(&QTRNAME_T) ;
&COL AS '&QTRNAME.EVAL'
-QTRLOOP
-*
-*Print Quarters total. Dont print if no records
-IF &MTHS EQ 0 THEN GOTO SKPTOT2 ;
-SET &QTRTOT = &QTRCTR + 1 ;
-*If 'InProcess', then the total displays values from the last month
-SET &COLQTOT = IF &SUBLVL EQ 3 THEN &COL ELSE
- IF &QTRTOT GE 10 THEN 'E' || &QTRTOT ELSE 'E' || '0'||'&QTRTOT.EVAL' ;
&COLQTOT AS 'YTD'
BLANK2 AS ''
-SKPTOT2
-*
-*Print Cumulative Quarters
-CLOSE QTRS
-SET &QTRCTR = &QTRTOT ;
-SET &CUM_QTR1# = '' ;
-SET &CUM_QTR2# = '' ;
-SET &CUM_QTR3# = '' ;
-SET &CUM_QTR4# = '' ;
-SET &CTR = 0 ;
-REPEAT QTRCLOOP &QTRS TIMES
-SET &QTRCTR = &QTRCTR + 1 ;
-SET &COL = IF &QTRCTR GE 10 THEN 'E' || &QTRCTR ELSE 'E' || '0'||'&QTRCTR.EVAL' ;
-SET &CTR = &CTR + 1 ;
-*Get column title
-READ QTRS &QTRNAME_T.10.
-SET &QTRNAME = IF &CTR EQ 1 THEN 'Cumulative,' ||TRUNCATE(&QTRNAME_T) ELSE TRUNCATE(&QTRNAME_T) ;
-*Store the column number for Cumulative title. Used to format in stylesheet
-SET &CUM_QTR1# = IF &CTR EQ 1 THEN &COL ELSE &CUM_QTR1#;
-SET &CUM_QTR2# = IF &CTR EQ 2 THEN &COL ELSE &CUM_QTR2#;
-SET &CUM_QTR3# = IF &CTR EQ 3 THEN &COL ELSE &CUM_QTR3#;
-SET &CUM_QTR4# = IF &CTR EQ 4 THEN &COL ELSE &CUM_QTR4#;
&COL AS '&QTRNAME.EVAL'
-QTRCLOOP
-*
BY BLANK NOPRINT SUB-TOTAL AS 'Total'
BY RISKISSUETYPE AS 'Type'
HEADING
"&REPORT_NAME"
"Time Period: &TOTLBL"
" "
"&HDR.EVAL Level (Risk Issues) - &STAT.EVAL"
FOOTING BOTTOM
" "
"(C) Copyright 2006-&CURYEAR.EVAL FMR Corp. All rights reserved - &FOOTLBL - Report generated &DATEtrMDYY at &TOD by &FULLNAME Page <TABPAGENO"
ON TABLE SET PAGE-NUM OFF
ON TABLE SET NODATA ''
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT &OUTMODE
ON TABLE SET HTMLCSS ON
ON TABLE SET STYLE *
UNITS=IN,PAGESIZE='Letter',LEFTMARGIN=0.150,RIGHTMARGIN=0.15,TOPMARGIN=0.150,BOTTOMMARGIN=0.0,SQUEEZE=ON, ORIENTATION=LANDSCAPE,$
TYPE=REPORT,GRID=OFF,LEFTGAP=0.01,RIGHTGAP=0.01, BORDER=OFF,FONT='ARIAL',SIZE=8,STYLE=NORMAL,JUSTIFY=RIGHT,$
-*
TYPE=DATA,BACKCOLOR=RGB(228 228 228),WHEN=CTR EQ 1,$
TYPE=REPORT,WRAP=0.4, $
-*
TYPE=REPORT,COLUMN=N2,WRAP=1.5,JUSTIFY=LEFT, $
-*
TYPE=REPORT,COLUMN=BLANK1,WRAP=0.05, $
TYPE=DATA,COLUMN=BLANK1,BORDER-RIGHT=ON,BORDER-RIGHT-COLOR='BLACK',$
-*
TYPE=REPORT,COLUMN=BLANK2,WRAP=0.05, $
TYPE=DATA,COLUMN=BLANK2,BORDER-RIGHT=ON,BORDER-RIGHT-COLOR='BLACK',$
-*
TYPE=SUBTOTAL,BACKCOLOR='WHEAT', $
-*
TYPE=TITLE,BORDER=ON,GRID=OFF,JUSTIFY=CENTER,BACKCOLOR=RGB(210 210 210),STYLE=-UNDERLINE+BOLD,BORDER-COLOR='WHITE',BOTTOMGAP=0.05,$
TYPE=TITLE,COLUMN=&COLTOT,BORDER-RIGHT=OFF,$
TYPE=TITLE,COLUMN=BLANK1,BORDER-LEFT=OFF,$
TYPE=TITLE,COLUMN=&COLQTOT,BORDER-RIGHT=OFF,$
TYPE=TITLE,COLUMN=BLANK2,BORDER-LEFT=OFF,$
-*
-SET &CUM_QTR1# = IF &CUM_QTR1# EQ '' THEN 'N2' ELSE &CUM_QTR1# ;
TYPE=REPORT,COLUMN=&CUM_QTR1#,WRAP=0.7,$
TYPE=TITLE,COLUMN=&CUM_QTR1#,BORDER-RIGHT=OFF, JUSTIFY=RIGHT,$
-*Turn left borders off in the next 2 cells too if they exist
-SET &CUM_QTR2# = IF &CUM_QTR2# EQ '' THEN &CUM_QTR1# ELSE &CUM_QTR2# ;
-SET &CUM_QTR3# = IF &CUM_QTR3# EQ '' THEN &CUM_QTR1# ELSE &CUM_QTR3# ;
-SET &CUM_QTR4# = IF &CUM_QTR4# EQ '' THEN &CUM_QTR1# ELSE &CUM_QTR4# ;
TYPE=TITLE,COLUMN=&CUM_QTR2#,BORDER-RIGHT=OFF, JUSTIFY=RIGHT, $
TYPE=TITLE,COLUMN=&CUM_QTR3#,BORDER-RIGHT=OFF, JUSTIFY=RIGHT, $
TYPE=TITLE,COLUMN=&CUM_QTR4#,JUSTIFY=RIGHT, $
-*
TYPE=HEADING,BORDER=OFF,GRID=OFF,JUSTIFY=LEFT, BOTTOMGAP=0.05,$
TYPE=HEADING,LINE=1,OBJECT=TEXT,ITEM=1,SIZE=10,STYLE=BOLD,WRAP=3.4,JUSTIFY=LEFT,WIDTH=18.0,$
TYPE=HEADING,LINE=2,SIZE=8,JUSTIFY=LEFT,WIDTH=11.0,$
TYPE=HEADING,LINE=4,BACKCOLOR='NONE',SIZE=8,COLOR='BLACK',JUSTIFY=LEFT,WIDTH=11.0,$
-*
-*TYPE=FOOTING,LINE=3,SIZE=1,BACKCOLOR=RGB(210 210 210),WIDTH=11.0,$
-*TYPE=FOOTING,LINE=4,SIZE=6,COLOR=RGB(102 102 102),JUSTIFY=CENTER,$
TYPE=FOOTING,BORDER=OFF,GRID=OFF,$
TYPE=FOOTING,LINE=1,SIZE=1,BACKCOLOR=RGB(210 210 210),WIDTH=11.0,$
TYPE=FOOTING,LINE=2,SIZE=6,COLOR=RGB(102 102 102),JUSTIFY=CENTER,$
-*TYPE=FOOTING,LINE=1,SIZE=1,BACKCOLOR=RGB(210 210 210),WIDTH=10.7,$
-*TYPE=FOOTING,LINE=2,SIZE=7,JUSTIFY=CENTER,$
ENDSTYLE
END
-RUN
This message has been edited. Last edited by: Tom Flynn,