[SOLVED] Page <TABPAGENO of <TABLASTPAGE formatting issue
When I try to use the "Page TABPAGENO of TABLASTPAGE" feature, there are large gaps between the numbers. How can I remove the extra spacing/gaps?
TABLE FILE CAR SUM DEALER_COST NOPRINT HEADING "Page TABPAGENO of TABLASTPAGE" ON TABLE SET PAGE-NUM NOLEAD ON TABLE PCHOLD FORMAT PDF ON TABLE SET STYLE * SQUEEZE=ON,$ TYPE=HEADING, FONT='ARIAL', SIZE=8, COLOR=RGB(66 70 73), STYLE=NORMAL, $ END
Result: Page 1 of 1
I need the output to look like: Page 1 of 1
Any ideas?This message has been edited. Last edited by: <Kathryn Henning>,
WebFOCUS 8.2.03 z/OS
March 27, 2014, 02:34 PM
Joel Elscott
Ok, so this site is suppressing the extra spaces in the result. But trust me, there are large gaps between TABPAGENO and TABLASTPAGE.
WebFOCUS 8.2.03 z/OS
April 03, 2014, 06:17 PM
<Kathryn Henning>
Hi Joel,
You can do this with COMPUTE statements:
TABLE FILE GGSALES
SUM UNITS
DOLLARS
COMPUTE
ATABPAGENO/A5 = FPRINT(TABPAGENO,'I5','A5'); NOPRINT
COMPUTE
ATABLASTPAGE/A5 = FPRINT(TABLASTPAGE,'I5','A5'); NOPRINT
COMPUTE
PPG /A20 = 'PAGE' || (' ' | LJUST(5,ATABPAGENO,'A5')) || ' OF'
|| (' ' | LJUST(5,ATABLASTPAGE,'A5')); NOPRINT
BY REGION PAGE-BREAK
BY PRODUCT
HEADING
" <PPG "
ON TABLE SUBFOOT
"<TABLASTPAGE"
ON TABLE SET STYLE *
TYPE=FOOTING, JUSTIFY=CENTER,$
TYPE=TABFOOTING, SIZE=1,$
END