PGM=ICET00L

ICEMAN：字符替换

用于替换dataset中出现的字符串:

//STEP001  EXEC  PGM=ICEMAN,REGION=4000K                    
//SORTIN  DD  DSN=MYINPUT,DISP=SHR                          
//SORTOUT DD  DSN=MYOUTPUT,DISP=SHR                         
//SYSIN  DD *                                               
  OPTION COPY                                               
  INREC FINDREP=(INOUT=(C'0000',C'AAAA',C'1111',C'BBBB'))   
//SYSOUT   DD  SYSOUT=*                                     
//SYSPRINT DD  SYSOUT=*                                     
//*

将出现的'0000'替换成'AAAA','1111'替换成‘BBBB‘ 当然，可以限定在特定几列替换： 

//STEP001  EXEC  PGM=ICEMAN,REGION=4000K                    
//SORTIN  DD  DSN=MYINPUT,DISP=SHR                          
//SORTOUT DD  DSN=MYOUTPUT,DISP=SHR                         
//SYSIN  DD *                                               
  OPTION COPY                                               
  INREC FINDREP=(INOUT=(C'0000',C'AAAA',C'1111',C'BBBB'),STARTPOS=1,ENDPOS=10)   
//SYSOUT   DD  SYSOUT=*                                     
//SYSPRINT DD  SYSOUT=*                                     
//*

限定只在前10位出现的'0000'和'1111'才做替换。

Comments !