Focal Point
[CLOSED] Page number missing in footing

This topic can be found at:
https://forums.informationbuilders.com/eve/forums/a/tpc/f/7971057331/m/333104612

August 21, 2009, 09:01 AM
lalita
[CLOSED] Page number missing in footing
Hi,

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

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,$


Also I've -
SET PRINTPLUS=ON
SET PAGE=NOLEAD

What could be the issue ?

This message has been edited. Last edited by: Kerry,


764
Windows
PDF,EXL2K,HTML
August 21, 2009, 09:02 AM
lalita
Sorry the code is -

"(C) Copyright 2006-&CURYEAR.EVAL FMR Corp. All rights reserved - &FOOTLBL - Report generated &DATEtrMDYY at &TOD by &FULLNAME Page


764
Windows
PDF,EXL2K,HTML
August 21, 2009, 09:04 AM
lalita
Sorry the code is -
"(C) Copyright 2006-&CURYEAR.EVAL FMR Corp. All rights reserved - &FOOTLBL - Report generated &DATEtrMDYY at &TOD by &FULLNAME
Page


764
Windows
PDF,EXL2K,HTML
August 21, 2009, 09:06 AM
lalita
I am not sure why tabpageno is not getting displayed in the post,but I hope you can make out. it has "


764
Windows
PDF,EXL2K,HTML
August 21, 2009, 09:28 AM
SureshKumar
It would be helpful if you display the entire styling part.


Webfocus 8002M, 8009
OS: Windows7
August 21, 2009, 10:12 AM
lalita
The related code -

-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 PageON 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


764
Windows
PDF,EXL2K,HTML
August 21, 2009, 10:36 AM
Tom Flynn
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,


Tom Flynn
WebFOCUS 8.1.05 - PROD/QA
DB2 - AS400 - Mainframe