Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
kalai.s,
If your input file has RECFM=FB and LRECL=n, you can use this DFSORT job where m=n-6 (e.g. for LRECL=80, m=76):
| Code: |
//FB EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file
//SORTOUT DD DSN=... output file
//SYSIN DD *
OPTION COPY
INREC BUILD=(7,m)
/*
|
If your input file has RECFM=VB, you can use this DFSORT job:
| Code: |
//VB EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file
//SORTOUT DD DSN=... output file
//SYSIN DD *
OPTION COPY
INREC BUILD=(1,4,5:11)
/*
|
Note that for a VB file, the 4-byte RDW is in positions 1-4 and the first data byte starts at position 5, so the seventh data byte starts at position 11.
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 |
|
