Can we print header text in a tabular format...? urgent

Question

Hi,
In the below program i need the text type payment history in a proper format.so plz help me regarding this.
this a just a test program,you just execute this program.its running.
i am feching the text payment history using the function module READ_TEXT.
GO TO (T.CODE IS VA42).-> GIVE A CONTARCT NUMBER THEN TEXT TYPE IS PAYMENT HISTORY. UNDER THIS TEXT TYPE WE HAVE ATEXT LIKE THIS:
Due date Invoice Amount Invoice no. Status Timing
8/1/2005 2,486.667.00 9887767798 Paid sept-Dec 05
12/1/2005 2,567,778.00 987662156 paid Jan-apr 06
i fectch all this by using read_text function module in the table t_item.(plz see in below program)
now the requirement is we want to print this payment history text as a proper format i.e in a tabular format...so is it possible....
actualy, we r not printing in the output screen.
we generate a flat file in this payment history is printed as a tabulr format.
can it is possible...if it plz reply me.
REPORT YTEST_ADD_DAYS_TO_DATE .
TABLES :tline.
TABLES :
vbrk,
vbrp,
vbpa,
kna1.
CONSTANTS :
c_re TYPE vbpa-parvw VALUE 'RE' . "Bill-to-Party
data: l_flag type c value cl_abap_char_utilities=>horizontal_tab.
*parameters: new_date type sy-datum.
data: timing type sy-datum.
*new_date = new_date + 31 .
*write: / new_date.
*CALL FUNCTION '/BEV4/PLPS__ADD_MONTH_TO_DATE'
EXPORTING
months = '01'
olddate = '20070101'
IMPORTING
NEWDATE = timing.
Write : / timing .
write: / sy-datum . .
CONSTANTS :
c_vbbk TYPE thead-tdobject VALUE 'VBBK' ,
c_zi03 TYPE thead-tdid VALUE 'ZI03' .
Types:
BEGIN OF ty_item ,
Pay_history(1000) TYPE c ,
END OF ty_item .
DATA :
t_item TYPE STANDARD TABLE OF ty_item ,
w_item TYPE ty_item ,
lt_item TYPE ty_item ,
t_tline TYPE STANDARD TABLE OF tline ,
w_tline TYPE tline ,
t_tlines TYPE STANDARD TABLE OF tline-tdline ,
w_tlines TYPE tline-tdline .
Type Definition *
Invoice header and item table
TYPES :
BEGIN OF ty_vbrk ,
vbeln TYPE vbrk-vbeln , " Billing Document
fkart TYPE vbrk-fkart , " Billing type
fkdat TYPE vbrk-fkdat , " Billing Date
zterm TYPE vbrk-zterm , " Payment key
netwr TYPE vbrk-netwr , " Amount due
END OF ty_vbrk ,
BEGIN OF ty_vbrp ,
vbeln TYPE vbrp-vbeln , "Billing Document
posnr TYPE vbrp-posnr ,
vgbel TYPE vbrp-vgbel ,
vgpos TYPE vbrp-vgpos ,
aubel TYPE vbrp-aubel , " Sales Document
aupos TYPE vbrp-aupos ,
matnr TYPE vbrp-matnr ,
arktx TYPE vbrp-arktx ,
END OF ty_vbrp ,
Partner table
BEGIN OF ty_vbpa ,
vbeln TYPE vbpa-vbeln , " Document#
posnr TYPE vbpa-posnr ,
parvw TYPE vbpa-parvw , " Partner funtion
kunnr TYPE vbpa-kunnr , " Customer#
END OF ty_vbpa ,
Customer master table
BEGIN OF ty_kna1 ,
kunnr TYPE kna1-kunnr ,
name1 TYPE kna1-name1 ,
ort01 TYPE kna1-ort01 ,
pstlz TYPE kna1-pstlz ,
regio TYPE kna1-regio ,
stras TYPE kna1-stras ,
END OF ty_kna1 ,
****Payment terms table
BEGIN OF ty_tvzbt ,
spras TYPE tvzbt-spras ,
zterm TYPE tvzbt-zterm ,
vtext TYPE tvzbt-vtext ,
END OF ty_tvzbt ,
BEGIN OF ty_t052 ,
zterm TYPE t052-zterm ,
ztag1 TYPE t052-ztag1 ,
END OF ty_t052 ,
****Document flow table
BEGIN OF ty_vbfa ,
vbelv TYPE vbfa-vbelv , " Contract number
posnv TYPE vbfa-posnv ,
vbeln TYPE vbfa-vbeln ,
posnn TYPE vbfa-posnn ,
vbtyp_n TYPE vbfa-vbtyp_n ,
END OF ty_vbfa,
***Contract Data table
BEGIN OF ty_veda ,
vbeln TYPE veda-vbeln ,
vposn TYPE veda-vposn ,
vbegdat TYPE veda-vbegdat ,
venddat TYPE veda-venddat ,
END OF ty_veda .
Data Declaration *
DATA :
t_vbrk TYPE STANDARD TABLE OF ty_vbrk ,
w_vbrk TYPE ty_vbrk ,
t_vbrp TYPE STANDARD TABLE OF ty_vbrp ,
w_vbrp TYPE ty_vbrp ,
t_vbpa TYPE STANDARD TABLE OF ty_vbpa ,
w_vbpa TYPE ty_vbpa ,
t_kna1 TYPE STANDARD TABLE OF ty_kna1 ,
w_kna1 TYPE ty_kna1 ,
t_tvzbt TYPE STANDARD TABLE OF ty_tvzbt ,
w_tvzbt TYPE ty_tvzbt ,
t_veda TYPE STANDARD TABLE OF ty_veda ,
w_veda TYPE ty_veda ,
t_vbfa TYPE STANDARD TABLE OF ty_vbfa ,
w_vbfa TYPE ty_vbfa ,
t_t052 TYPE STANDARD TABLE OF ty_t052 ,
w_t052 TYPE ty_t052 .
DATA :
ld_output TYPE btcxpm OCCURS 0 WITH HEADER LINE,
ld_status TYPE extcmdexex-status ," #EC NEEDED
w_underscore TYPE c VALUE '_' ,
doa0001(50) TYPE c . " Invoice Dataset
Selection-Screen
SELECTION-SCREEN BEGIN OF BLOCK blk1 WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: s_vbeln FOR vbrk-vbeln. "Billing Doc No
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: s_fkdat FOR vbrk-fkdat . "Billing Date
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS: s_fkart FOR vbrk-fkart. " Invoive type
SELECTION-SCREEN END OF BLOCK blk1.
Start of initialization *
INITIALIZATION.
RANGES :
r_parvw FOR vbpa-parvw."Range table for partner function
CLEAR :
r_parvw .
r_parvw-sign = 'I'.
r_parvw-option ='EQ'.
r_parvw-low = c_re .
APPEND r_parvw .
End of Initialization *
START-OF-SELECTION .
SELECT vbeln
fkart
fkdat
zterm
netwr
FROM vbrk
INTO TABLE t_vbrk
WHERE vbeln IN s_vbeln
AND fkart IN r_fkart
AND fkdat IN s_fkdat .
IF t_vbrk[] IS INITIAL .
MESSAGE I005 .
EXIT .
ENDIF .
SELECT vbeln
parvw
kunnr
FROM vbpa
INTO TABLE t_vbpa
FOR ALL ENTRIES IN t_vbrk
WHERE vbeln = t_vbrk-vbeln
AND parvw IN r_parvw .
SELECT kunnr
name1
ort01
pstlz
regio
stras
FROM kna1
INTO TABLE t_kna1
FOR ALL ENTRIES IN t_vbpa
WHERE kunnr = t_vbpa-kunnr .
SORT t_kna1 BY kunnr .
DELETE ADJACENT DUPLICATES FROM t_kna1 .
SELECT spras
zterm
vtext
FROM tvzbt
INTO TABLE t_tvzbt
FOR ALL ENTRIES IN t_vbrk
WHERE spras = 'EN'
AND zterm = t_vbrk-zterm .
SELECT zterm
ztag1
FROM t052
INTO TABLE t_t052
FOR ALL ENTRIES IN t_vbrk
WHERE zterm = t_vbrk-zterm .
SELECT vbelv
posnv
vbeln
posnn
vbtyp_n
FROM vbfa
INTO TABLE t_vbfa
FOR ALL ENTRIES IN t_vbrk
WHERE vbeln = t_vbrk-vbeln .
AND vbtyp_n = 'M' .
SELECT vbeln
vposn
vbegdat
venddat
FROM veda
INTO TABLE t_veda
FOR ALL ENTRIES IN t_vbfa
WHERE vbeln = t_vbfa-vbelv .
AND vposn = t_vbfa-posnv .
data: w_name TYPE thead-tdname.
LOOP AT t_vbfa INTO w_vbfa .
w_name = w_vbfa-vbelv.
CALL FUNCTION 'READ_TEXT'
EXPORTING
CLIENT = SY-MANDT
id = c_zi03
language = sy-langu
name = w_name
object = c_vbbk
ARCHIVE_HANDLE = 0
LOCAL_CAT = ' '
IMPORTING
HEADER =
tables
lines = t_tline
EXCEPTIONS
ID = 1
LANGUAGE = 2
NAME = 3
NOT_FOUND = 4
OBJECT = 5 .
LOOP AT t_tline INTO w_tline.
split w_tline-tdline at l_flag into table t_tlines .
IF NOT t_tlines[] IS INITIAL .
LOOP AT t_tlines INTO w_tlines .
w_item-pay_history = w_tlines .
APPEND w_item TO t_item .
write: / w_item.
ENDLOOP .
ENDIF .
ENDLOOP .
ENDLOOP .
SPLIT w_tline-tdline AT ',' INTO TABLE t_tlines .
IF NOT t_tlines[] IS INITIAL .
LOOP AT t_tlines INTO w_tlines .
w_item-pay_history = w_tline .
APPEND w_item TO t_item .
ENDLOOP .
ENDIF .
ENDLOOP .
write: / w_item.

Answer 1

Hi,
Tcode SO10 can be used to attach standard text in sapscript.
For formatting, plz check the below link
Standard text editor SO10