Joined: 18 Feb 2006
Location: San Jose, CA
| 0 votes |
| 0 salutes ||
|Posted: Wed Apr 19, 2006 9:33 pm Post subject:
|I think you're trying to keep record 1 (a header?) where it is and sort the rest of the records. If that's what you're trying to do, then you can use a DFSORT job like this to do it. I assumed your input file has RECM=FB and LRECL=80, but the job can be changed appropriately for other attributes.
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=... input file (FB/80)
//SORTOUT DD DSN=... output file (FB/80)
//SYSIN DD *
* Reformat record 1 to:
* Reformat records 2-n to:
* Sort on A (for record 1) or B (for record 2-n), and data.
* This will keep record 1 in place and sort the rest of
* the records.
* Remove A/B and seqnum
If that's not what you're trying to do, then please explain in more detail what it is you're trying to do.
Frank Yaeger - DFSORT Development Team (IBM) - email@example.com
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort