10-09-2007 6:29 AM
Hi talented ppl,
Go through the code below .........
TYPES: BEGIN OF ty_string,
str(300),
END OF ty_string.
DATA : I_HEADER TYPE STANDARD TABLE OF CHECK_HEAD WITH HEADER LINE,
WA_HEADER TYPE CHECK_HEAD.
DATA : I_TRAILER TYPE STANDARD TABLE OF CHECK_REC WITH HEADER LINE,
WA_TRAILER TYPE CHECK_HEAD.
DATA : i_string TYPE TABLE OF ty_string WITH HEADER LINE,
wa_string TYPE ty_string .
i_HEADER-RECTP = 1.
i_HEADER-BANKL = 30009 .
i_HEADER-ACCNR = 21469 .
i_HEADER-CRDAT = 20070103.
i_HEADER-ISO_CURR_CODE = 'CAD'.
APPEND I_HEADER.
i_HEADER-RECTP = 1.
i_HEADER-BANKL = 30010 .
i_HEADER-ACCNR = 21470 .
i_HEADER-CRDAT = 20070105.
i_HEADER-ISO_CURR_CODE = 'CAD'.
APPEND I_HEADER.
I_TRAILER-RECTP = 5.
I_TRAILER-VALUT = 20070902 .
I_TRAILER-CKNUM = 0023452.
I_TRAILER-AMOUNT = 100000.
I_TRAILER-PDATE = 20050902.
APPEND I_TRAILER.
I_TRAILER-RECTP = 5.
I_TRAILER-VALUT = 20070902 .
I_TRAILER-CKNUM = 0023456.
I_TRAILER-AMOUNT = 200000.
I_TRAILER-PDATE = 20071002 .
APPEND I_TRAILER.
I have 2 internal tables with data as above.
now i want to populate my i_string table with the above records as follows :
line 1 should have : first line of i_header.
line 2 should have : first line of i_rec.
line 3 should have : second line of i_header.
line 4 should have : second line of i_rec.
all this should be in string format..........according to the standard structures
10-09-2007 7:22 AM
hi,
try the following code.. it definetly works... since it worked for me...
TYPES: BEGIN OF ty_string,
str(300),
END OF ty_string.
DATA : i_header TYPE STANDARD TABLE OF check_head,
wa_header TYPE check_head.
DATA : i_trailer TYPE STANDARD TABLE OF check_rec,
wa_trailer TYPE check_rec.
DATA : i_string TYPE STANDARD TABLE OF ty_string ,
wa_string TYPE ty_string .
wa_header-rectp = 1.
wa_header-bankl = 30009 .
wa_header-accnr = 21469 .
wa_header-crdat = 20070103.
wa_header-iso_curr_code = 'CAD'.
APPEND wa_header TO i_header.
wa_header-rectp = 1.
wa_header-bankl = 30010 .
wa_header-accnr = 21470 .
wa_header-crdat = 20070105.
wa_header-iso_curr_code = 'CAD'.
APPEND wa_header TO i_header.
wa_trailer-rectp = 5.
wa_trailer-valut = 20070902 .
wa_trailer-cknum = 0023452.
wa_trailer-amount = 100000.
wa_trailer-pdate = 20050902.
APPEND wa_trailer TO i_trailer.
wa_trailer-rectp = 5.
wa_trailer-valut = 20070902 .
wa_trailer-cknum = 0023456.
wa_trailer-amount = 200000.
wa_trailer-pdate = 20071002 .
APPEND wa_trailer TO i_trailer.
LOOP AT i_header INTO wa_header.
CONCATENATE wa_header-rectp wa_header-bankl wa_header-accnr wa_header-crdat wa_header-iso_curr_code INTO wa_string-str .
APPEND wa_string TO i_string.
CLEAR wa_string.
ENDLOOP.
LOOP AT i_trailer INTO wa_trailer.
CONCATENATE wa_trailer-rectp wa_trailer-valut wa_trailer-cknum wa_trailer-amount wa_trailer-pdate INTO wa_string-str SEPARATED BY space.
APPEND wa_string TO i_string.
CLEAR wa_string.
ENDLOOP.
regards,
sree
10-09-2007 7:34 AM
Hi,
add the following code.
LOOP AT i_header INTO wa_header.
l_tabix = sy-tabix.
CONCATENATE wa_header-rectp wa_header-bankl wa_header-accnr wa_header-crdat wa_header-iso_curr_code INTO wa_string-str .
APPEND wa_string TO i_string.
CLEAR wa_string.
read table i_trailer index l_index.
if sy-subrc EQ 0.
concatenate I_TRAILER-RECTP I_TRAILER-VALUT I_TRAILER-CKNUM I_TRAILER-AMOUNT I_TRAILER-PDATE into wa_string.
append wa_string to i-string.
clear wa_string.
endif.
ENDLOOP.
reawrd if solved**
10-09-2007 7:35 AM
THIS IS HOW U NEED TO WRITE.................
TYPES: BEGIN OF ty_string,
str(300),
END OF ty_string.
DATA : I_HEADER TYPE STANDARD TABLE OF CHECK_HEAD WITH HEADER LINE,
WA_HEADER TYPE CHECK_HEAD.
DATA : I_TRAILER TYPE STANDARD TABLE OF CHECK_REC WITH HEADER LINE,
WA_TRAILER TYPE CHECK_HEAD.
DATA : i_string TYPE TABLE OF ty_string WITH HEADER LINE,
wa_string TYPE ty_string .
i_HEADER-RECTP = 1.
i_HEADER-BANKL = 30009 .
i_HEADER-ACCNR = 21469 .
i_HEADER-CRDAT = 20070103.
i_HEADER-ISO_CURR_CODE = 'CAD'.
APPEND I_HEADER.
i_HEADER-RECTP = 1.
i_HEADER-BANKL = 30010 .
i_HEADER-ACCNR = 21470 .
i_HEADER-CRDAT = 20070105.
i_HEADER-ISO_CURR_CODE = 'CAD'.
APPEND I_HEADER.
I_TRAILER-RECTP = 5.
I_TRAILER-VALUT = 20070902 .
I_TRAILER-CKNUM = 0023452.
I_TRAILER-AMOUNT = 100000.
I_TRAILER-PDATE = 20050902.
APPEND I_TRAILER.
I_TRAILER-RECTP = 5.
I_TRAILER-VALUT = 20070902 .
I_TRAILER-CKNUM = 0023456.
I_TRAILER-AMOUNT = 200000.
I_TRAILER-PDATE = 20071002 .
APPEND I_TRAILER.
LOOP AT I_HEADER.
WRITE: / I_HEADER-RECTP,
i_HEADER-BANKL,
i_HEADER-ACCNR,
i_HEADER-CRDAT,
i_HEADER-ISO_CURR_CODE.
ENDLOOP.
LOOP AT I_TRAILER.
WRITE: / I_TRAILER-RECTP,
I_TRAILER-VALUT,
I_TRAILER-CKNUM,
I_TRAILER-AMOUNT,
I_TRAILER-PDATE.
ENDLOOP.
REWARD POINTS IF HELPFUL....