|
View previous topic :: View next topic
|
| Author |
Message |
sriramd
New User
Joined: 02 Nov 2006
Posts: 10
|
|
|
|
Hi,
I have a file which has a header and some detail records. Length of the file is 80 bytes.
Header
cccc
aaaa
dddd
bbbb
I want to have my output file like:
Header
aaaa
bbbb
cccc
dddd
I dont want to add a step wherein I can split the file and then sort and merge them back.
TIA... |
|
| Back to top |
|
 |
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
You can use a DFSORT job like the following to do what you asked for. I assumed your input file has RECFM=FB and LRECL=80 but the job can be changed appropriately for other attributes.
| Code: |
//S1 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
Header
cccc
aaaa
dddd
bbbb
/*
//SORTOUT DD DSN=... output file
//SYSIN DD *
* Put special key of '1' in 81 for data records.
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:C'1')),
* For header record, put special key of '0' in 81.
IFTHEN=(WHEN=(1,6,CH,EQ,C'Header'),OVERLAY=(81:C'0'))
* Sort by special key ('0' or '1') and then regular key.
SORT FIELDS=(81,1,CH,A,1,4,CH,A)
* Remove special key.
OUTREC FIELDS=(1,80)
/*
|
For more information, see the "Sort records between a header and trailer" Smart DFSORT Trick at:
www.ibm.com/servers/storage/support/software/sort/mvs/tricks/ |
|
| Back to top |
|
|
sriramd
New User
Joined: 02 Nov 2006
Posts: 10
|
|
|
|
| Thanks a lot.... |
|
| Back to top |
|
|
Frank Yaeger
DFSORT Developer
Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
|
|
|
|
With the new DATASORT operator of DFSORT's ICETOOL, available with z/OS DFSORT V1R5 PTF UK90013 (July, 2008), you can do this kind of thing quite easily like this:
| Code: |
//S1 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
Header
cccc
aaaa
dddd
bbbb
//OUT DD SYSOUT=*
//TOOLIN DD *
DATASORT FROM(IN) TO(OUT) HEADER USING(CTL1)
/*
//CTL1CNTL DD *
SORT FIELDS=(1,4,CH,A)
/*
|
For complete details on the new DATASORT function and the other new functions available with PTF UK90013, see:
www.ibm.com/systems/support/storage/software/sort/mvs/ugpf/ |
|
| Back to top |
|
|
|
|
