XLATE -- RPG400-L

× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.

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

application/ms-tnef

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.