IBM Mainframe Forum

//STEP0100 EXEC PGM=ICETOOL                                       
//TOOLMSG  DD SYSOUT=*                                             
//DFSMSG   DD SYSOUT=*                                             
//IN       DD *                                                   
KEKA                                                               
SUBBU                                                             
NARESH                                                             
NAVEEN                                                             
NAVEEN                                                             
SUBBU                                                             
SUBBU                                                             
SUBBU                                                             
JAFFA                                                             
NAVEEN                                                             
SUBBU                                                             
KATRINA                                                           
NARESH                                                             
NAVEEN                                                             
SUBBU                                                             
NARESH                                                             
NAVEEN                                                             
JAKIA                                                             
//OUT      DD SYSOUT=*                                             
//TOOLIN   DD *                                                   
  SELECT FROM(IN) TO(OUT) ON(81,16,CH) ALLDUPS USING(CTL1)         
//CTL1CNTL DD *                                                   
  SORT FIELDS=COPY                                                 
  INREC IFTHEN=(WHEN=GROUP,BEGIN=(1,5,CH,EQ,C'SUBBU'),             
     END=(1,6,CH,EQ,C'NAVEEN'),PUSH=(81:ID=8,SEQ=8)),             
  IFTHEN=(WHEN=(1,6,CH,EQ,C'NARESH'),                             
  OVERLAY=(89:+1,SUB,89,8,ZD,M11,LENGTH=8)),                       
  IFTHEN=(WHEN=(1,6,CH,EQ,C'NAVEEN'),                             
  OVERLAY=(89:+2,SUB,89,8,ZD,M11,LENGTH=8))                       
  OUTFIL BUILD=(1,80),                                             
  INCLUDE=(1,6,SS,EQ,C'SUBBU ,NAVEEN,NARESH',AND,89,8,ZD,EQ,1)     
//*