**如果屏幕输入的话，取得相关输入的信息

        SELECT *

          FROM ZDTWM00014

          INTO CORRESPONDING FIELDS OF TABLE I_ZDTWM00014

         WHERE LGNUM   = L_LGNUM

           AND ZZPRPOOL = P_PRNPL.

      ENDIF.

      IF SY-SUBRC <> 0.

        EXIT.

      ENDIF.

    **排序

      SORT I_ZDTWM00014 BY LGNUM

                           ZZPRPOOL.

      DELETE ADJACENT DUPLICATES FROM I_ZDTWM00014

             COMPARING LGNUM ZZPRPOOL.

    * 调用函数把内容显示出来

      CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

        EXPORTING

          RETFIELD               = 'ZZPRPOOL'

          DYNPPROG               = SY-REPID

          DYNPNR                 = SY-DYNNR

          DYNPROFIELD            = L_FIELD

          VALUE_ORG              = 'S'

        TABLES

          VALUE_TAB              = I_ZDTWM00014

        EXCEPTIONS

          PARAMETER_ERROR        = 1

          NO_VALUES_FOUND        = 2

          OTHERS                 = 3.

      IF SY-SUBRC <> 0.

    ****调用失败，处理错误

        EXIT.

      ENDIF.

    ENDFORM.