选择屏幕联动下拉框

*&---------------------------------------------------------------------*
*& Report  ZTEST_CALL_PROG
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT  ZTEST_CALL_PROG.
TYPE-POOLS VRM.         " ListBox使用
DATA: NAME TYPE VRM_ID,
      LIST TYPE VRM_VALUES,
      VALUE LIKE LINE OF LIST.
TABLES:  SSCRFIELDS.
DATA:  G_CODE TYPE SSCRFIELDS-UCOMM.

DATA:BEGIN OF ITAB OCCURS 0,
     COUN(2),
     CITY(2),
     TCITY(10),
END OF ITAB.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE T1.
PARAMETERS: P_COUN TYPE TEXT20 OBLIGATORY AS LISTBOX VISIBLE LENGTH 15 USER-COMMAND COUN,
          P_CITY TYPE TEXT20  AS LISTBOX VISIBLE LENGTH 15.
SELECTION-SCREEN END OF BLOCK B1.

INITIALIZATION.
  T1 = '选择条件'.

  CLEAR:LIST,LIST[],ITAB[].
  VALUE-KEY = '01'.
  VALUE-TEXT = '中国'.
  APPEND VALUE TO LIST.
  VALUE-KEY = '02'.
  VALUE-TEXT = '美国'.
  APPEND VALUE TO LIST.
  P_COUN = '01'.

  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID     = 'P_COUN'
      VALUES = LIST.

  CLEAR:LIST,LIST[].

  ITAB-COUN = '01'.
  ITAB-CITY = '01'.
  ITAB-TCITY = '北京'.
  APPEND ITAB.
  VALUE-KEY = ITAB-CITY.
  VALUE-TEXT = ITAB-TCITY.
  APPEND VALUE TO LIST.

  ITAB-COUN = '01'.
  ITAB-CITY = '02'.
  ITAB-TCITY = '上海'.
  APPEND ITAB.
  VALUE-KEY = ITAB-CITY.
  VALUE-TEXT = ITAB-TCITY.
  APPEND VALUE TO LIST.

  ITAB-COUN = '01'.
  ITAB-CITY = '03'.
  ITAB-TCITY = '广州'.
  APPEND ITAB.
  VALUE-KEY = ITAB-CITY.
  VALUE-TEXT = ITAB-TCITY.
  APPEND VALUE TO LIST.

  ITAB-COUN = '02'.
  ITAB-CITY = '04'.
  ITAB-TCITY = '纽约'.
  APPEND ITAB.
  VALUE-KEY = ITAB-CITY.
  VALUE-TEXT = ITAB-TCITY.
  APPEND VALUE TO LIST.

  ITAB-COUN = '02'.
  ITAB-CITY = '05'.
  ITAB-TCITY = '华盛顿'.
  APPEND ITAB.
  VALUE-KEY = ITAB-CITY.
  VALUE-TEXT = ITAB-TCITY.
  APPEND VALUE TO LIST.
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID     = 'P_CITY'
      VALUES = LIST.

AT SELECTION-SCREEN .
  G_CODE = SSCRFIELDS-UCOMM.
  CASE G_CODE.
    WHEN 'COUN'.
      CLEAR:LIST,LIST[].
      LOOP AT ITAB WHERE COUN = P_COUN.

        VALUE-KEY = ITAB-CITY.
        VALUE-TEXT = ITAB-TCITY.
        APPEND VALUE TO LIST.

        IF SY-TABIX EQ 1.
          P_CITY = ITAB-CITY.
        ENDIF.
      ENDLOOP.
      CALL FUNCTION 'VRM_SET_VALUES'
        EXPORTING
          ID     = 'P_CITY'
          VALUES = LIST.
  ENDCASE.