MVSFORUMS.com

[John Corbin]

Hi...

In REXX I need to test each character in a string and do some action based on the outcome of the test.

in english it would like this:

WHILE not end of string DO
IF string[I] = 'A'
perform some action
ELSE IF string[I] = 'B'
perform sone action
ELSE IF string[I] = 'C'
etc etc....

I=I+1
ENDWHILE

I am aware of the REXX functiosn INDEX and POS but I do not see how I can make these work they way I want.

Any thoughts ?

[ofer71]

Try this

[Manas Biswal]

Basically reinventing the wheel by Ofer71 but just to try another function, you can also try this -

[Maton_Man]

A sneakier way to do it without a massive SELECT statement would be:

var = "ACBDE"

do i = 1 to length(var)
interpret("call "left(var,1))
end

a:
whatever you do when you get 'A'
return

b:

return
whatever you do when you get 'B'
etc...
_________________
My opinions are exactly that.

[Maton_Man]

*argh!!!!*

Replace left(var,1) with substr(var,i,1) - got distracted...
_________________
My opinions are exactly that.