Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
| Quote: |
| say there is a PS with LRECL of 120 and I want to delete columns from 1 to 20 |
Here's a DFSORT job to do that:
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/120)
//SORTOUT DD DSN=... output file (FB/100)
//SYSIN DD *
OPTION COPY
OUTREC BUILD=(21,100)
/*
|
| Quote: |
| or from columns 40 to 60. |
Here's a DFSORT job to do that:
| Code: |
//S2 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/120)
//SORTOUT DD DSN=... output file (FB/99)
//SYSIN DD *
OPTION COPY
OUTREC BUILD=(1,39,61,60)
/*
|
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 |
|
