I have a compound PDF report with sort breaks. If one of my report spans more than a page the report header's style on the overflowing page gets messed up.

My style is as follows:


DEFINE FILE PD_INFO
SP/A1 = HEXBYT(160, 'A1');
SP02/A2 = SP|SP;
SP05/A05 = SP|SP|SP|SP|SP;
SP10/A10 = SP05|SP05;
SP15/A15 = SP10|SP05;
SP20/A20 = SP10|SP10;
SP35/A35 = SP10|SP10|SP10|SP05;
SPACE/A1=' ';
LAST_TOKEN/A75 = GETTOK(MEMO, 255, -2, '/', 75, LAST_TOKEN);
TOKEN1/A75 = GETTOK(MEMO, 255, -3, '/', 75, LAST_TOKEN);
CNT/I6 = 1;
TRIMMEMO/A80 = TRIM('T', MEMO, 255, ' ', 80, TRIMMEMO);
PAIDMON/I2=HPART(STMTDTTM,'MONTH','I2');
PAIDDATEDAY/I2=HPART(STMTDTTM,'DAY','I2');
PAIDDATEYEAR/I2=HPART(STMTDTTM,'YEAR','I2');
PAIDDATE/A8=EDIT(PAIDMON) | '/' | EDIT(PAIDDATEDAY) | '/' | EDIT(PAIDDATEYEAR);
PAIDAMOUNT/P17.2CM = AMOUNT ;
CUSTREF/A12 = TRIM('T', CUSTTRNREF, 32, ' ', 12, CUSTREF);
FITRNREF/A12 = TRIM('T', FITRNREFERENCE, 32, ' ', 12, FITRNREF);
TOTCNT/I6 = &STCNT ;
TOTAMOUNT/P17.2CM = &STAMOUNT ;
END
-CHECKS
TABLE FILE PD_INFO
PRINT CNT NOPRINT
WHERE BNKACCTKY = &BNKACCTKY
IF RECORDLIMIT EQ 1
ON TABLE SAVE
END
-IF &LINES EQ 0 THEN GOTO ERRCHECKS;
-*
TABLE FILE PD_INFO
PRINT
CNT NOPRINT
PAIDDATE AS 'Date Paid'
CUSTREF AS 'Check Number'
PAIDAMOUNT AS 'Check Amount'
FITRNREF AS 'Sequence Number'
BY SPACE NOPRINT
BY BNKACCTKY NOPRINT
BY &SORTDIR &SORTFLD NOPRINT
BY HIGHEST AMOUNT NOPRINT
WHERE BNKACCTKY = &BNKACCTKY
ON BNKACCTKY SUBFOOT
"Totals: HEADING
"Account -IF &LASTREC EQ 1 THEN GOTO SHOWTOTAL
ON TABLE NOTOTAL
-GOTO SKIPTOTAL
-SHOWTOTAL
ON SPACE SUBFOOT
" "
"Grand Totals: ON TABLE SUBFOOT
" "
"---End of Report---"
FOOTING
"Page -SKIPTOTAL
-********REPORT FORMAT*******************
-*&PYDYCBO1
ON TABLE SET ONLINE-FMT PDF
ON TABLE PCHOLD AS T_DTL FORMAT PDF NOBREAK

-*****************************************
-*ON TABLE SET STYLEMODE FIXED
ON TABLE SET STYLE *
-INCLUDE STYLEV01IR
TYPE=REPORT, GRID=OFF, STYLE=NORMAL, FONT='ARIAL', SIZE=9,
BACKCOLOR=NONE,$
UNITS=IN, TOPMARGIN=0.2500000, BOTTOMMARGIN=0.250000, $
TYPE=HEADING, LINE=1, SIZE=9, STYLE=BOLD, BACKCOLOR=RGB(&STYLE2), $
&PDFPRM
TYPE=DATA, COLUMN=N6, JUSTIFY=RIGHT, $
TYPE=DATA, COLUMN=N7, JUSTIFY=RIGHT, $
TYPE=DATA, COLUMN=N9, JUSTIFY=RIGHT, $
TYPE=TITLE,STYLE=BOLD, $
TYPE=TITLE,COLUMN=N6,STYLE=-UNDERLINE, $
TYPE=TITLE,
STYLE=-UNDERLINE,
COLUMN=N7,
JUSTIFY=LEFT,
FOCEXEC=tmupdchkspdf(\
SORTFLD='CUSTREF' \
SORTDIR='&SORTDIR' \
BNKCUSTOMRPTKY = &BNKCUSTOMRPTKY \
),
$
TYPE=TITLE,
STYLE=-UNDERLINE,
COLUMN=N8,
JUSTIFY=RIGHT,
FOCEXEC=tmupdchkspdf(\
SORTFLD='PAIDAMOUNT' \
SORTDIR='&SORTDIR' \
BNKCUSTOMRPTKY = &BNKCUSTOMRPTKY \
),
$
TYPE=TITLE,COLUMN=N9,STYLE=-UNDERLINE, $
TYPE=SUBFOOT, BORDER-TOP=MEDIUM,
BORDER-STYLE=SOLID, BORDER-COLOR=BLACK, $
TYPE=SUBFOOT, BORDER-BOTTOM=MEDIUM,
BORDER-STYLE=SOLID, BORDER-COLOR=BLACK, $
ENDSTYLE
END
-RUN
This gray color shifts one line above the header.

Has any one expereinced this problem. I am using webfocus 5.2.3

There are other problems to the page number only prints on the last page of the report as page 12of1

Any suggestions/comments/ideas.

Vipul

This message has been edited. Last edited by: <Mabel>,

Vipul,

I'm not a stylesheet expert at all, but seems I read somewhere that with compound PDF, all reports had to have the same style? I may be all wet here of course.

Leah,

Yes they are actually I am looping the above code over and over again for different &BNKACCTKY

The problem occurs on the report spanning multiple pages. The header style moves making the footer style move up too.

Vipul