刚做的读信息的rfc

FUNCTION ZSD_GET_INFO.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  TABLES
*"      ZGET_INFO STRUCTURE  ZGET_INFO
*"      ZINFO STRUCTURE  ZGET_INFO
*"----------------------------------------------------------------------
tables:setleaf,setnode,KNA1,KNB1.
*****定义获取成本中心内表
DATA:begin of itab_1 occurs 0,
       kostl  like cskt-kostl,
       ltext  like cskt-ltext,
     end of itab_1.
*****定义客户数据内表
data:begin of itab_2 occurs 0,
       kunnr  like kna1-kunnr,
       bukrs  like knb1-bukrs,
       name1  like kna1-name1,
     end of itab_2.
RANGES: r_setname FOR setleaf-setname.
RANGES: s_kostl FOR crco-kostl.
DATA: i_sname LIKE setleaf-setname.
DATA: s_sname LIKE setleaf-setname.
s_sname = 'C2210'.
 SUBMIT ZFITEST020 WITH  s_sname = S_SNAME AND RETURN.
 IMPORT ITAB = s_kostl FROM MEMORY ID 'ISHIR'.

    IF s_kostl[] IS INITIAL.
      MESSAGE i398(00) WITH '没有数据输出！'.
      STOP.
    ENDIF.
select kostl ltext from cskt into table itab_1
 where kostl in s_kostl.
loop at itab_1.
 move-corresponding itab_1 to ZGET_INFO.
 append ZGET_INFO.
 clear itab_1.
 clear ZGET_INFO.
endloop.
select knb1~kunnr knb1~bukrs kna1~name1 into table itab_2
 from knb1 join kna1 on  knb1~kunnr = kna1~kunnr
 where knb1~BUKRS =  '2100'
 and  ( kna1~KTOKD = 'FI01' OR
        kna1~KTOKD = 'FI02' ).

loop at itab_2.
 move-corresponding itab_2 to ZINFO.
 append ZINFO.
 clear itab_2.
 clear ZINFO.
endloop.
ENDFUNCTION.