Routine1

Question

Hi please help me,
In Perform  and  form i have to give some logic. For this  inside the form logic i have given logic  like this, Now the problem is when i am calling the routine i have to give logic .Please help me here . When calling perform with which passing parameter i have to call .This is uregent please help me.
DATA: BEGIN OF t_table OCCURS 0,
       tnum LIKE zpricontab-tnum,
      END OF t_table.
CLEAR sel_list.
  CLEAR t_table.
  SORT t_table.
  DELETE ADJACENT DUPLICATES FROM t_table.
  PERFORM extract_table_a700.(this is that perform what i have to pass here for this logic which is given below
  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.

Answer 1

Hi,
No need to give any paramters to the Perform as you are not using any of the paramters in the select statement. You are using all the global parameters which belongs to selection screen.Just declare an internal table for a700 and fetch the data into that, and remove the ENDSELECT from last, since I am using into table in select statement.
You have to write the form statements in the last.
DATA: BEGIN OF t_table OCCURS 0,
tnum LIKE zpricontab-tnum,
END OF t_table.
<b>Data:i_a700 like a700 occurs 0 with header line.</b>
CLEAR sel_list.
CLEAR t_table.
SORT t_table.
DELETE ADJACENT DUPLICATES FROM t_table.
PERFORM extract_table_a700.(this is that perform what i have to pass here for this logic which is given below
DESCRIBE TABLE t_data_tab LINES linenr.
IF linenr > 0.
SORT t_data_tab.
loop at t_data_tab.
  < display the data or do whatever you wants to do>
endloop.
FORM extract_table_a700
CLEAR a700.
SELECT * FROM a700 <b>into table i_a700</b>
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.
loop at i_a700.
MOVE : tname TO t_data_tab-tnum,
i_a700-kschl TO t_data_tab-kschl,
i_a700-vkorgau TO t_data_tab-vkorg,
i_a700-vtweg TO t_data_tab-vtweg,
i_a700-kunnr TO t_data_tab-cust,
i_a700-zzkvgr2 TO t_data_tab-zzkvgr2,
i_a700-spart TO t_data_tab-spart,
i_a700-kdatu TO t_data_tab-kdatu,
i_a700-datbi TO t_data_tab-datbi,
i_a700-datab TO t_data_tab-datab,
i_a700-knumh TO t_data_tab-knumh.
APPEND t_data_tab.
clear t_data_tab.
endloop.
endform.
Regards,
Anji
Message was edited by:
        Anji Reddy Vangala