|
View previous topic :: View next topic
|
| Author |
Message |
Nagendran
New User
Joined: 24 Jan 2007
Posts: 89
Location: USA
|
|
|
|
I want to change a string in a file.
EG:
AAAAAA N
BBBBBB N
CCCCC N
AAAAAA N
CCCCC N
Here i need to change all 'AAAAAA' to 'CCCCCC'.
Regards,
Nagu. |
|
| Back to top |
|
 |
William Thompson
Global Moderator
Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ
|
|
|
|
Search your sort manual or the forum, it is easy and simple.
Let us know if you can't find how to do it. |
|
| Back to top |
|
|
murmohk1
Senior Member
.jpg)
Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India
|
|
|
|
Nagu,
Required DFSORT JCL -
| Code: |
//SOMESTEP EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//*
//SORTIN DD *
AAAAAAA
CCCCCCC
BBBBBBB
AAAAAAA
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
INREC IFTHEN=(WHEN=(1,6,CH,EQ,C'AAAAAA'),
OVERLAY=(1:C'CCCCCC'))
/* |
Output:
| Code: |
CCCCCCA
CCCCCCC
BBBBBBB
CCCCCCA |
|
|
| Back to top |
|
|
ParagChouguley
Active User
.jpg)
Joined: 03 Feb 2007
Posts: 175
Location: PUNE(INDIA)
|
|
|
|
Nagendran,
You can do this with DFSORT.
| Code: |
//STEP1 EXEC PGM=SORT
//SORTIN DD *
AAAAAA N
BBBBBB N
CCCCCC N
AAAAAA N
CCCCCC N
/*
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTREC OVERLAY=(1,6,CHANGE=(6,C'AAAAAA',C'CCCCCC'),
NOMATCH=(1,6))
/*
|
--Parag |
|
| Back to top |
|
|
Nagendran
New User
Joined: 24 Jan 2007
Posts: 89
Location: USA
|
|
|
|
Hi,
Thanks for ur response.
If i use first approach i am getting unidentified IFTHEN statement.
If i use second approach i am getting unidentified OVERLAY statement.
Regards,
Nagu |
|
| Back to top |
|
|
murmohk1
Senior Member
Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India
|
|
|
|
Nagu,
If you need any assistance from us, please post the spool messages. By the way, does your shop support DFSORT? |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
Nagu,
You need z/OS DFSORT V1R5 PTF UQ95214 or DFSORT R14 PTF UQ95213 in order to use DFSORT's IFTHEN and OVERLAY functions. These PTFs have been available since Dec, 2004. |
|
| Back to top |
|
|
|
|
