推荐订阅源

 SELECT-OPTIONS: s_status FOR crm_jest-stat NO INTERVALS.

 AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_status-low.

  PERFORM serach_status.

 FORM serach_status .

  DATA return_tab LIKE ddshretval OCCURS 0 WITH HEADER LINE.

  DATA: BEGIN OF lt_status OCCURS 0,

          estat LIKE tj30t-estat,

          txt30 LIKE tj30t-txt30,

        END OF lt_status.

  SELECT estat txt30

    INTO CORRESPONDING FIELDS OF TABLE lt_status

    FROM tj30t

   WHERE stsma = 'ZTSDC'.     "ZTSDC 单据的名称

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

    EXPORTING

      retfield         = 'ESTAT'  "内标字段

      dynpprog         = sy-repid

      dynpnr           = sy-dynnr

      dynprofield      = 'S_STATUS-LOW'    " 屏幕字段

      value_org        = 'S'

      callback_program = sy-repid

    TABLES

      value_tab        = lt_status

      return_tab       = return_tab

    EXCEPTIONS

      parameter_error  = 1

      no_values_found  = 2

      OTHERS           = 3.

  IF sy-subrc <> 0.

* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.

ENDFORM.                    " SERACH_STATUS