MVSFORUMS.com

[sasubashri]

Hi,

I have a requirement wherein I have to replace ## in positions 98-99
with // if
1) positons 98-99 have a ## and
2) positions 1-3 have 4RB or 001

else the original value should be retained.

Can we do this in a single control statement ?
Can any one tell me how to do this.
_________________
Thanks,
Subashri.

[kolusu]

Subasri,

It would be helpful if you supplied more info like LRECL , RECFM and sample of input data and desired output.

Any way I am assuming that your input file is having LRECL of 100 and is of FB recfm.

The following JCL will give you desired results.

[ofer71]

Here is a rexx solution:

[Unspec]

Kolusu,

Strangely enough, I checked this board today because I have a very similar requirement to the one described by sasubashri.

This is how I understood sasubashri's problem in pseudo-code:-

Change (98,2) to '//' if
((98,2) EQUALS '##') AND ((1,3) EQUALS '001' OR (1,3) EQUALS '4RB')

I think that your solution will change (98,2) without any regard to its original value. I doubt whether there is a SORT solution to the problem as I understood it but, if there is, I'd be very grateful.

Sorry if I've completely misunderstood the original problem, by the way.

[Frank Yaeger]

Subashri said

[kolusu]

Frank,

Thanks for pointing out the error. I guess I have interpreted the question wrong. I assumed that pos 98-99 will always have ## for the records whose first 3 bytes is 001 or 4RB. I apologize for the bad assumption

Thanks

Kolusu
_________________
Kolusu
www.linkedin.com/in/kolusu

[Dibakar]

Nice post, I am getting fascinated by powers of sort.

[sasubashri]

Hi All,

Thanks a lot for your time.

The solution works fine for me.

Thanks,
Subashri.
_________________
Thanks,
Subashri.