OPEN sql like用法

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.       

发布了4 篇原创文章 · 获赞 0 · 访问量 250
展开阅读全文

没有更多推荐了,返回首页

©️2019 CSDN 皮肤主题: 大白 设计师: CSDN官方博客

分享到微信朋友圈

×

扫一扫,手机浏览