Calling routine from SO10

Question

Hi All,
    While calling a routine from SO10, both input table and output table are empty, I have used in following way..
/: DEFINE &PER& = &PTXT1-PERNR&
/: PERFORM ADDRESS IN PROGRAM ZHR_OFFER
/: USING PER
/: CHANGING &P0001-PERNR&
/: CHANGING &STRAS&
/: ENDPERFORM
In routine (ABAP)
FORM ADDRESS tables in_tab structure itcsy out_tab structure itcsy.
  Data:   v_name2 like p0006-name2,  " C/O
          v_stras like p0006-stras.  " Street/House no
  read table in_tab index 1.
  if sy-subrc = 0.
EndForm.
Here both in_tab and out_tab are empty while debugging i found that (in std program, which is calling routine)
perform (co_perform-form) in program (co_perform-program)
                          tables co_sym_using
                                 co_set_symbols
Here co_perform-form is filled with ADDRESS and
     co_perform-program is filled with ZHR_OFFER, but
     co_sym_using, co_set_symbols tables are empty.
Since these tables are empty, values are not getting passed from SO10 to ABAP, Your input on this please.
Thanks,

Answer 1

Hi,
Try this out ....
In Routine:-
<b>/: PERFORM ADDRESS IN PROGRAM ZHR_OFFER
/: USING &PTXT1-PERNR&
/: CHANGING &P0001-PERNR&
/: CHANGING &STRAS&
/: ENDPERFORM</b>
In ABAP Program:-
FORM ADDRESS tables in_tab structure itcsy out_tab structure itcsy.
Data: v_name2 like p0006-name2, " C/O
v_stras like p0006-stras. " Street/House no
read table in_tab index 1.
if sy-subrc = 0.
pass the values to the fields
Endif.
read table out_tab index 1.
out-tab-value = 'pass the value'.
<b>MODIFY OUT_PAR INDEX SY-TABIX.</b>
EndForm.
Regards
Sudheer