DATA: M_ARKTX LIKE VBAP-ARKTX.*声明变量
SELECTION-SCREEN:BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:S_VBELN FOR VBAK-VBELN,
S_ARKTX FOR VBAP-ARKTX,*定义字段
S_VKORG FOR VBAK-VKORG.
SELECTION-SCREEN:END OF BLOCK a1.
AT SELECTION-SCREEN.
PERFORM FRM_CHECK_SDATA."调用验证子例程FRM_CHECK_SDATA
START-OF-SELECTION.
PERFORM FRM_GET_DATA.
PERFORM FRM_ALV_SHOW.
END-OF-SELECTION.
FORM FRM_CHECK_SDATA .
ENDFORM. " FRM_CHECK_SDATA
FORM FRM_GET_DATA .
CONCATENATE '%'S_ARKTX-low'%' INTO M_ARKTX.*参数拼接通配符,S_ARKTX后面必须加上-low才会生效
SELECT
VBAK~VBELN
VBAK~VKORG
VBAK~KUNNR
VBAP~MATNR
VBAP~ARKTX
INTO CORRESPONDING FIELDS OF TABLE IT_OUT
FROM VBAK
INNER JOIN VBAP ON VBAK~VBELN = VBAP~VBELN
WHERE VBAK~VBELN IN S_VBELN
AND VBAK~VKORG IN S_VKORG
AND VBAP~ARKTX LIKE M_ARKTX.
IF SY-SUBRC <> 0 .
MESSAGE '读取数据进内表失败' TYPE 'E'.
LEAVE LIST-PROCESSING.
ENDIF.
ENDFORM.