[per

[Former Member]

I have this logic , I have to call this in routines perform and form ,please help me this with parameter passing.

CLEAR a700.

*

SELECT * FROM a700

WHERE kappl = 'V'

AND kschl IN s_kschlr

AND vkorgau IN s_vkorg

AND vtweg IN s_vtweg

AND kunnr IN s_kunnr

AND zzkvgr2 IN s_kvgr2

AND spart IN s_spart

AND kdatu IN s_kdatu

AND datbi >= p_valid

AND datab <= p_valid.

CLEAR t_data_tab.

*

MOVE : tname TO t_data_tab-tnum,

a700-kschl TO t_data_tab-kschl,

a700-vkorgau TO t_data_tab-vkorg,

a700-vtweg TO t_data_tab-vtweg,

a700-kunnr TO t_data_tab-cust,

a700-zzkvgr2 TO t_data_tab-zzkvgr2,

a700-spart TO t_data_tab-spart,

a700-kdatu TO t_data_tab-kdatu,

a700-datbi TO t_data_tab-datbi,

a700-datab TO t_data_tab-datab,

a700-knumh TO t_data_tab-knumh.

APPEND t_data_tab.

ENDSELECT.

[Former Member]

perform get_data changing t_data_tab.

form get_data.

CLEAR a700.

*

SELECT * FROM a700

WHERE kappl = 'V'

AND kschl IN s_kschlr

AND vkorgau IN s_vkorg

AND vtweg IN s_vtweg

AND kunnr IN s_kunnr

AND zzkvgr2 IN s_kvgr2

AND spart IN s_spart

AND kdatu IN s_kdatu

AND datbi >= p_valid

AND datab <= p_valid.

CLEAR t_data_tab.

*

MOVE : tname TO t_data_tab-tnum,

a700-kschl TO t_data_tab-kschl,

a700-vkorgau TO t_data_tab-vkorg,

a700-vtweg TO t_data_tab-vtweg,

a700-kunnr TO t_data_tab-cust,

a700-zzkvgr2 TO t_data_tab-zzkvgr2,

a700-spart TO t_data_tab-spart,

a700-kdatu TO t_data_tab-kdatu,

a700-datbi TO t_data_tab-datbi,

a700-datab TO t_data_tab-datab,

a700-knumh TO t_data_tab-knumh.

APPEND t_data_tab.

ENDSELECT.

endform.

each time the internal table t_data_tab will get updated with new values , is this what u r looking for

[Former Member]

ali ahmmad,

all select options & parameters will be avilable to form.

perform get_data using tname tables t_data_tab .

form get_data.

SELECT * FROM a700

WHERE kappl = 'V'

AND kschl IN s_kschlr

AND vkorgau IN s_vkorg

AND vtweg IN s_vtweg

AND kunnr IN s_kunnr

AND zzkvgr2 IN s_kvgr2

AND spart IN s_spart

AND kdatu IN s_kdatu

AND datbi >= p_valid

AND datab <= p_valid.

CLEAR t_data_tab.

*

MOVE : tname TO t_data_tab-tnum,

a700-kschl TO t_data_tab-kschl,

a700-vkorgau TO t_data_tab-vkorg,

a700-vtweg TO t_data_tab-vtweg,

a700-kunnr TO t_data_tab-cust,

a700-zzkvgr2 TO t_data_tab-zzkvgr2,

a700-spart TO t_data_tab-spart,

a700-kdatu TO t_data_tab-kdatu,

a700-datbi TO t_data_tab-datbi,

a700-datab TO t_data_tab-datab,

a700-knumh TO t_data_tab-knumh.

APPEND t_data_tab.

ENDSELECT.

endform.

Pls. reward if useful