Howard Brazee wrote on 10/19/2006 11:00:42 AM:
> I tried to reply to Frank Yeager personally, but my e-mail was
> undeliverable.
My e-mail id is [EMAIL PROTECTED] - perhaps you're spelling it YEAger
in the e-mail address as you did above, rather than YAEger?
> (Obviously I need to adjust my position)
I believe you need the following:
...
//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=(10,09,X,COUNT=(M11,LENGTH=8)))
//CTL2CNTL DD *
SORT FIELDS=(11,8,ZD,D)
OUTFIL FNAMES=OUT,ENDREC=1
When I use that with your input records, I get the following in OUT:
000047613 00000007
Frank Yaeger - DFSORT Team (IBM)
Specialties: PARSE, JFY, SQZ, ICETOOL, IFTHEN, OVERLAY, Symbols, Migration
=> DFSORT/MVS is on the Web at http://www.ibm.com/storage/dfsort/
----------------------------------------------------------------------
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
