한글포함여부 체크

*&---------------------------------------------------------------------*
*&      Form  CHECK_KOREAN
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_STRING   text
*      -->P_RESULT   text
*----------------------------------------------------------------------*
FORM check_korean  USING    p_string
                            p_result.


  DATA: l_alpha TYPE string.
  DATA: l_org_filename TYPE string.

  l_org_filename = p_string.
  MOVE: ' ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890.,/"+_)(*&^%$#@![]{}=-`~' TO l_alpha.
  TRANSLATE l_org_filename TO UPPER CASE.
  CONDENSE l_org_filename.

  IF l_org_filename CO l_alpha.
    CLEAR : p_result.
  ELSE.
    p_result = 'X'. "한글 포함됨.
  ENDIF.

ENDFORM.                    "CHECK_KOREAN

 

무식한 방법이 젤 간단하다.