Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Replacing a string using JCL

 
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics
View previous topic :: :: View next topic  
Author Message
Prathap Pillai P

New User


Joined: 08 Sep 2005
Posts: 16

PostPosted: Fri Oct 06, 2006 5:58 pm    Post subject: Replacing a string using JCL
Reply with quote

I have string say 'name' in a PDS .I want to replace that with a new string 'new name' using a JCL.
I have used PGM=ISRSUPC to find the string in the PDS.
Can you suggest any utility/JCL for the same
Back to top
View user's profile Send private message

Kevin

Active User


Joined: 25 Aug 2005
Posts: 234

PostPosted: Fri Oct 06, 2006 7:46 pm    Post subject: Re: Replacing a string using JCL
Reply with quote

Here is a sample job with three different options: IPOUPDTE, EDIT, and DFSORT:

Code:

//STEP0001 EXEC PGM=ICEGENER                                   
//SYSUT1   DD   *                                               
SOME DATA                                                       
         NAME                                                   
SOME MORE DATA                                                 
/*                                                             
//SYSUT2   DD   DSN=KEVIN.MYPDS(MEMBER1),DISP=(,CATLG,DELETE), 
//         UNIT=SYSDA,SPACE=(TRK,(1,1,1),RLSE)                 
//SYSPRINT DD   SYSOUT=*                                       
//SYSIN    DD   DUMMY                                           
//*                                                             
//STEP0002 EXEC PGM=IEBCOPY                                     
//PDSI     DD   DISP=SHR,DSN=SYS1.PARMLIB                       
//PDSO     DD   DSN=KEVIN.MYPDS,DISP=SHR                       
//SYSPRINT DD   SYSOUT=*                                       
//SYSIN    DD   *                                               
  COPY OUTDD=PDSO,INDD=PDSI                                     
  SELECT MEMBER=$$$COIBM                                       
/*                                                             
//*                                                             
//STEP0003 EXEC PGM=IPOUPDTE,PARM='UPDATE'                     
//STEPLIB  DD   DISP=SHR,DSN=IPOUPDTE.LINKLIB                   
//@LIB1    DD   DISP=SHR,DSN=KEVIN.MYPDS(MEMBER1)
//SYSPRINT DD   SYSOUT=*                         
//SYSIN    DD   *                                 
NAME<NEW NAME<                                   
/*                                               
//*                                               
//STEP0004 EXEC PGM=ICEGENER                     
//SYSUT1   DD   DISP=SHR,DSN=KEVIN.MYPDS(MEMBER1)
//SYSUT2   DD   SYSOUT=*                         
//SYSPRINT DD   SYSOUT=*                         
//SYSIN    DD   DUMMY                             
//*                                               
//STEP0005 EXEC PGM=IKJEFT01                     
//SYSTSPRT DD   SYSOUT=*                         
//SYSTSIN  DD   *                                 
EDIT 'KEVIN.MYPDS(MEMBER1)' TEXT NONUM           
TOP                                               
F 'NEW NAME'                                     
C * 'NEW NAME' 'NAME'                             
END SAVE                                         
/*                                               
//*                                               
//STEP0006 EXEC PGM=ICEGENER                                         
//SYSUT1   DD   DISP=SHR,DSN=KEVIN.MYPDS(MEMBER1)                     
//SYSUT2   DD   SYSOUT=*                                             
//SYSPRINT DD   SYSOUT=*                                             
//SYSIN    DD   DUMMY                                                 
//*                                                                   
//STEP0007 EXEC PGM=ICEMAN                                           
//SORTIN   DD   DISP=SHR,DSN=KEVIN.MYPDS(MEMBER1)                     
//SORTOUT  DD   DISP=SHR,DSN=KEVIN.MYPDS(MEMBER1)                     
//SYSOUT   DD   SYSOUT=*                                             
//SYSIN    DD   *                                                     
  OPTION COPY                                                         
  INREC IFTHEN=(WHEN=(10,4,CH,EQ,C'NAME'),OVERLAY=(10:C'NEW NAME'))   
/*                                                                   
//*                                                                   
//STEP0008 EXEC PGM=ICEGENER                                         
//SYSUT1   DD   DISP=SHR,DSN=KEVIN.MYPDS(MEMBER1)                     
//SYSUT2   DD   SYSOUT=*                                             
//SYSPRINT DD   SYSOUT=*                                             
//SYSIN    DD   DUMMY                                                 
//*                                                                   


The test output:

Code:

STEP0004:
SOME DATA                         
         NEW NAME                 
SOME MORE DATA                     

STEP0006:
SOME DATA                       
         NAME                   
SOME MORE DATA                 

STEP0008:
SOME DATA                   
         NEW NAME           
SOME MORE DATA             
Back to top
View user's profile Send private message
Prathap Pillai P

New User


Joined: 08 Sep 2005
Posts: 16

PostPosted: Sat Oct 07, 2006 10:00 am    Post subject: Re: Replacing a string using JCL
Reply with quote

thanks Kevin:-)))
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   This topic is locked: you cannot edit posts or make replies.    IBMMAINFRAMES.com Support Forums -> All Other Mainframe Topics All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Fileaid Update Replace with null string descann Compuware & Other Tools 4 Mon May 15, 2017 3:00 pm
No new posts Replacing same string with different ... vickey_dw DFSORT/ICETOOL 6 Wed Feb 22, 2017 10:44 pm
No new posts Count Trailing Spaces in variable str... Virendra Shambharkar SYNCSORT 10 Thu Feb 02, 2017 12:23 pm
This topic is locked: you cannot edit posts or make replies. Checking wether a string starts from ... sundaram.naveen CLIST & REXX 9 Thu Oct 06, 2016 11:56 am
No new posts Random Password (in string format) ge... ezhavendhan COBOL Programming 10 Mon Aug 29, 2016 3:18 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us