屏幕元素

*&---------------------------------------------------------------------*
*& Report  ZTEST013
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST013 .
TABLES :sflight ,spfli .
*文本框
SELECTION-SCREEN : BEGIN  OF  BLOCK b1  WITH  FRAME  TITLE  text - 001 .
PARAMETERS :s_carrid  LIKE spfli -carrid , s_connid  LIKE spfli -connid  .
SELECTION-SCREEN : END  OF  BLOCK b1 .
SELECTION-SCREEN : BEGIN  OF  BLOCK b2  WITH  FRAME  TITLE  text - 002 .
*  单选按钮
PARAMETERS :s_b1  RADIOBUTTON  GROUP g1 ,s_b2  RADIOBUTTON  GROUP g1 , s_b3  RADIOBUTTON  GROUP g1 .
SELECTION-SCREEN : END  OF  BLOCK b2 .
*复选框
SELECTION-SCREEN : BEGIN  OF  BLOCK b3  WITH  FRAME  TITLE  text - 003 .
PARAMETERS :cb  AS  CHECKBOX  USER-COMMAND comm1 .
SELECTION-SCREEN : END  OF  BLOCK b3 .
*下拉框
SELECTION-SCREEN : BEGIN  OF  BLOCK b4  WITH  FRAME  TITLE  text - 004 .
PARAMETERS :plist ( 22 )  AS LISTBOX VISIBLE LENGTH  22 .
SELECTION-SCREEN : END  OF  BLOCK b4 .

AT  SELECTION-SCREEN  OUTPUT .
   PERFORM setlist .
*&---------------------------------------------------------------------*
*&      Form  SETLIST
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM SETLIST  .
   TYPE-POOLS :VRM .
   DATA : list_name  TYPE vrm_id , "下拉列表名
        list_value  TYPE vrm_values  WITH  HEADER  LINE . "下拉列表内表

  list_value - key  =  '1' .
  list_value - text  =  'FI' .
   APPEND list_value .
  list_value - key  =  '2' .
  list_value - text  =  'CO' .
   APPEND list_value .
   CALL  FUNCTION  'VRM_SET_VALUES'
     EXPORTING
       ID                     =  'plist'
      VALUES                 = list_value[]
    EXCEPTIONS
     ID_ILLEGAL_NAME        =  1
      OTHERS                 =  2
             .
   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 .                     " SETLIST