SELECTION SCREEN FUNCTION 추가하기 <SSCRFIELDS>

1000번 화면에서 Execute(F8) 버튼 외 다른 기능을 추가하고 싶은 경우가 생긴다.

엑셀 업로드 프로그램 일부분

 

이럴 때 SSCRFIELDS를 이용해서 FUNCTION을 추가할 수 있다.

단, 최대 5개까지 생성이 가능하다. 

---

TOP 선언부에 아래 코드를 추가한다.

* FUNCTION CODE
  TABLES: SSCRFIELDS.
  DATA: G_FUNCTION_KEY TYPE SMP_DYNTXT.

 

INITIALIZATION 이벤트에 아래 코드를 추가한다. 

FORM set_function_key .
*SMPL
  G_FUNCTION_KEY-ICON_ID   = ICON_ADDRESS.
  G_FUNCTION_KEY-ICON_TEXT = 'TEST'.
  G_FUNCTION_KEY-TEXT      = 'TEST'.
  SSCRFIELDS-FUNCTXT_01    = G_FUNCTION_KEY.
ENDFORM.

 

AT SELECTION-SCREEN 이벤트에 아래 코드를 추가한다.

  CASE SSCRFIELDS-UCOMM.
    WHEN 'FC01'.
      PERFORM EXCEL_DOWN_SMPL.
  ENDCASE.

 

SSCRFIELDS-UCOMM 에 FC01이 찍히면 로직이 실행된다.

---

추가할 수 있는 FUNCTION은 총 5개라고 언급했었다. 왜?

SSCRFIELDS-FUNCTXT01 ~ 05까지 총 5개만 있어서 그렇다.

(사실 1000번 화면에서는 그리 많은 기능은 필요없을듯?)