Skip to Content
0
Former Member
Dec 21, 2006 at 04:48 AM

Blank lines on everypage

21 Views

Hi All

The requirement is to print an abap list output on company letter head so I need to skip few lines at the start of every new page.

I am not sure where to put NEW-PAGE command in my code.

Will it be inside my LOOP ..ENDLOOP? or any other thing that I need to do..

Pls see the part of code below:

REPORT Z_BANK_LETTER_PRINT NO STANDARD PAGE HEADING

LINE-SIZE 90

  • LINE-COUNT 65(3)

LINE-COUNT 45(5)

Message-ID ZFI.

FORM Display_final_report USING FP_I_FINAL type ty_t_final.

Data: l_wa_final type ty_final.

Data: l_v_wrbtr type char16,

l_v_serno type char4.

loop at FP_I_FINAL into l_wa_final.

IF FLAG = 'X'.

SKIP 10.

CLEAR FLAG.

ENDIF.

l_wa_final-rwbtr = l_wa_final-rwbtr * -1.

l_v_wrbtr = l_wa_final-rwbtr.

l_v_serno = l_wa_final-ser_num.

condense l_v_serno.

  • Babita

  • write : /6 sy-vline, l_v_serno ,11 sy-vline,12 l_wa_final-chect,18 sy-vline ,19 l_wa_final-zaldt,29 sy-vline ,30 l_v_wrbtr,45 sy-vline ,

  • 46 l_wa_final-znme1,87 sy-vline.

write : /6 sy-vline, l_v_serno ,

11 sy-vline, 12 l_wa_final-chect,

18 sy-vline ,19 l_wa_final-zaldt,

29 sy-vline ,30 l_v_wrbtr left-justified,

45 sy-vline ,46 l_wa_final-znme1,

87 sy-vline.

endloop.

write:/6(82) sy-uline.

skip 1.

write:/6 Text-013.

write:/6 Text-014.

skip 2.

write:/6 Text-015.

FORM Top_of_page USING FP_V_BANKN type bankn

fp_i_bank_addr type ty_t_bank_addr.

**>>Data Declaration>>>

Data: l_wa_addr type ty_bank_addr,

l_v_bank_name type char50,

l_v_state type char10,

l_v_street type char50,

l_v_city type char50,

l_v_dear type char15,

l_v_subj type char100,

l_v_numb type char8,

l_v_char3 type char4,

l_v_branch type char50.

*Skip 4. "babita

WRITE /6 Text-002 INPUT ON.

skip 1.

write:/6 Text-003 INPUT ON..

skip 2.

Read Table fp_i_bank_addr into l_wa_addr index 1.

l_v_bank_name = l_wa_addr-BANKA.

l_v_state = l_wa_addr-PROVZ.

l_v_street = l_wa_addr-stras.

l_v_city = l_wa_addr-ort01.

l_v_branch = l_wa_addr-brnch.

concatenate l_v_bank_name text-005 into l_v_bank_name.

concatenate l_v_state text-005 into l_v_state.

concatenate l_v_street text-005 into l_v_street.

concatenate l_v_city '.' into l_v_city.

concatenate l_v_branch text-005 into l_v_branch.

Write: /6 Text-004,

/6 l_v_bank_name,

  • / l_v_state,

/6 l_v_street,

/6 l_v_branch,

/6 l_v_city.

skip 2.

Write: /25 Text-006, P_kind.

skip 2.

perform cheque_cancel_count.

l_v_char3 = v_no - chqcan.

concatenate text-011 l_v_char3 text-012 into l_v_numb.

condense l_v_numb.

concatenate text-007 text-005 into l_v_dear.

write:/6 l_v_dear.

concatenate text-008 l_v_numb text-010 FP_V_BANKN into l_v_subj.

skip 1. "babita

Write :/6 l_v_subj,

/6 Text-009.

  • skip 3.

skip 1.

write:/6(82) sy-uline.

  • write:/6 sy-vline,7 'S.No',11 sy-vline, 12 'Chq.No',18 sy-vline,19 'Dated',29 sy-vline, 30 'Amt.(Rs).',45 sy-vline,

  • 46 'Name of the Beneficiary',87 sy-vline.

write:/6 sy-vline,7 text-017,11 sy-vline, 12 text-018,18 sy-vline,19 text-019,29 sy-vline, 30 text-020,45 sy-vline,

46 text-021,87 sy-vline.

write:/6(82) sy-uline.

ENDFORM. " Top_of_page

  • babita

END-OF-PAGE.

ULINE at 6(81).

WRITE :/50'PAGE:' , SY-PAGNO.

Pls help me with this.

Regards

Babita