AS400 RPGLE 检测字段中是否含有中文

D  xxOK                          1A   INZ('N')
D  CHNSTR                       50A   INZ(' ')
D  CHNe                          1A   INZ(X'0E')
D  CHNf                          1A   INZ(X'0F')
D  xxi                           2P 0 INZ(0)
D  xxie                          2P 0 INZ(0)
D  xxif                          2P 0 INZ(0)

C                   CLEAR                   xxOK
C*---
C                   CLEAR                   CHNSTR
C                   EVAL      CHNSTR = HCCN
C                   EXSR      /CHKCHN
C                   IF        (xxie > 0) or (xxif > 0)
C                   EVAL      xxOK   = 'Y'
C                   LEAVESR
C                   ENDIF

C***********************************************************
C*    /CHKCHN = Check Chinese Character
C***********************************************************
CSR   /CHKCHN       BEGSR
C*
c                   eval      xxi = 50
c                   eval      xxie= 0
c                   eval      xxif= 0
c                   dow       xxi > 0
c                   if        %subst(CHNSTR:xxi:1)=CHNe
c                   eval      xxie= xxi
c                   leavesr
c                   endif
c                   if        %subst(CHNSTR:xxi:1)=CHNf
c                   eval      xxif= xxi
c                   leavesr
c                   endif
c                   sub       1             xxi
c                   enddo
C*
CSR                 ENDSR