This is my JCL:
//MESORT03 JOB 4320,A-0055,CLASS=A,MSGCLASS=X,NOTIFY=&SYSUID
//STEP0100 EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD *
ACCO 0100003580
ACCO 0100003581
MONT 9926
ACCO 0100003582
MONT 9926
ACCO 0100003583
ACCO 0100003584
ACCO 0100003586
MONT 9926
ACCO 0100003587
MONT 9926
//OUT DD SYSOUT=*
//TOOLIN DD *
SELECT FROM(IN) TO(OUT) ON(81,8,CH) ALLDUPS USING(CTL1)
//CTL1CNTL DD *
OPTION COPY
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:SEQNUM,8,ZD)),
IFTHEN=(WHEN=(1,9,CH,EQ,C'MONT 9926'),
OVERLAY=(81:81,8,ZD,SUB,+1,M11,LENGTH=8))
OUTFIL BUILD=(1,80)
//*
And the following lines shows the DFSMSG STEP0100:
ICE146I 0 END OF STATEMENTS FROM CTL1CNTL - PARAMETER LIST STATEMENTS FOLLOW
DEBUG NOABEND,ESTAE
OPTION MSGDDN=DFSMSG,LIST,MSGPRT=ALL,RESINV=0,SORTDD=CTL1,SORTIN=IN,SOR* TOUT=OUT,DYNALLOC,SZERO,EQUALS,NOVLSHRT,LOCALE=NONE,NOCH* ECK
SORT FIELDS=(81,8,CH,A)
MODS E35=(ICE35DU,12288)
ICE056A 9 CTL1OUT NOT DEFINED
ICE751I 0 C5-Q95214 C6-Q95214 C7-BASE C8-Q95214 E7-Q95214
ICE052I 3 END OF DFSORT
Thanks a lot.