[SAP ABAP] AT SELECTION-SCREEN ON <필드 이름> 구문 이란? (예제 포함)

AT SELECTION-SCREEN ON 이란?

AT SELECTION-SCREEN ON <필드 이름>.

AT SELECTION-SCREEN ON 구문은 SAP ABAP에서 선택 화면(Selection Screen)의 특정 필드에 대한 이벤트 처리를 수행할 때 사용됩니다.

선택 화면에서 특정 필드가 입력되었을 때 또는 Enter 키를 눌렀을 때 이벤트가 발생하여 해당 필드의 입력값에 대해 검증하거나 처리할 수 있습니다.

 

AT SELECTION-SCREEN ON xmrwld

1. 선택 화면 필드의 값에 대해 입력 검증을 수행할 수 있습니다.
2. 여러 필드에 대해 각각의 검증 로직을 설정할 수 있습니다.
3. 오류가 발생하면 자동으로 해당 필드로 커서가 이동하며, 입력값 수정이 요구됩니다.

 

예제 코드

아래 예제에서는 회사 코드(P_BUKRS)에 대해 사용자가 입력한 값이 유효한지 검증하고, 올바르지 않은 경우 오류 메시지를 표시하는 예제를 보여줍니다.

PARAMETERS: p_bukrs TYPE bukrs OBLIGATORY. " 회사 코드 필드 (필수 입력)

" 선택 화면에서 P_BUKRS 필드에 대한 입력값 검증
AT SELECTION-SCREEN ON p_bukrs.
  " 회사 코드가 '1000'이 아닌 경우 오류 메시지 표시
  IF p_bukrs <> '1000'.
    MESSAGE 'Only company code 1000 is allowed!' TYPE 'E'.
  ENDIF.

START-OF-SELECTION.
  " 선택 화면 입력이 올바른 경우 출력
  WRITE: / 'Company Code:', p_bukrs.

• PARAMETERS: p_bukrs TYPE bukrs OBLIGATORY.
  • 회사 코드(P_BUKRS) 를 입력받기 위해 PARAMETERS 구문을 사용하여 필드를 정의합니다.
  • OBLIGATORY 옵션을 사용해 필수 입력 필드를 설정합니다. 즉, 사용자가 값을 입력하지 않으면 프로그램이 실행되지 않습니다.
• AT SELECTION-SCREEN ON P_BUKRS.
  
  • 회사 코드(P_BUKRS) 필드에 대한 입력값이 변경되거나 Enter 키가 눌렸을 때 실행됩니다.
  • 이 구문을 통해 특정 필드의 입력값을 검증할 수 있습니다.
• 검증 로직( IF p_bukrs <> '1000')
  • 입력된 회사 코드가 '1000'이 아닌 경우 오류 메시지 "Only company code 1000 is allowed!"를 표시합니다.
  • TYPE 'E' 는 에러 메시지를 의미하며, 프로그램의 실행을 중단시킵니다. 이 메시지를 처리한 후, 커서가 P_BUKRS 필드로 이동합니다.
• START-OF-SELECTION 이벤트
  • 선택 화면에서 입력값 검증이 모두 통과된 경우에 실행됩니다.
  • 입력된 회사 코드 값을 화면에 출력합니다.

 

실행 결과

1. 회사코드 필드에 1000을 입력할 경우

프로그램이 정상적으로 실행되고, Company Code: 1000 이 출력됩니다.

 

2. 다른 값을 입력하고 Enter 키를 누를 경우

Only company code 1000 is allowed!" 라는 오류 메시지가 표시되며, 프로그램 실행이 중단됩니다.

 

3. AT SELECTION-SCREEN ON p_bukrs. 을 주석 처리할 경우

입력값 검증을 하지 않기 때문에 1000이 아닌 다른 숫자를 입력해도 오류 메시지가 발생하지 않으며, 프로그램은 그대로 실행됩니다.

9를 입력하고 실행하면 다음 페이지에서 오류 메시지를 발생시킵니다.

즉, 입력 당시 값 검증을 하지 않기 때문에 입력칸에 입력 자체는 가능해집니다.

PARAMETERS: p_bukrs TYPE bukrs OBLIGATORY. " 회사 코드 필드 (필수 입력)

" 선택 화면에서 P_BUKRS 필드에 대한 입력값 검증
*AT SELECTION-SCREEN ON p_bukrs.
  " 회사 코드가 '1000'이 아닌 경우 오류 메시지 표시
  IF p_bukrs <> '1000'.
    MESSAGE 'Only company code 1000 is allowed!' TYPE 'E'.
  ENDIF.

START-OF-SELECTION.
  " 선택 화면 입력이 올바른 경우 출력
  WRITE: / 'Company Code:', p_bukrs.

입력 가능

입력 후 실행 누르면 에러 메세지 발생