MVSFORUMS.com

mickeygoo · Beginner Joined: 15 Nov 2007 Posts: 26 Topics: 7

100-byte rec, 1st 20 bytes is a name (text) field. Need to replace "&" with "&" (XML), but shift only the text to the right of "&", and inside the 20 bytes, truncating if necessary; i.e., leave the rest of the record alone.

E.g.,

callanand · Beginner Joined: 12 Jun 2007 Posts: 23 Topics: 2

mickeygoo,

Use this

mickeygoo · Beginner Joined: 15 Nov 2007 Posts: 26 Topics: 7

thanks, callanand - or should I say "callan&" Mr. Green

- but we don't have file-aid in our shop.

anyways, i did a workaround - basically created a 2nd file with just the 20-byte name field, did the FINDREP there, then superimposed it back into the original file - but if a cleaner, more Idea

solution is available, I'm all ears.

Thank You

again

kolusu · Posted: Tue Jun 09, 2009 12:40 pm Post subject:

Mickeygoo,

Here is a DFSORT JCL which would give you the desired results.

Put the first 19 bytes at the end of the record and then use FINDREP function and overlay that back in pos 1

I assumed that your LRECL is FB 80 and the string to be replaced is in the first 19 bytes

mickeygoo · Beginner Joined: 15 Nov 2007 Posts: 26 Topics: 7

Outside-the-box thinking, I like it!!! Thank You