Parameter下拉列表

来源：互联网发布：淘宝被盗号了怎么办编辑：程序博客网时间：2024/05/17 02:06
*&---------------------------------------------------------------------**& Report  ZTEST_CJ01*&*&---------------------------------------------------------------------**&*&*&---------------------------------------------------------------------*REPORT ZTEST_CJ01.DATA:      bname   TYPE vrm_id,      vbukrs  TYPE vrm_values,      lvbukrs LIKE LINE OF vbukrs.DATA:      gname   TYPE vrm_id,      vgjahr  TYPE vrm_values,      lvgjahr LIKE LINE OF vgjahr.PARAMETERS:            p_bukrs TYPE bseg-bukrs AS LISTBOX VISIBLE LENGTH 30 DEFAULT 'A001',            p_gjahr TYPE bseg-gjahr AS LISTBOX VISIBLE LENGTH 30 DEFAULT '2016'.AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_bukrs.CLEAR lvbukrs.bname = 'P_BUKRS'.lvbukrs-key = 'A001'.APPEND lvbukrs TO vbukrs.CLEAR lvbukrs.bname = 'P_BUKRS'.lvbukrs-key = 'A002'.APPEND lvbukrs TO vbukrs.CLEAR lvbukrs.bname = 'P_BUKRS'.lvbukrs-key = 'A003'.APPEND lvbukrs TO vbukrs.CLEAR lvbukrs.CALL FUNCTION 'VRM_SET_VALUES'  EXPORTING    ID                    = bname    VALUES                = vbukrs EXCEPTIONS   ID_ILLEGAL_NAME       = 1   OTHERS                = 2          .IF SY-SUBRC <> 0.* Implement suitable error handling hereENDIF.AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_gjahr.CLEAR lvgjahr.gname = 'P_GJAHR'.lvgjahr-key = '2016'.APPEND lvgjahr TO vgjahr.CLEAR lvgjahr.gname = 'P_GJAHR'.lvgjahr-key = '2015'.APPEND lvgjahr TO vgjahr.CLEAR lvgjahr.gname = 'P_GJAHR'.lvgjahr-key = '2014'.APPEND lvgjahr TO vgjahr.CLEAR lvgjahr.CALL FUNCTION 'VRM_SET_VALUES'  EXPORTING    ID                    = gname    VALUES                = vgjahr* EXCEPTIONS*   ID_ILLEGAL_NAME       = 1*   OTHERS                = 2          .IF SY-SUBRC <> 0.* Implement suitable error handling hereENDIF.
0 0