I tried to reply to Frank Yeager personally, but my e-mail was undeliverable.
I missed something. My code is: //TOOLIN DD * SORT FROM(IN) USING(CTL1) SORT FROM(T1) TO(OUT) USING(CTL2) /* //CTL1CNTL DD * SORT FIELDS=(10,09,CH,A) OUTFIL FNAMES=T1,REMOVECC,NODETAIL, SECTIONS=(10,09, TRAILER3=(11,09,X,COUNT=(M11,LENGTH=8))) /* //CTL2CNTL DD * SORT FIELDS=(22,8,ZD,D) OUTFIL FNAMES=OUT,ENDREC=1 /* My input file contains: ----+----1----+----2----+----3----+----4 **************************************** {T{,{W{,{000019553{,{93310{,{000{,{.{,{C {O{,{W{,{000019553{,{99999{,{000{,{.{,{P {T{,{1{,{000047613{,{10111{,{000{,{.{,{C {T{,{1{,{000047613{,{10115{,{000{,{.{,{C {T{,{1{,{000047613{,{11016{,{000{,{.{,{C {T{,{1{,{000047613{,{11036{,{000{,{.{,{C {T{,{1{,{000047613{,{11041{,{000{,{.{,{C {T{,{1{,{000047613{,{11042{,{000{,{.{,{C {N{,{1{,{000047613{,{11049{,{000{,{.{,{C And my output is: 00019553{ 00000002 (Obviously I need to adjust my position) The file is: General Data Current Allocation Management class . . : **None** Allocated cylinders : 277 Storage class . . . : **None** Allocated extents . : 5 Volume serial . . . : DBS991 Device type . . . . : 3390 Data class . . . . . : **None** Current Utilization Organization . . . : PS Used cylinders . . : 277 Record format . . . : FB Used extents . . . : 5 Record length . . . : 153 Block size . . . . : 27846 1st extent cylinders: 100 Secondary cylinders : 50 Data set name type : SMS Compressible : NO Creation date . . . : 2006/10/18 Referenced date . . : 2006/10/19 Expiration date . . : ***None*** ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html