selection-screen

"화면관련
REPORT  ZEDU113.

TABLES: SFLIGHT, SSCRFIELDS.

SELECTION-SCREEN BEGIN OF BLOCK BL01 WITH FRAME TITLE TEXT-001.
  SELECT-OPTIONS: S_CCARID FOR SFLIGHT-CARRID.

  SELECTION-SCREEN FUNCTION KEY 1. "펑션버튼 추가
  SELECTION-SCREEN FUNCTION KEY 5.

  SELECTION-SCREEN SKIP 1.
  SELECTION-SCREEN PUSHBUTTON /10(10) BTN  "버트추가
                                      USER-COMMAND ABCD.

SELECTION-SCREEN END OF BLOCK BL01.

SELECTION-SCREEN BEGIN OF BLOCK BL02 WITH FRAME.
  PARAMETERS: TEST01(10) TYPE C MODIF ID SC1,
              TEST02(10) TYPE C MODIF ID SC2,
              TEST03(10) TYPE C MODIF ID SC1,
              TEST04(10) TYPE C MODIF ID SC2.
SELECTION-SCREEN END OF BLOCK BL02.

AT SELECTION-SCREEN OUTPUT. "파라메터 이름 색변경
  LOOP AT SCREEN.
    IF SCREEN-GROUP1 EQ 'SC1'.
       SCREEN-INTENSIFIED = '1'. "색을 준다
       SCREEN-INPUT = '0'. "파라메터에 값 못넣도록
       MODIFY SCREEN.
    ENDIF.

    IF SCREEN-GROUP1 EQ 'SC2'.
       SCREEN-INTENSIFIED = '0'.
       MODIFY SCREEN.
    ENDIF.
  ENDLOOP.

INITIALIZATION.
  MOVE 'MY BUTTON' TO BTN.  "버튼
  MOVE 'MY FUN' TO SSCRFIELDS-FUNCTXT_01. "펑션버튼
  MOVE 'MY FUN' TO SSCRFIELDS-FUNCTXT_05.

AT SELECTION-SCREEN.
  IF SSCRFIELDS-UCOMM EQ 'ABCD'.
    MESSAGE S003(ZEDUOPT100) WITH '버튼 처리'.
  ELSEIF SSCRFIELDS-UCOMM EQ 'FC01'.
    MESSAGE S003(ZEDUOPT100) WITH '펑션 처리'.
  ELSEIF SSCRFIELDS-UCOMM EQ 'FC05'.
    MESSAGE S003(ZEDUOPT100) WITH '펑션 처리'.
  ENDIF.

START-OF-SELECTION.

END-OF-SELECTION.

TOP-OF-PAGE.

*Messages
*----------------------------------------------------------
*
* Message class: ZEDUOPT100
*003   &