在RPGLE中实现中文模糊查询

最新推荐文章于 2020-09-23 16:00:11 发布

JmLei

最新推荐文章于 2020-09-23 16:00:11 发布

阅读量1.9k

点赞数

分类专栏： AS400/RPGLE/CL 文章标签： c character

本文链接：https://blog.csdn.net/jmlei/article/details/3863606

版权

AS400/RPGLE/CL 专栏收录该内容

49 篇文章 6 订阅

订阅专栏

CSR   /CHKCHN       BEGSR
C*
C                   EVAL      xxOK = 'N'
C*
C                   IF        xxCHN1= *BLANKS
C                   EVAL      xxOK = 'Y'                                  *Data ok
C                   LEAVESR
C                   ENDIF
C*
C                   EVAL      xxCHN1= %trim(xxCHN1)
C                   EVAL      xxCHN2= %trim(xxCHN2)
C                   EVAL      xxI   = %len(%trim(xxCHN1))
C                   IF        xxCHN1= %subst(xxCHN2:1:xxI)
C                   EVAL      xxOK = 'Y'                                  *Data ok
C                   LEAVESR
C                   ENDIF
C*
C*--- Simplified Character
C*
C                   IF        xxCHN1 < ' '
C                   EVAL      xxI = %len(%trim(xxCHN1))
C                   IF        xxI >=4
C                   IF        %scan(%subst(%trim(xxCHN1):2:xxI-2)
C                             :xxCHN2) > 0
C                   EVAL      xxOK = 'Y'                                  *Data ok
C                   LEAVESR
C                   ENDIF
C                   ENDIF
C                   ENDIF
C*
C                   IF        %scan(%trim(xxCHN1):xxCHN2) = 1
C                   EVAL      xxOK = 'Y'                                  *Data ok
C                   LEAVESR
C                   ENDIF
C*
CSR                 ENDSR