topic Re: passing internal table in Application Development and Automation Discussions

passing internal table

Former Member — Fri, 16 Dec 2005 05:56:48 GMT

Hi,

I have a requirement like this

i have to retrive internal table from subroutine

(i.e. I have a internal table in include prg)

I want to retrive that internal table using subroutine how i can write subroutine prog.

If any body knows tell me

Like this

perform get_it using <variable> changing <internal table>

Internal table is in include prg.

Thanks

Regards,

Nandha

Re: passing internal table

Former Member — Fri, 16 Dec 2005 06:04:56 GMT

perform get_it using var

tables itab.

if itab is in global include then you can access that..

regards

vijay

Re: passing internal table

Former Member — Fri, 16 Dec 2005 06:05:10 GMT

WRITE like this.

perform mod1 TABLES itab.

FORM mod1 TABLES p_tab1 STRUCTURE itab.

do the coding.

ENDFORM.

Reward points if it is helpful

Re: passing internal table

jayanthi_jayaraman — Fri, 16 Dec 2005 06:05:55 GMT

Hi,

Declare the internal table in main program globally.

I hope you will have includes statement for calling the include from the main program.

If it is available in include,no need of retriving it again.You can directly use the internal table in the main program.

Kindly reward points by clikcing the star on the left of reply,if it is useful.

Re: passing internal table

abdul_hakim — Fri, 16 Dec 2005 06:06:14 GMT

Pass the program name using IN PROGRAM addition to your subroutine call..

Regards,

Abdul

Re: passing internal table

Former Member — Fri, 16 Dec 2005 06:20:22 GMT

Hi nandha,

1. ur requirement is not clear.

2. are u asking the code for PERFORM

or subroutine defintion FORM.

regards,

amit m.

Re: passing internal table

Former Member — Fri, 16 Dec 2005 07:54:40 GMT

HI,

I need both coding

Thanks

Regards,

Nandha

Re: passing internal table

Former Member — Fri, 16 Dec 2005 07:59:44 GMT

Hi nandha,

1. try this code (just copy paste)

REPORT abc.

*----

Can be in Include

DATA : BEGIN OF itab OCCURS 0,

bukrs LIKE t001-bukrs,

pernr LIKE pa0001-pernr,

END OF itab.

*----

DATA : t LIKE table of itab with header line.

PERFORM myform TABLES t.

*----

FORM myform TABLES tb STRUCTURE itab.

ENDFORM. "myform

*----

2. Specifically Note the following :

a) as u said ITAB is already defined in an include.

thats ok.

b) in form definition, use statement

Tables STRUCTURE Itab

(this will tell the form about the strucutre/defn

of table which is going to pass)

I hope it helps.

regards,

amit m.

Re: passing internal table

Former Member — Fri, 16 Dec 2005 08:00:09 GMT

perform getdata using var
                TABLES itab.

form getdata using p_var
          table p_itab STRUCTURE itab.
do necessary code here...
endform.

Re: passing internal table

Former Member — Fri, 16 Dec 2005 08:12:48 GMT

Hi,

Thanks for the reply.according to you your just getting itab not passing variable with itab.

Here i want to pass variable with internal table

that is

perform subrotin using pernr changing instead of variable <itab>.

here i am passing variable(pernr) to the subrotine and i want the internal table for that specific pernr detail from include(subroutine)

for this how i can write.

i tried this

perform get_vleave_info using pernr job_n changing itab1 totdays.

its not working

Thanks

Regards,

Nandha

Re: passing internal table

Former Member — Fri, 16 Dec 2005 08:19:42 GMT

for passing internal tables you need to pass tables statement...

perform get_vleave_info using pernr job_n
                         changing totdays
                          tables  itab1 .

FORM get_vleave_info  USING    P_PERNR
                               P_JOB_N
                      CHANGING P_TOTDAYS
                      TABLES   P_ITAB1 STRUCTURE ITAB.
"write your code here...

ENDFORM.                    " get_vleave_info

Re: passing internal table

Former Member — Fri, 16 Dec 2005 10:10:24 GMT

Hi,

This code is raising error

Field table is unknown.not defined

Thanks

Regards,

nandha

Re: passing internal table

Former Member — Fri, 16 Dec 2005 10:23:49 GMT

can you just show the code what you did?

regards

vijay

Re: passing internal table

Former Member — Fri, 16 Dec 2005 10:30:51 GMT

In Main program

*DATA : itab2 LIKE table of itab3 with header line.

clear v_totdays.
perform get_vleave_info using v_pernr
v_job_n
changing v_totdays
tables itab2.
loop at itab2.
Write:itab2-v_stdate.
endloop.

In Include Program

*FORM get_vleave_info USING V_PERNR

V_JOB_N
CHANGING V_TOTDAYS
TABLES itab1 STRUCTURE itab3.

Data : Begin of itab3 occurs 0,

v_stdate(16) type c,

v_enddate(16) type c,

v_days type i,

end of itab3.

This is the code.

Thanks

Nandha

Re: passing internal table

Former Member — Fri, 16 Dec 2005 10:44:45 GMT

Data : Begin of itab3 occurs 0,
v_stdate(16) type c,
v_enddate(16) type c,
v_days type i,
end of itab3.

DATA : itab2 LIKE table of itab3 with header line.

 clear V_TOtDAYS.
 perform get_vleave_info using v_pernr  v_job_n
                         changing v_totdays
                                  itab2.
 loop at itab2.
 Write:itab2-v_stdate.
 endloop.
In Include Program


FORM get_vleave_info  USING    P_V_PERNR
                               P_V_JOB_N
                      CHANGING P_V_TOTDAYS
                               P_ITAB2 structure itab3.

ENDFORM.                    " get_vleave_info

check this now.....

Re: passing internal table

Former Member — Fri, 16 Dec 2005 11:52:34 GMT

Hi,

Thanks for the reply.

still i am getting error -P_itab2 is not a internal table occurs n missing -- in include program(if i append the internal table P_itab2 )

Thanks

Regards,

Nandha

Re: passing internal table

Former Member — Fri, 16 Dec 2005 11:57:09 GMT

change this

DATA : itab2 LIKE table of itab3 with header line.

DATA : itab2 LIKE itab3 occurs 0 with header line.

vijay and try...

Re: passing internal table

Former Member — Fri, 16 Dec 2005 12:02:19 GMT

Hi Nanda,

It is working fine....

Copy and paste this code......

REPORT ZSANJAY_TEST.

DATA : BEGIN OF ITAB3 OCCURS 0,

V_STDATE(16) TYPE C,

V_ENDDATE(16) TYPE C,

V_DAYS TYPE I,

END OF ITAB3.

DATA : ITAB2 LIKE TABLE OF ITAB3 WITH HEADER LINE.

DATA : V_TOTDAYS TYPE I,

V_PERNR TYPE PERNR,

V_JOB_N TYPE I.

CLEAR V_TOTDAYS.

PERFORM GET_VLEAVE_INFO USING V_PERNR V_JOB_N

CHANGING V_TOTDAYS

ITAB2.

LOOP AT ITAB2.

WRITE:ITAB2-V_STDATE.

ENDLOOP.

INCLUDE ZSANJAY_TEST_INCLUDE.

Copy and paste the down code in an include.

----

INCLUDE ZSANJAY_TEST_INCLUDE

*----

FORM get_vleave_info USING P_V_PERNR

P_V_JOB_N

CHANGING P_V_TOTDAYS

P_ITAB2 structure itab3.

- Sanjay

Re: passing internal table

Former Member — Fri, 16 Dec 2005 13:09:14 GMT

Hi,

Still same error

Nandha

Re: passing internal table

Former Member — Fri, 16 Dec 2005 13:19:06 GMT

can you paste the code fully ..as you are giving bits and pieces .., but what ever you gave it is working fine...

try to provide maximum..as much as you can...

regards

vijay