Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Replace a part of text in a record

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
Author Message
h4hemanth

New User


Joined: 27 Jun 2008
Posts: 2
Location: chennai

PostPosted: Fri Jul 04, 2008 9:47 am    Post subject: Replace a part of text in a record
Reply with quote

Hi all,

Here is my requirement- i need to replace a part of text in a record of an PS file. Can anyone please help me in doing that in JCL or REXX. please provide a relavent code if available

i.e., my record is AE425635656734JHNEHJHDRLJF and that coloured number need to be replaced by some other text like 0LDHE24

Thanks,
Hemanth
Back to top
View user's profile Send private message
References
gcicchet

Senior Member


Joined: 28 Jul 2006
Posts: 663

PostPosted: Fri Jul 04, 2008 10:10 am    Post subject:
Reply with quote

Hi Hemanth,

there are may examples in the forum. there are many utilities you can use.

Here is an example


Code:
//S1       EXEC PGM=ICEMAN                           
//SYSOUT   DD SYSOUT=*                               
//SORTIN   DD *                                       
AE425635656734JHNEHJHDRLJF                           
//SORTOUT  DD SYSOUT=*                               
//SYSIN    DD    *                                   
  OPTION COPY                                         
  INREC IFTHEN=(WHEN=(5,7,CH,EQ,C'5635656'),         
  OVERLAY=(5:C'0LDHE24'))                             
/*                                                   


Gerry
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1