ABAP案例：灵活读取SAP各表的数据

• 案例说明

    RFC读取表中数据。

• Import

参数名称	Type spec.	参考打印
FIELDS_NAME1	TYPE	CHAR25
TABLE_NAME1	TYPE	CHAR25
WHERE_NAME1	TYPE	CHAR256
FIELDS_NAME2	TYPE	CHAR25
TABLE_NAME2	TYPE	CHAR25
WHERE_NAME2	TYPE	CHAR256

• Tables

参数名称	Type spec.	参考打印
ITAB	LIKE	ZTABDATA

• ZTABDATA

Component	Data Type	长度	小数位
ZDATA	CHAR	50	0
ZTEXT	CHAR	100	0

• Source Code

FUNCTION Z_RFC_READ_ALL_DATA.

 

DATA: WA_TAB LIKE ZTABDATA.

SELECT (FIELDS_NAME1)

FROM (TABLE_NAME1) INTO WA_TAB-ZDATA

WHERE (WHERE_NAME1).

    APPEND WA_TAB TO ITAB.

    CLEAR WA_TAB.

ENDSELECT.

IF FIELDS_NAME2 <> '' AND TABLE_NAME2 <> ''.

    LOOP AT ITAB INTO WA_TAB.

        SELECT SINGLE (FIELDS_NAME2)

        FROM (TABLE_NAME2) INTO WA_TAB-ZTEXT

        WHERE (WHERE_NAME2).

        MODIFY ITAB FROM WA_TAB TRANSPORTING ZTEXT.

        CLEAR WA_TAB.

    ENDLOOP.

ENDIF.

 

ENDFUNCTION.