Re: XLATE

Hi Chris,

Looks like XLATE is not setting the length of RawMicr. The manual does say
the result field has to be the same length as factor 2, or larger, but I
always figured that applied to fixed-length fields.

Try
     c     ctoadl:cTOAD  XLATE     RawMicrIn     RawMicr
     c                   EVAL      %len(RawMicr) = %len(RawMicrIn)

just to see if that's the problem.

HTH,
Peter Dow
Dow Software Services, Inc.
909 425-0194 voice
909 425-0196 fax


----- Original Message -----
From: "Chris Bipes" <chris.bipes@cross-check.com>
To: "RPG400 Help (E-mail)" <RPG400-L@midrange.com>
Sent: Friday, January 05, 2001 1:24 PM
Subject: XLATE


> Has any one had problems using XLATE?
>
> d pRawMicrParse   pi            10i 0
> d  RawMicrIn                    80a   const varying
>
> d RawMicr         s             80a   inz  varying
>
> d cTOAD           c                   const('TOAD 0123456789')
> d ctoadl          c                   const('toad 0123456789')
>
> c     ctoadl:cTOAD  XLATE     RawMicrIn     RawMicr
>
> RawMicrIn = 't123456789t 1234 456789o    a123456a'
> RawMicr = '' after the XLATE.
>
> but:
> c                   EVAL      RawMicr = RawMicrIn
> c     ctoadl:cTOAD  XLATE     RawMicr       RawMicr
> returns:
> RawMicrIn = 'T123456789T 1234 456789O    A123456A'
>
> What Gives?
>
>
> Christopher K. Bipes mailto:Chris.Bipes@Cross-Check.com
> Sr. Programmer/Analyst mailto:Chris_Bipes@Yahoo.com
> CrossCheck, Inc. http://www.cross-check.com
> 6119 State Farm Drive Phone: 707 586-0551 x 1102
> Rohnert Park CA  94928 Fax: 707 586-1884
>
>
>

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---