topic Re: iternal table in Application Development and Automation Discussions

iternal table

Former Member — Tue, 09 Oct 2007 05:29:36 GMT

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

Re: iternal table

Former Member — Tue, 09 Oct 2007 06:22:44 GMT

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

Re: iternal table

Former Member — Tue, 09 Oct 2007 06:34:04 GMT

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**

Re: iternal table

Former Member — Tue, 09 Oct 2007 06:35:40 GMT

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....