ICETOOL - to copy only first occurence of the record from one or many input files to output file

//PARMTMP1 EXEC  PGM=PARMIN,                                     
//             PARM='SELECT FROM(IN) TO(OUT) ON(1,15,CH) FIRST'  
//SYSIN    DD  DSN=&&CTL01,                                      
//             DISP=(,PASS),                                     
//             UNIT=SYSDA,                                       
//             SPACE=(80,3)                                      
//*                                                              
//STEP020  EXEC PGM=ICETOOL                       
//DFSMSG   DD  SYSOUT=*                           
//TOOLMSG  DD  SYSOUT=*                           
//IN       DD  DSN=&&TEMP1,                       
//             DISP=(OLD,DELETE)                  
//OUT      DD  DSN=&&TEMP2,                       
//             DISP=(,PASS),                      
//             UNIT=SYSDA,                        
//             SPACE=(CYL,(1,1),RLSE),            
//             DCB=(RECFM=FB,LRECL=290)           
//TOOLIN   DD  DSN=&&CTL01,                       
//             DISP=(OLD,PASS)                    


This copies first occurence of records from input to output based on the data in position 1 to 15 characters.


Ex:
I/P
1111aaaa
1111bbbb
2222cccc
2222aaaa
4444ssss
3333dddd
3333bbbb
5555dddd


O/P
1111aaaa
2222cccc
4444ssss
3333bbbb
5555dddd