如何查看韩语？ - 进度 4GL

Question

下面的查询帮助我找出汉字，但我不确定我们如何找到韩文字符，请帮助我。

   Procedure check_chinese :
   Define input  parameter     m_char      as Character no-undo.
   define output parameter     m_error     as logical   no-undo.
   Define variable             m_ret       as Character no-undo.
   Define variable             i           as Integer no-undo.


   do i = 1 to length(m_char,"raw"):
      if ( (asc(substring(m_char,i,1,"raw")) >= 97 and
          asc(substring(m_char,i,1,"raw")) <= 122) ) 
   or ((asc(substring(m_char,i,1,"raw")) >= 65 and
          asc(substring(m_char,i,1,"raw")) <= 90))
      and (asc(substring(m_char,i,1,"raw")) <> 32 ) 
          then 
   do:
    m_error = yes.
    leave.
   
end.