Dear Guys
I am trying to write a list which will show PAGE-NO and DATE at the end of footer. I am trying the folowwing code but footer is not appearing.
Code:
LINE-COUNT 65(01) NO STANDARD PAGE HEADING
<b>TOP-OF-PAGE.
PERFORM HEADER.
PERFORM SUB_HEADER.
END-OF-PAGE.
Write:/ 'SQN:/HR?2B'.
WRITE:'Page', sy-pagno.[</b>
START-OF-SELECTION.
SELECT A~PERNR
INTO CORRESPONDING FIELDS OF TABLE CDETAIL_TAB2
FROM PB4001 AS A INNER JOIN PB0002 AS B
ON ( APERNR = BPERNR )
WHERE A~PERNR IN APP_NO
AND A~OFFID IN ADVR.
LOOP AT CDETAIL_TAB2.
NO = NO + 1.
ENDLOOP.
LOOP AT LIST INTO WA WHERE KEY EQ ORG_NAME.
TEXT1 = WA-TEXT.
ENDLOOP.
IF ( YEAR NE ' ' OR ORG_NAME NE ' ' ) AND DEG EQ ' 0000000000000000'
AND INST EQ ' 00000000000000000000' .
/////// When Selection -> Expereince + Organization ////////////
PERFORM EXP_DATA .
ELSEIF ( DEG NE ' 0000000000000000' OR YEAR1 NE ' ' OR INST NE
' 00000000000000000000' ) AND ORG_NAME EQ ' '.
/////// When Selection -> Education + Expereince //////////////
PERFORM EDU_DATA.
ELSEIF ORG_NAME NE ' ' AND ( DEG NE ' 0000000000000000' OR YEAR1 NE
' ' OR INST NE ' 00000000000000000000' ).
//// When Selection -> Education + Expereince + Orgnization ///////
PERFORM EXP_DATA2.
ELSE.
*///// When Selection -> Only Advertisment ////////////////////
PERFORM SELECT_DATA.
ENDIF.
Infact the only one line of footer is apearing in case when printed page is full with data. If page is half printed there is no footer.
I want the footer at end of page weather the page is completly filled or not.
Any solution Thnx