Member
| we were able to get this code to correctly display the Page N of N, need to have two of your own reports to put in there, the examples are two of my own.
-SET &Cpyr = HEXBYT(169, 'A1'); -SET &CUR_DATE = &DATETMDYY; -SET &CUR_DATE = &DATEMDYY; -*SET &CUR_TIME = '08:32:00'; -SET &CUR_TIME = EDIT(HHMMSS('A8'),'99:$99:$99'); -SET &HOUR=EDIT(&CUR_TIME, '99$$$$$$'); -SET &HOUR2=EDIT(&HOUR); -SET &HOUR3=IF &HOUR2 GT 12 THEN &HOUR - 12 ELSE &HOUR; -SET &HOUR4=IF &HOUR2 GT 12 AND &HOUR2 LT 22 THEN '0' || &HOUR3 ELSE &HOUR3; -SET &HOUR5=IF &HOUR3 GT 9 THEN EDIT(&HOUR4, '99') ELSE EDIT(&HOUR4, '$9'); -SET &AM_PM = IF &HOUR2 GE 12 THEN 'PM' ELSE 'AM'; -SET &CUR_TIME2=&HOUR5 || EDIT(&CUR_TIME,'$$999$$$') || ' ' | &AM_PM || ' CDT'; -SET &CUR_DTTM = &CUR_DATE | ' ' | &CUR_TIME2; -RUN
SET HTMLARCHIVE=ON COMPOUND LAYOUT PCHOLD FORMAT PDF UNITS=IN, $ SECTION=section1, LAYOUT=ON, METADATA='0.5^0.1^0.5^0.2', MERGE=OFF, ORIENTATION=PORTRAIT, PAGESIZE=Letter, $ PAGELAYOUT=ALL, NAME='Page Master', $ OBJECT=STRING, NAME='text99', TEXT='Report Produced: &CUR_DTTM', POSITION=(0.520 10.6), MARKUP=OFF, WRAP=ON, DIMENSION=(3.437 0.146), font='ARIAL', color=RGB(0 0 153), size=8, METADATA='FONT-SIZE: 8pt; Z-INDEX: 101; LEFT: 0.52in; WIDTH: 3.437in; COLOR: #000099; FONT-FAMILY: Arial; POSITION: absolute; TOP: 8.094in; HEIGHT: 0.146in', $ OBJECT=STRING, NAME='text51', TEXT='center footer line 2', POSITION=(3.5 10.7), MARKUP=OFF, WRAP=ON, DIMENSION=(1.354 0.146), font='ARIAL', color=RGB(0 0 153), size=8, METADATA='FONT-SIZE: 8pt; Z-INDEX: 103; LEFT: 5.063in; WIDTH: 1.354in; COLOR: #000099; FONT-FAMILY: Arial; POSITION: absolute; TOP: 8.229in; HEIGHT: 0.146in', $ OBJECT=STRING, NAME='text50', TEXT='center footer line 1', POSITION=(3.5 10.6), MARKUP=OFF, WRAP=ON, DIMENSION=(2.604 0.146), font='ARIAL', color=RGB(0 0 153), size=8, METADATA='FONT-SIZE: 8pt; Z-INDEX: 104; LEFT: 4.396in; WIDTH: 2.604in; COLOR: #000099; FONT-FAMILY: Arial; POSITION: absolute; TOP: 8.083in; HEIGHT: 0.146in', $ OBJECT=STRING, NAME='text1', TEXT='Page of ', POSITION=(6.5 10.6), MARKUP=ON, WRAP=ON, DIMENSION=(1.1 0.167), font='ARIAL', color=RGB(0 0 153), size=8, METADATA='FONT-SIZE: 8pt; Z-INDEX: 105; LEFT: 9.477in; WIDTH: 1.1in; COLOR: #000099; FONT-FAMILY: Arial; POSITION: absolute; TOP: 8.083in; HEIGHT: 0.167in', $ COMPONENT='DfltCmpt1', POSITION=(0 0), DIMENSION=(0 0), $ PAGELAYOUT=1, NAME='Page layout 1', text='Page layout 1', TOC-LEVEL=1, BOTTOMMARGIN=0.5, TOPMARGIN=0.5, METADATA='BOTTOMMARGIN=0.5,TOPMARGIN=0.5,LEFTMARGIN=0,RIGHTMARGIN=0,', $ COMPONENT='report1', TEXT='report1', TOC-LEVEL=2, POSITION=(0.500 0.500), DIMENSION=(* *), METADATA='Z-INDEX: 100; OVERFLOW: auto; LEFT: 0.5in; WIDTH: 7.5in; POSITION: absolute; TOP: 0.52in; HEIGHT: 4.063in', $ COMPONENT='report2', TEXT='report2', TOC-LEVEL=2, POSITION=(+0.000 +0.000), DIMENSION=(* *), RELATIVE-TO='report1', RELATIVE-POINT=BOTTOM-LEFT, POSITION-POINT=TOP-LEFT, METADATA='Z-INDEX: 100; OVERFLOW: auto; LEFT: 0.521in; WIDTH: 7.5in; POSITION: absolute; TOP: 4.792in; HEIGHT: 2.292in', $ END SET COMPONENT='DfltCmpt1' TABLE FILE SYSCOLUM " " SUM TBNAME NOPRINT IF READLIMIT EQ 1 ON TABLE SET PREVIEW ON ON TABLE SET PAGE-NUM NOLEAD ON TABLE PCHOLD FORMAT PDF ON TABLE SET STYLE * END SET COMPONENT='report1' -INCLUDE function_test.fex SET COMPONENT='report2' -INCLUDE function_test.fex COMPOUND END
Shawn Lents Pioneer shawn.lents@pioneer.com
7.7.02 |