Changing characters in PDS members
Posted: Mon Apr 02, 2018 2:17 pm
I wrote the below rexx edit macro to change some characters in my pds members (have almost 300+ jobs in it).
But when trying to run it, at time of the execution the macro is taking me to all the pds members, how can I bypass this?
If I remove the FIND and IF statement then it wouldn't take me to all the members but on the same side I don't want all my members (ones without the character I'm searching for as well) modified date and time changed.
Any help or reference would be much appreciated.
But when trying to run it, at time of the execution the macro is taking me to all the pds members, how can I bypass this?
/*REXX*/
ADDRESS ISREDIT
EMPTY=" "
"MACRO"
"F 'jobname1'"
IF RC > 0 THEN EXIT
"C 'jobname1' 'jobname2' ALL"
"SAVE"
"END"
EXIT
ADDRESS ISREDIT
EMPTY=" "
"MACRO"
"F 'jobname1'"
IF RC > 0 THEN EXIT
"C 'jobname1' 'jobname2' ALL"
"SAVE"
"END"
EXIT
If I remove the FIND and IF statement then it wouldn't take me to all the members but on the same side I don't want all my members (ones without the character I'm searching for as well) modified date and time changed.
Any help or reference would be much appreciated.