IBM Mainframe Forum

Hi,
I have FB file whose LRECL=80.
The file has 4 fields a type, key, a name and a zip code.
type - 1 to 10
key - 11 to 30
name - 31 to 65
zip - 66 to 70
rest is spaces


I have to search the key field and find the first numeric character and change 2 bytes after that to a '0'
The above change should not be applied to the type value '100002'

If the input file looks:


O/p would be


We have SYNCSORT FOR Z/OS 1.4.0

I was going in the direction of using PARSE and ENDAT combination. But ENDAT did not recognize NUM

Has anyone come across similar stuff.
Please help

thanks
Aka