Skip to Content
0
Former Member
Mar 01, 2007 at 08:58 AM

perform

14 Views

Hi please help me,

In perform and form what i have to pass please help me , The logic is here,Please help me

CLEAR sel_list.

CLEAR t_table.

SORT t_table.

DELETE ADJACENT DUPLICATES FROM t_table.

PERFORM extract_table_a700 tables t_table .

DESCRIBE TABLE t_data_tab LINES linenr.

IF linenr > 0.

SORT t_data_tab.

FORM extract_table_a700

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.