Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
smileseenu,
Use the following DFSORT JCL which will give you the desired results
Code: |
//STEP0100 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD *
HEADER - 15/02/2013
ABC 101 250
BCD 101 350
XQW 201 450
REW 201 550
TRAILER-00004
//SORTOUT DD SYSOUT=*
//SYSIN DD *
INCLUDE COND=(5,3,CH,EQ,C'101',OR,
1,7,SS,EQ,C'TRAILER,HEADER ')
OPTION COPY
OUTFIL IFTRAIL=(HD=YES,TRLID=(1,7,CH,EQ,C'TRAILER'),
TRLUPD=(09:COUNT=(M11,LENGTH=5)))
//* |
For complete details on IFTRAIL and other new functions for DFSORT and DFSORT's ICETOOL available with the Oct, 2010 PTF, see:
http://www.ibm.com/support/docview.wss?rs=114&uid=isg3T7000242 |
|