REGEX - CCSID???

[BenderD]

... hast du mal die Umgebungsvariablen verglichen?

D*B

ich habe schon beides probiert....

einmal das Objekt rübergeschickt und einmal die Quelle und dann probiert...

aber es verhält sich nicht genauso wie auf unserer Maschine....

auf der einen Maschine funktioniert es nur, wenn ich iconv in CCSID 37 wandel und auf unserer nur wenn ich das ohne iconv mache....

hat es evtl doch etwas mit den C Routine(regexec, regcomp..) zu tun??


Die SRC-PF´s haben beide die selben CCSID´s: 273
LANGID: DEU


Hier mal ein Teil des Codes mit dem ich es probiere:

     C                   EVAL      scPattern = '^[A-Z0-9._%-]+@[A-Z0-9.-]+\.+
     C                                       [A-Z]{2,4}$'
     C*
     C*
     C                   EVAL      PatternBuf = scPattern
     c                   eval      PatternLen = %len(%trimr(scPattern))
     c                   eval      p_PatternBuf = %addr(PatternBuf)


     C* Hier evtl Konvertierung in CCSID 37
     c**                 if        iconv(ic: p_PatternBuf: PatternLen:
     c**                                     p_PatternBuf: PatternLen) = -1
     c**                 callp     fatal_error
     c**                 endif

     c                   eval      PatternLen = %len(%trimr(scPattern))
     c                   eval      rc = regcomp(reg:
     c                                    %subst(PatternBuf:1:PatternLen):
     c                                    REG_EXTENDED+REG_ICASE+REG_NOSUB)

     C     RC            DSPLY
     c                   if        rc <> 0
     c                   callp     regerror(rc: reg:
     c                                     %addr(buf): %size(buf))
     c                   eval      scMsg = %str(%addr(buf))
     c                   endif

     C
     c                   eval      scSflLine = 'test@test.de'
     C                   EVAL      PatternBuf = scSflLine
     c                   eval      p_PatternBuf = %addr(PatternBuf)

     C* Hier evtl Konvertierung in CCSID 37
     c***                if        iconv(ic: p_PatternBuf: PatternLen:
     c***                                    p_PatternBuf: PatternLen) = -1
     c***                callp     fatal_error
     c***                endif
     c                   eval      PatternLen = %len(%trimr(scSflLine))
     c                   eval      rc = regexec(reg:
     c                                    %subst(PatternBuf:1:PatternLen):
     c                                    0: match: 0 )
     C     RC            DSPLY
     c                   endif
     c*

     Csr   *INZSR        begsr
      *-----------------------
     c                   eval      ic = QtqIconvOpen(to: from)
     c                   if        ic.return_value = -1
     c                   callp     fatal_error
     c                   endif
      *-----------------------
     Csr                 endsr