View previous topic :: View next topic
|
Author |
Message |
Madhu Reddy
New User
Joined: 28 Sep 2006 Posts: 56
|
|
|
|
Hi,
I have one file with one rec of rec length = 100 and i want to copy this rec to another file havig rec length= 101 and at the same time i have to place x in the 101 position.
Please let me know how to do this thru Sort or any other utility.
Thanks |
|
Back to top |
|
|
muthuvel
Active User
Joined: 29 Nov 2005 Posts: 217 Location: Canada
|
|
|
|
Use Outrec parameter in the sort card.you will get the desired results.
Code: |
SORT FIELDS=COPY
OUTREC FILEDS=(1:1,100,C'X') |
try this and let us know .i have not tested.the o/p file is of LREC 101. |
|
Back to top |
|
|
krisprems
Active Member
Joined: 27 Nov 2006 Posts: 649 Location: India
|
|
|
|
Madhu Reddy
try this
Code: |
SORT FIELDS=COPY
OUTREC BUILD=(1,100,101:C'X') |
|
|
Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005 Posts: 7129 Location: San Jose, CA
|
|
|
|
Madhu,
Here's a DFSORT job that will do what you asked for:
Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/100)
//SORTOUT DD DSN=... output file (FB/101)
//SYSIN DD *
OPTION COPY
INREC OVERLAY=(101:C'X')
/*
|
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:
Use [URL] BBCode for External Links |
|
Back to top |
|
|
|