(十豆大哥帮小弟我看看)帮帮

(十豆大哥帮我看看)各位高手帮帮
我写了这样一段
T1AA=SUBSTR(WJNR,5,7)  
          DO   CASE
              CASE   T1BB= '999 '
              CXZFY=TIAA
                CASE   T1BB= '065 '
                  CXPB1=TIAA
                    CASE   T1BB= '066 '
                      CXPB2=TIAA
                        CASE   T1BB= '067 '
                            CXPB3=TIAA
            END   CASE
      FOR
        T1AA=14   TO   T1AA+7
        T1BB=SUBSTR(WJNR,T1AA,3)
      DO   CASE
          CASE   T1BB= '999 '
            CXZFY=SUBSTR(WJNR,T1AA+3,7)
          CASE   T1BB= '065 '
            CXPB1=SUBSTR(WJNR,T1AA+3,7)
        CASE   T1BB= '066 '
            CXPB2=SUBSTR(WJNR,T1AA+3,7)
            CASE   T1BB= '067 '
            CXPB3=SUBSTR(WJNR,T1AA+3,7)
            END   CASE
            END   FOR
            目的是实现取得的字符串判断有没有,999,065,066,067字段,有的话标记,其中字符串前4位没用,后边3位为999或上边的4组数或者其他,接着是7位我需要的字符,然后重复3位,7位,一直到结束.就是除了前4个字符后边都是有规律的3,7.3判断是不是我要的,7是我要的内容.写的不对,各位大哥给我改改,或者有其他的方法,谢谢了

------解决方案--------------------
没看懂