PGM=ICET00L

ICETOOL: 大小写转换

TRAN=UTOL ： uppercase to lowercase
TRAN=LTOU ： lowercase to uppercase
例子：

//CTL1CNTL DD *                                           
  INREC IFTHEN=(WHEN=INIT,OVERLAY=(1:1,3,TRAN=LTOU)),   ：对input的进来处理的每一条数据的前3位先转为大写再说
              IFTHEN=(WHEN=(...),BUILD=(...)), 
              IFTHEN=(WHEN=(...),BUILD=(...))
more ...

ICETOOL：数据类型转换

//STEP001 EXEC PGM=ICETOOL,REGION=4096K,COND=(0,NE)           
//TOOLMSG  DD SYSOUT=*                                        
//DFSMSG   DD SYSOUT=*                                        
//SYSOUT   DD SYSOUT=*                                        
//SYSPRINT DD SYSOUT=*                                        
//IN                DD DSN=MYINPUT,DISP=SHR                           
//OUT           DD DSN=OUTFILE,DISP=SHR                             
//TOOLIN    DD *                                                
  COPY FROM(IN) TO(OUT)     USING(CTL1)                       
/*                                                            
//CTL1CNTL DD *                                               
  OUTFIL FNAMES=OUT,    ：MYINPUT的第 ...
more ...

ICETOOL: 多文件输出

取一个文件MYINPUT中的有用字段，组装成多个不同LRECL的输出文件。这个也是项目中用到的，我再这里简化了好多！

//STEP001 EXEC PGM=ICETOOL,REGION=4096K,COND=(0,NE)         
//TOOLMSG  DD SYSOUT=*                                      
//DFSMSG   DD SYSOUT=*                                      
//SYSOUT   DD SYSOUT=*                                      
//SYSPRINT DD SYSOUT=*                                      
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(30,3),RLSE)            
//IN      DD DSN=MYINPUT,DISP=SHR :LRECL=05                 
//OUT1    DD DSN ...
more ...