IBM MAINFRAME HELP & SUPPORT FORUMS
Technical Forums for IBM Mainframe Applications like COBOL, JCL, CICS, DB2, FileAid, DFSORT, Endevor, Xpediter, CoolGen, CA-7&11, AbendAid, IMS, IDMS, PL/I, MqSeries, SyncSort, Assembler, ChangeMan, Easytrieve, InterTest, REXX, CLIST etc...
 

Replace a part of text in a record

THIS IS AN ARCHIVE FORUM: CLICK HERE TO GO TO THE ORIGINAL TOPIC

 
       IBMMAINFRAMES.com - IBM Mainframe Support Forums Index -> DFSORT/ICETOOL
View previous topic :: View next topic  
Author Message
h4hemanth



Joined: 27 Jun 2008
Posts: 2
Location: chennai
Posted: Fri Jul 04, 2008 9:47 am    Post subject: Replace a part of text in a record  
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  
gcicchet



Joined: 28 Jul 2006
Posts: 663
Posted: Fri Jul 04, 2008 10:10 am    Post subject:  
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  
 
       IBMMAINFRAMES.com - IBM Mainframe Support Forums Index -> DFSORT/ICETOOL
Page 1 of 1
THIS IS AN ARCIVE FORUM IN READ ONLY MODE. IF YOU WANT TO ASK YOUR DOUBTS USE THE ACTUAL FORUM