【IT168 技术文章】

    For ABAP search help, there are a lot of ways to use it, here I just list one of them to show out how to use F4 help.

    **定义屏幕选

    PARAMETERS:    P_PRNPL(4) TYPE C                 .

    **在下面的事件中指定检索help的字段

    AT

    SELECTION-SCREEN ON VALUE-REQUEST FOR P_PRNPL.

    *-->Search help of print pool

      PERFORM F4_PRNTP_HELP

              USING P_LGNUM

                    'P_PRNPL'.

    **下面是实现检索help的子程序

    FORM F4_PRNTP_HELP USING L_LGNUM LIKE LRF_WKQU-LGNUM

                             L_FIELD TYPE HELP_INFO-DYNPROFLD.

    ***定义检索help要显示的信息的内表

      TYPES: BEGIN OF T_ZDTWM00014,

               LGNUM  TYPE ZDTWM00014-LGNUM,

               ZZPRPOOL TYPE ZDTWM00014-ZZPRPOOL,

               ZZPPOTXT TYPE ZDTWM00014-ZZPPOTXT,

             END OF T_ZDTWM00014.

      DATA: I_ZDTWM00014 TYPE T_ZDTWM00014 OCCURS 0 WITH HEADER LINE.

    **清空这个内表

      REFRESH I_ZDTWM00014.

    **如果屏幕上没有输入的情况下，取得所有数据库表里有的内容

      IF L_LGNUM IS INITIAL.

        SELECT *

          FROM ZDTWM00014

          INTO CORRESPONDING FIELDS OF TABLE I_ZDTWM00014.

      ELSE.