topic Re: insert into ZTAB in Application Development and Automation Discussions

insert into ZTAB

Former Member — Thu, 20 Apr 2006 13:57:24 GMT

itab werks char 8

lgort char 8

lgobe char 8

select werks lgort lgobe

from T001L

into corresponding fields of itab.

endselect.

how i can insert the data from T001L

werks is 4

lgort 4

lgobe 16

Re: insert into ZTAB

Former Member — Thu, 20 Apr 2006 13:59:57 GMT

HI Rani,

Declare like this:

data: begin of itab occurs 0,

werks like t001l-werks,

lgort like t001l-lgort,

lgobe like t001l-lgobe,

end of itab.

select werks lgort lgobe

from T001L

into table itab.

REgards,

Ravi

Re: insert into ZTAB

Former Member — Thu, 20 Apr 2006 14:04:06 GMT

i cant i must it to be char 8

Re: insert into ZTAB

Former Member — Thu, 20 Apr 2006 14:07:53 GMT

data : begin og itab occurs 0,
        werks(8),
        lgort(8),
        lgobe(8),
       end of itab.

select werks lgort lgobe into table itab from T001L.

Re: insert into ZTAB

Former Member — Thu, 20 Apr 2006 14:08:28 GMT

SELECT WERKS LGORT LGOBE FROM T001L INTO (ITAB-WERKS, ITAB-LGORT, ITAB-LGOBE) WHERE ........

Anyway the field T001L-LGOBE is long 16 CHAR and so you can't store it in a variable long 8 char

But you can try to do this:

SELECT * FROM T001L WHERE

MOVE: T001L-WERKS TO ITAB-WERKS,

T001L-LGORT TO ITAB-LOGORT,

T001L-LGOBE(8) TO ITAB-LGOBE

Max

Re: insert into ZTAB

Former Member — Thu, 20 Apr 2006 14:09:47 GMT

Declare another internal table as i have mentioned earlier.

then after that,

data: begin of itab2 occurs 0,

werks like t001l-werks,

lgort like t001l-lgort,

lgobe like t001l-lgobe,

end of itab2.

data: begin of itab occurs 0,

werks(8),

lgort(8),

lgobe(8),

end of itab.

loop at itab2.

move itab2-werks to itab-werks.

move itab2-lgort to itab-lgort.

move itab2-lgobe to itab-lgobe.

append itab.

clear itab.

endloop.

Re: insert into ZTAB

naimesh_patel — Thu, 20 Apr 2006 14:10:11 GMT

Hello,

data: begin of itab occurs 0,

WERKS like T001L-WERKS,

LGORT like T001L-LGORT,

LGOBE like T001L-LGOBE,

twerks char 8,

tlgort char 8 ,

tlgobe char 8,

end of itab.

select werks lgort lgobe

from T001L

into corresponding fields of itab.

endselect.

Loop at itab.

itab-twreks = itab-werks.

SHIFT itab-twreks RIGHT DELETING TRAILING space.

itab-tlogbe = itab-logbe+0(8).

modify itab.

endloop.

Regards,

Naimesh