Printing Footer in List

Question

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

Answer 1

Hi,
just RESERVE n lines for the footer. See ABAP statement RESERVE. If you reserve lines, then the END-OF-PAGE event can use the space.
ABAP Help says:
Basic form
RESERVE n LINES.
Effect
If there is not enough space left on the current page for at least n lines, this statement starts a new page. n can be a constant (1,2,3,...) or a variable.
Notes
Before starting a new page, the END-OF-PAGE processing is executed. This differs from NEW-PAGE .
If the RESERVE statement does not trigger a new page, output is continued on the current page.
Use BACK to return to the first line you can display after RESERVE .
Note
Performance
The runtime required to execute a RESERVE statement is approx. 1 msn (standardized microseconds).
Regards,
Clemens