PGM=ICET00L

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的第1至8位为日期，格式为：20120101；第9位开始的21位为数值，格式为：+00000000000012.12345                                     
  BUILD=(1,8,ZD,TO=PDC,LENGTH=5,9,18,SFF,TO=PDC,LENGTH=11)    (这里输出只要保留2位小数，所以长度为18，否则为21)
/*

这个sort做的事情是把zoned decimal(ZD)类型的数据转化为packed decimal(PD)类型；将SFF(signed free form)类型的转为PDC类型。 举个例子：

转换之前： ZD的数据：'20120101'         
SFF的数据：'-00000000006501.00000'

转换之后的 PD/PDC数据用'HEX'查看显示为：
0021100000000510
2100C0000000600D

Comments !