MVSFORUMS.com

ace · Beginner Joined: 24 Feb 2004 Posts: 58 Topics: 23

I'm resubmitting this requirement. I have submitted this earlier to find whether this can be done using SORT. Now the requirement is slightly different but I would like to get a solution in Rexx.
I'm looking for a Rexx solution where I can search for a pattern of string in each record irrespective of the position.
I have used the following convention to describe the pattern.

X => Alphabets (A-Z)
9 => Number (0-9)
(SPACE) => Space

semigeezer · Posted: Sat Sep 09, 2006 10:22 am Post subject:

A common way to do this in Rexx is something like this (not actual code):

ace · Beginner Joined: 24 Feb 2004 Posts: 58 Topics: 23

Thank you very much semigeezer,

The solutions working great. I never expected this can be done with a few lines of code like this.

I have a small addition to the requirement. I'm really new to Rexx, forgive me if it's really simple.

Instead of 9(numeric data 0-9), sometimes I will have O (Letter O). This is actually a data error, instead of Zero(0) they entered letter O.
Could you please tell me how can I handle this situation too.
_________________
Thank You
-Ace

ace · Beginner Joined: 24 Feb 2004 Posts: 58 Topics: 23

Also while displaying the report, instead of showing the pattern, is it possible to show the actual data.

Current Report

semigeezer · Posted: Sat Sep 09, 2006 3:44 pm Post subject:

I'd have to think about the first one a bit, but the 2nd is pretty easy. In my example it would just be using a separate variable for the translated line and passing both the translated line and the original one into the 'look' routine, then printing from the original one instead.

For the 1st requirement (typos), This is much harder. This would be easy using the regular expressions I mentioned in the other post because with regular expressions you can specify multiple characters for a single position to match, but in Rexx you might have to use multiple patterns. You may have to actually do the character comparisons yourself character by character.

(just a side note, Object Rexx, not part of MVS, but available on other platforms like Windows and Unix, has evaluation of regular expressions built in)