| IBM MAINFRAME HELP FORUMS for COBOL, JCL, CICS, DB2, IMS etc...
Help & Support Forums for IBM Mainframe computers Applications like COBOL, JCL, CICS, DB2, FileAid, DFSORT, Endevor, Xpediter, CoolGen, CA-7, CA-11, AbendAid, IMS, IDMS, PL/I, MqSeries, SyncSort, Assembler, VSAM, ISPF, ChangeMan, Easytrieve, InterTest, REXX, CLIST etc...
|
| 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: 578
|
| 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 |
|
| |
THIS IS AN ARCIVE FORUM IN READ ONLY MODE. IF YOU WANT TO ASK YOUR DOUBTS USE THE ACTUAL FORUM
|