(ABAP 코드) DROPBOX / Function Key (버튼)

TABLES: SSCRFIELDS.

 

SELECTION-SCREEN BEGIN OF BLOCK B01 WITH FRAME TITLE TEXT-001.

  PARAMETERS: P_DEV TYPE ZTBD2_12_01-DEVNR

    AS LISTBOX VISIBLE LENGTH 25.

SELECTION-SCREEN END OF BLOCK B01.

 

SELECTION-SCREEN FUNCTION KEY: 1.

SELECTION-SCREEN FUNCTION KEY: 2.

 

INITIALIZATION.

 

  SSCRFIELDS-FUNCTXT_01 = 'ALV 연습 - 03 프로그램'.

  SSCRFIELDS-FUNCTXT_02 = '개발현황'.

 

 

 

AT SELECTION-SCREEN OUTPUT.

 

  PERFORM SET_LIST.

 

 

AT SELECTION-SCREEN.

 

  CASE sscrfields-ucomm.

    WHEN 'FC01'.

      SUBMIT ZBD212_PGM_ALV_TEST003 VIA SELECTION-SCREEN AND RETURN.

    WHEN 'FC02'.

      CALL TRANSACTION 'ZTRDIR'.

  ENDCASE.

 

 

 

 

START-OF-SELECTION.

*&---------------------------------------------------------------------*

*& Form SET_LIST

*&---------------------------------------------------------------------*

*& text

*&---------------------------------------------------------------------*

*& -->  p1        text

*& <--  p2        text

*&---------------------------------------------------------------------*

FORM SET_LIST .

 

  TYPE-POOLS: VRM.

 

  DATA: LV_NAME TYPE VRM_ID,

        LT_LIST TYPE VRM_VALUES.

 

  LV_NAME = 'P_DEV'.

 

  CLEAR: LT_LIST, LT_LIST[].

 

  SELECT DEVNR, '(' && DEVNR && ') '  && DEVNM

    FROM ZTBD2_12_01

    INTO TABLE @LT_LIST.

 

 

  CALL FUNCTION 'VRM_SET_VALUES'

    EXPORTING

      ID                    = LV_NAME

      VALUES                = LT_LIST[].

  IF SY-SUBRC <> 0.

* Implement suitable error handling here

  ENDIF.

 

 

 

 

ENDFORM.