Replacing certain position values in a file using JCL

In this Mainframe Forum - You can post your queries on JCL, OS/390 JCL, MVS JCL, z/OS JCL, JES2 & JES3

Moderators: Frank Yaeger, DikDude, Moderator Group

Post Reply
perumalnk
Member
Posts: 24
Joined: Thu Feb 28, 2008 3:30 am
Location: Denver,USA

Replacing certain position values in a file using JCL

Post by perumalnk » Mon Mar 30, 2009 6:48 pm

Hi,

I would like to replace certain position with a particular value for all the records in a file. For example, I need to replace the value 'XX' which is present in postion 1:2, with the value '20' for all records in my input file. How could I do that using a JCL?

Thanks,
Perumal.N.K.

User avatar
Frank Yaeger
Moderator
Posts: 812
Joined: Sat Feb 18, 2006 5:45 am
Location: San Jose, CA
Contact:

Post by Frank Yaeger » Mon Mar 30, 2009 8:12 pm

If you want to replace 'XX' in positions 1-2 with '20' and leave records without 'XX" as is, you can use a DFSORT job like the following:

Code: Select all

//S1    EXEC  PGM=SORT                                         
//SYSOUT    DD  SYSOUT=*                                       
//SORTIN DD *                                                  
XX RECORD 01                                                   
YY RECORD 02                                                   
XX RECORD 03                                                   
ZZ RECORD 04                                                   
//SORTOUT DD SYSOUT=*                                          
//SYSIN    DD    *                                             
  OPTION COPY                                                  
  INREC IFTHEN=(WHEN=(1,2,CH,EQ,C'XX'),OVERLAY=(1:C'20'))      
/*
SORTOUT would have:

Code: Select all

20 RECORD 01   
YY RECORD 02   
20 RECORD 03   
ZZ RECORD 04   
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
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

perumalnk
Member
Posts: 24
Joined: Thu Feb 28, 2008 3:30 am
Location: Denver,USA

Post by perumalnk » Wed Apr 01, 2009 2:57 pm

Thanks a lot Frank !

Thanks,
Perumal.N.K.

Post Reply

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



Other References
Mainframe Tools and others