选择界面相关2

SELECTION-SCREEN BEGIN OF BLOCK BK1 WITH FRAME TITLE TEXT-001.
  SELECT-OPTIONS S_ZCODE FOR GS_STUDENT-ZCODE NO-EXTENSION  NO INTERVALS.
  SELECT-OPTIONS S_ZNAME FOR GS_STUDENT-ZNAME.
  SELECT-OPTIONS S_ZSCL  FOR GS_STUDENT-ZSCHOOL.
SELECTION-SCREEN END OF BLOCK BK1.

SELECTION-SCREEN BEGIN OF BLOCK BK2 WITH FRAME TITLE TEXT-002.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS R_MAN RADIOBUTTON GROUP GP1.
SELECTION-SCREEN COMMENT (10) TEXT-003 FOR FIELD R_MAN .
SELECTION-SCREEN POSITION 20.
PARAMETERS R_FEMALE RADIOBUTTON GROUP GP1.
SELECTION-SCREEN COMMENT (10) TEXT-004 FOR FIELD R_FEMALE.
SELECTION-SCREEN POSITION 20.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK BK2.

PARAMETERS P_CHECK AS CHECKBOX USER-COMMAND HIDE.
SELECTION-SCREEN BEGIN OF BLOCK BK3 WITH FRAME TITLE TEXT-005.
PARAMETERS P_P1 RADIOBUTTON GROUP GP2 MODIF ID T1.
PARAMETERS P_P2 RADIOBUTTON GROUP GP2 MODIF ID T1.
PARAMETERS P_P3 RADIOBUTTON GROUP GP2 MODIF ID T1.
PARAMETERS P_P4 RADIOBUTTON GROUP GP2 MODIF ID T1.
PARAMETERS P_P5 RADIOBUTTON GROUP GP2 MODIF ID T1.
SELECTION-SCREEN END OF BLOCK BK3.

*下拉列表
PARAMETERS P_LIST AS LISTBOX VISIBLE LENGTH 10.

INCLUDE ZTS_XSY_TEST4TOP.
INCLUDE ZTS_XSY_TEST4FORM.

INITIALIZATION.

AT SELECTION-SCREEN OUTPUT.
  PERFORM MODIFY_SCREEN.
  PERFORM SET_LIST.

AT SELECTION-SCREEN.

START-OF-SELECTION.

END-OF-SELECTION.

*&---------------------------------------------------------------------*
*&  包含                ZTS_XSY_TEST4FORM
*&---------------------------------------------------------------------*
*&---------------------------------------------------------------------*
*&      Form  MODIFY_SCREEN
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM modify_screen .
  LOOP AT SCREEN.
    IF P_CHECK = 'X'.
    ELSE.
      IF SCREEN-GROUP1 = 'T1'.
        SCREEN-INVISIBLE = 1.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
  ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*&      Form  SET_LIST
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*  -->  p1        text
*  <--  p2        text
*----------------------------------------------------------------------*
FORM set_list .
  DATA: VID   TYPE VRM_ID,
        LIST  TYPE VRM_VALUES,
        VALUE LIKE LINE OF LIST.
*对内表加载值，KEY为关键字也是列表能回执的值，text为描述
  VALUE-KEY = '列表1'.
  VALUE-TEXT = '列表1'.
  APPEND VALUE TO LIST .

  VALUE-KEY = '列表2'.
  VALUE-TEXT = '列表2'.
  APPEND VALUE TO LIST .

  VALUE-KEY = '列表3'.
  VALUE-TEXT = '列表3'.
 APPEND VALUE TO LIST .

  VALUE-KEY = '列表4'.
  VALUE-TEXT = '列表4'.
  APPEND VALUE TO LIST .

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id                    = 'P_LIST'
      values                = LIST
   EXCEPTIONS
     ID_ILLEGAL_NAME       = 1
     OTHERS                = 2
            .
  IF sy-subrc <> 0.
* Implement suitable error handling here
  ENDIF.

ENDFORM.