REXX script for replacing substring in some members of dataset

REXX script for replacing substring in some members of dataset

MASSREPL was created to replace substring with new one in some members of dataset on z/OS

Link to REXX script sources (MASSREPL)

Script configuration before execution

1. Replace dataset's members names MEMBER1,MEMBER2,.. with members you need:

• membersToProcess='MEMBER1 MEMBER2 MEMBER3 MEMBER4'

2. Put the script to your REXX-library

Execution:

Run JCL job with step:

//RUNSCRPT  EXEC PGM=IKJEFT01,DYNAMNBR=30,REGION=0M,         
//          PARM='MASSREPL USR01.USRHLQ.USRLIB HLQ1 HLQ2'
//SYSEXEC   DD   DSN=USR01.USRHLQ.REXX,DISP=SHR                  
//SYSTSPRT  DD   SYSOUT=*                                    
//SYSTSIN   DD   DUMMY                                       

• USR01.USRHLQ.USRLIB - dataset with members to be changed

• HLQ1 HLQ2 - substring HLQ1 to be replaced with substring HLQ2

Script source:

/* REXX */
trace off
parse arg parms
parms = translate(parms,' ',',')

/*parms = 'USR01.USRHLQ.USRLIB &HLQ1 &HLQ2'*/
parse var parms dataset oldString newString

/* Globals */
membersToProcess='MEMBER1 MEMBER2 MEMBER3 MEMBER4'
/* End of globals */

/**************/
/* Main loop  */
/**************/
say 'Start replacing substring 'oldString' by 'newString
say 'in members of library 'dataset
say
do i=1 to words(membersToProcess)
   member = word(membersToProcess,i)
   fullname = dataset'('member')'
   say 'Process member 'member
    call processFile fullname oldString newString
end
say 'Processing completed'

Return
/**************************/
/* Update member contents */
/**************************/
processFile:
  parse arg fileName oldSubstr newSubstr

  address TSO
  drop lines.
  "ALLOC F(UPDATEDD) DA('"fileName"') OLD"
  "EXECIO * DISKR UPDATEDD (STEM lines. FINIS"
  occ = 0
  do ix = 1 to lines.0
   parse var lines.ix strPrefix (oldSubstr) strSuffix
   if strSuffix <> ''
    then do
          lines.ix = strPrefix || newSubstr || strSuffix
          occ = occ + 1
         end
   else lines.ix = strPrefix
  end

  "EXECIO * DISKW UPDATEDD (STEM lines. FINIS"
  "FREE F(UPDATEDD)"
  say occ 'occurrences processed'

return