MVSFORUMS.com

[vijay]

Hi,
I need a rexx function with identifying all substrings in the string that start with %HLQS and end with a ',' ' ' '+' or ')'

Examples:
STR1="AFTER ( %HLQS.A.B.1,%HLQS.A.B.2,%HLQS.A.B.3 +

output would be : %HLQS.A.B.1 %HLQS.A.B.2 %HLQS.A.B.3

STR2=" %HLQS.A.B.4,%HLQS.A.B.5,%HLQS.A.B.6 +
output would be : %HLQS.A.B.4 %HLQS.A.B.5 %HLQS.A.B.6


STR3=" %HLQS.A.B.7,%HLQS.A.B.8,%HLQS.A.B.9.0)
output would be : %HLQS.A.B.7 %HLQS.A.B.8 %HLQS.A.B.9.0


Thanks,
vijay

[papadi]

And you posted this in multiple forums because. . .

If we see this again, your posts will be deleted from the other forum(s).

[vijay]

sorry,I did not know the rules.Do you have any suggestion/solution to this problem ?

[vijay]

Hi , I managed to do this using translate and POS.
Thanks

[papadi]

Answers were given in the other forum. . .

[vicente]

s1=TRANSLATE(str1,' ',',')
s2 = TRANSLATE(s1,' ',')')
s3 = TRANSLATE(s2,' ','+')

[semigeezer]

The translate option shown does not answer the question. It doesn't check for the qualifications of the beginning or end characters. Presumably this is being written to do substitution. A better solution is a parse loop starting pulling out strings starting with % and ending with <whatever character> or better yet either a loop of either parse or pos() followed by a verify() & substr(). I'd guess it is 8-10 lines of code. lots of ways to do it though. It depends on how generalized you want to make it. I definitely would not assume the delimiters will never change or that the format will never change.
_________________
New members are encouraged to read the How To Ask Questions The Smart Way FAQ at http://www.catb.org/~esr/faqs/smart-questions.html.