Skip to Content
0
Dec 06, 2006 at 04:03 PM

Printing Footer in List

32 Views

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