Focal Point
[SOLVED] Page <TABPAGENO of <TABLASTPAGE formatting issue

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

March 27, 2014, 02:29 PM
Joel Elscott
[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


Regards,

Kathryn