DYNP_VALUES_READ

来源:互联网 发布:mac有好用的看图软件吗 编辑:程序博客网 时间:2024/04/30 20:46

屏幕字段的某些值,比如想根据某个值A,来限定另外一个值B的内容的时候,用到“DYNP_VALUES_READ”FUN,先取得A的内容。

在 AT SELECTION-SCREEN ON VALUE-REQUEST FOR  XXX 事件中使用。

例如:

      PARAMETERS: p_file LIKE rlgrap-filename

              DEFAULT 'D:\XIAOXIE\' OBLIGATORY.  

AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.

  PERFORM f4_file_search USING ',*.*  ,*.*.'

                               'O'

                               'ChooseFile......'.

   DATA : lv_dyname   LIKE d020s-prog,

         lv_dynumb   LIKE d020s-dnum.

  DATA : s1(30).

  FIELD-SYMBOLS <lfs>.

  CLEAR : gt_dynfields[], gt_dynfields.

  GET CURSOR FIELD gt_dynfields-fieldname.

  APPEND gt_dynfields.

  CALL FUNCTION 'DYNP_VALUES_READ'

    EXPORTING

      dyname               = sy-repid

      dynumb               = sy-dynnr

    TABLES

      dynpfields           = gt_dynfields

    EXCEPTIONS

      invalid_abapworkarea = 1

      invalid_dynprofield  = 2

      invalid_dynproname   = 3

      invalid_dynpronummer = 4

      invalid_request      = 5

      no_fielddescription  = 6

      invalid_parameter    = 7

      undefind_error       = 8

      double_conversion    = 9

      OTHERS               = 10.

  IF sy-subrc NE 0.

    MESSAGE ID sy-msgid TYPE 'S' NUMBER sy-msgno

            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

  ENDIF.


原创粉丝点击