Cobol-400

[hsp]

Hi all,

One question,

U0050-PRINT-REPORT SECTION.
------------------
EVALUATE TRUE

WHEN WS-EMPFTR-FL
WRITE TEST-RPT-REC FORMAT IS "EMPFTR"

WHEN WS-PAGHDR-FL
WRITE TEST-RPT-REC FORMAT IS "PAGHDR"

WHEN WS-CTLHDR-FL
WRITE TEST-RPT-REC FORMAT IS "CTLHDR"

WHEN WS-DETAIL-FL

MOVE CORR T700OLE TO DETAIL-O
MOVE RSC-A00001 OF T700OLE TO RSC-CDE OF DETAIL-O
MOVE JULIA00001 OF T700OLE TO JUL-DAY OF DETAIL-
MOVE INV-A00001 OF T700OLE TO INVADJ OF DETAIL-
MOVE PCK-P00001 OF T700OLE TO PCKPERIOD OF DETAIL-
MOVE FILL-00001 OF T700OLE TO FILLERID OF DETAIL-
WRITE TEST-RPT-REC FORMAT IS "DETAIL"
AT EOP
SET WS-CTLFTR-FL TO TRUE
PERFORM U0050-PRINT-REPORT
SET WS-PAGHDR-FL TO TRUE
PERFORM U0050-PRINT-REPORT
SET WS-CTLHDR-FL TO TRUE
PERFORM U0050-PRINT-REPORT
NOT AT EOP
CONTINUE
END-WRITE
WHEN WS-RPTFTR-FL
WRITE TEST-RPT-REC FORMAT IS "RPTFTR"

END-EVALUATE.


In the above code, I am printing the CTLFTR, after EOP, my question is the ftr will be printed after the end of page or is there any way to print the ftr within the same page.

I want to FTR to be in the same page and in the next page the Header etc.. must be printed..

Any help will be much appreciated...
Thanks
hsp