IBM Mainframe Forum

//STEP0100 EXEC PGM=ICETOOL                     
//TOOLMSG  DD SYSOUT=*                           
//DFSMSG   DD SYSOUT=*                           
//IN       DD *                                 
AAAA 1                                           
AAAA 1                                           
AAAA 2                                           
BBBB 2                                           
CCCC 3                                           
CCCC 3                                           
DDDD 5                                           
EEEE 1                                           
EEEE 1                                           
EEEE 1                                           
EEEE 1                                           
EEEE 1                                           
//OUT      DD SYSOUT=*                           
//TOOLIN   DD *                                 
  SELECT FROM(IN) TO(OUT) ON(1,4,CH) ALLDUPS     
//*