Friday, October 22, 2010

SORT- Find Rep 2

//STEP003  EXEC  PGM=ICEMAN                                        
//SYSOUT    DD  SYSOUT=*                                           
//SORTIN    DD DSN=U123557.PA.D100610.VOL0010.HTML.BK,DISP=SHR     
//SORTOUT   DD DISP=SHR,DSN=U123557.PA.D100610.VOL0010.HTML.BK     
//SYSIN     DD    *                                                
  OPTION COPY                                                      
    INREC FINDREP=(IN=C'htm",OUT=C'tes'')                     
/*                                                                                                                                                            

No comments:

Post a Comment