Use option 25 against the file in PDM. This gives you the find string
screen. You can set the option in this screen to 2 to bring up any matched
source in edit mode. I cant remember, but I think that if you set up your
replace options before using this, you can just do replace once the source
is displayed.
You can sbmjob the following command:
FNDSTRPDM STRING(TAP03) FILE(Your_source_lib/QCLSRC)
MBR(*ALL) OPTION(*NONE)PRTMBRLIST(*YES)
And before doing this, create a data area to store the device name in.
Then when you locate every occurrence in every CL, change the CLs to get
the device from the data area rather than hard-coding it into the
programs. Next time you have to change the device name, just change the
data area.
