RE: Checking for field with Garbage Value in RPG.

I wrote an article on this last year, its available at no-charge at:
http://www.mcpressonline.com/mc?1@xxxxxxxxxxxxxxxx@.6ae9a226

The basic idea is to first create a list of the garbage values.
You do that by doing first xlating the good characters to blanks into a
field called GARBAGE.
Then you use the GARBAGE field to xlate the garbage to blanks.
The MYCHAR field in the following example would contain a list of all the
good characters

Pseudo code would be:
  MyChar:' '  XLate   MyField   Garbage

Then:
  Garbage:' ' xLate   MyField   MyField



-Bob Cozzi
www.RPGxTools.com
If everything is under control, you are going too slow.
- Mario Andretti


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Gauri Kulkarni
Sent: Wednesday, August 17, 2005 4:27 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Checking for field with Garbage Value in RPG.

XLATE might work in case if I know what exactly the <garbage> is. So that
BLANKS can be replaced with those invalid characters.
Is there any way to define garbage as well ?
Please let me know ..


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of
Peter.Colpaert@xxxxxxxxxx
Sent: Friday, August 12, 2005 6:11 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Checking for field with Garbage Value in RPG.


Gauri,

I believe the %xlate(<garbage>:<blanks>:field) built-in function would do
what you need.

HTH,

Peter Colpaert
Application Developer
Massive - Kontich, Belgium
-----
Yoda of Borg are we.  Futile is resistance, assimilated will you be.
-----




"Gauri Kulkarni" <gauri.kulkarni@xxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
12/08/2005 14:28
Please respond to RPG programming on the AS400 / iSeries


        To:     "'RPG programming on the AS400 / iSeries'"
<rpg400-l@xxxxxxxxxxxx>
        cc:
        Subject:        Checking for field with Garbage Value in RPG.


Hi,

I am reading a physical file in my RPG program. One of the character
fields
in file contains a garbage value. The program reads the input file and
writes into some output file.
I didn't find any OPCODE as such in RPG which will be helpful to detect
the
garbage value in a field so that data after that character can be
truncated
to populate the output file with good data.
Does anybody know how can I check whether the field contains garbage and
at
what position ?
( For e.g. .. If the field has value 'ABCHFGSYGJ^&%&&' , I want to check
that it has a garbage value and from position 11 in this example. So that
i
can truncate the data after position 10 to get the good data).


Thanks,
Gauri Kulkarni.



http://www.patni.com
World-Wide Partnerships. World-Class Solutions.
_____________________________________________________________________

This e-mail message may contain proprietary, confidential or legally
privileged information for the sole use of the person or entity to
whom this message was originally addressed. Any review, e-transmission
dissemination or other use of or taking of any action in reliance upon
this information by persons or entities other than the intended
recipient is prohibited. If you have received this e-mail in error
kindly delete  this e-mail from your records. If it appears that this
mail has been forwarded to you without proper authority, please notify
us immediately at netadmin@xxxxxxxxx and delete this mail.
_____________________________________________________________________
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



http://www.patni.com
World-Wide Partnerships. World-Class Solutions.
_____________________________________________________________________

This e-mail message may contain proprietary, confidential or legally
privileged information for the sole use of the person or entity to
whom this message was originally addressed. Any review, e-transmission
dissemination or other use of or taking of any action in reliance upon
this information by persons or entities other than the intended
recipient is prohibited. If you have received this e-mail in error
kindly delete  this e-mail from your records. If it appears that this
mail has been forwarded to you without proper authority, please notify
us immediately at netadmin@xxxxxxxxx and delete this mail. 
_____________________________________________________________________