[Stackoverflow] [Progress OpenEdge ABL] How to check Korean language? - PROGRESS 4GL

[David]

Below query helping me to find out Chinese character but I am not sure how we can find the Korean character, Kindly help me on this.

   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.

Continue reading...