how to replace some portion of record wit something
Moderators: Frank Yaeger, Moderator Group
how to replace some portion of record wit something
Hi All
I need help in sorting.
i have a file with header n records.
these are the records:
48BCG716SRAPINV
90ET6BTGSRAPINV
06BCC732SRAPINV
and i need to replace character from position 4 to postion 8 to AAA11, in all the records.
Urgent
Thanks
Anu
I need help in sorting.
i have a file with header n records.
these are the records:
48BCG716SRAPINV
90ET6BTGSRAPINV
06BCC732SRAPINV
and i need to replace character from position 4 to postion 8 to AAA11, in all the records.
Urgent
Thanks
Anu
- Frank Yaeger
- Moderator
- Posts: 812
- Joined: Sat Feb 18, 2006 5:45 am
- Location: San Jose, CA
- Contact:
You can use a DFSORT job like the following to do what you asked for:
If you're not familiar with DFSORT and DFSORT's ICETOOL, I'd suggest reading through "z/OS DFSORT: Getting Started". It's an excellent tutorial, with lots of examples, that will show you how to use DFSORT, DFSORT's ICETOOL and DFSORT Symbols. You can access it online, along with all of the other DFSORT books, from:
www.ibm.com/servers/storage/support/sof ... tmpub.html
Code: Select all
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
48BCG716SRAPINV
90ET6BTGSRAPINV
06BCC732SRAPINV
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(4:C'AAA11')
/*
www.ibm.com/servers/storage/support/sof ... tmpub.html
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
- Frank Yaeger
- Moderator
- Posts: 812
- Joined: Sat Feb 18, 2006 5:45 am
- Location: San Jose, CA
- Contact:
That depends on what the "header" is. Can the header be identified in some way (e.g. '48' in positions 1-2) or can it only be identified as the first record? Is the header shown in your input example? If so, which record is it? If not, show a better example with the header.
Also, what is the RECFM and LRECL of your input file?
Also, what is the RECFM and LRECL of your input file?
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Hi
Yes the header is always the first record.
record lenght is 237
Block size: 27699
the header has alws F in first position.plus it is the first record also.
Along with this doubt, one more thing to ask.
48BCG716SRAPINV
90ET6BTGSRAPINV
06BCC732SRAPINV
is it possible to replace all BCG716 by DCB567
and ET6BTG by BSV345 in all the records present in file.
i mean not replacing all the chac by same thing but at same position replacing by diffrent codes.
Regards
Anu
Yes the header is always the first record.
record lenght is 237
Block size: 27699
the header has alws F in first position.plus it is the first record also.
Along with this doubt, one more thing to ask.
48BCG716SRAPINV
90ET6BTGSRAPINV
06BCC732SRAPINV
is it possible to replace all BCG716 by DCB567
and ET6BTG by BSV345 in all the records present in file.
i mean not replacing all the chac by same thing but at same position replacing by diffrent codes.
Regards
Anu
- Frank Yaeger
- Moderator
- Posts: 812
- Joined: Sat Feb 18, 2006 5:45 am
- Location: San Jose, CA
- Contact:
Assuming that the constants you want to replace are in positions 3-8, you can use a DFSORT job like the following to do what you asked for:
Code: Select all
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
FHEADER
48BCG716SRAPINV
90ET6BTGSRAPINV
06BCC732SRAPINV
/*
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
INREC IFTHEN=(WHEN=(1,1,CH,NE,C'F'),
OVERLAY=(3:3,6,CHANGE=(6,C'BCG716',C'DCB567',
C'ET6BTG',C'BSV345'),NOMATCH=(3,6)))
/*
Frank Yaeger - DFSORT Development Team (IBM) - yaeger@us.ibm.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort
FREE TUTORIALS
Tutorials
Free tutorials from mainframegurukul
- JCL Tutorial
Covers all important JCL concepts. - Cobol Tutorial
This tutorials covers all Cobol Topics from STRING to COMP-3. - DB2 Tutorial
DB2 Tutorial focuses on DB2 COBOL Programming. - SORT Tutorial
This Tutorial covers all important aspects of DFSORT with examples - CICS Tutorial
This CICS tutorial covers CICS concepts and CICS Basics, CICS COBOL Programming.
Interview
Mainframe Interview questions
- Cobol Interview Questions
50+ Interview Questions - JCL Interview Questions
50+ Interview Questions - DB2 Interview Questions
100+ Interview Questions - CICS Interview Questions
70+ Interview Questions - VSAM Interview Questions
27 Interview Questions
Other References
Mainframe Tools and others
- XPEDITER Reference
Explains how we can debug a program - FILEAID Reference
Explains how to browse , edit and delete datasets - Change Man Reference
Quick Start tutorial on Changeman - Abend Reference
Important Abend codes explained - FaceBook Page
MainframeGurukul FaceBook Page - LinkedIn Page
MainframeGurkul Linkedin Page