Low values to Spaces using SORT

 

Low values to Spaces using SORT
 
 
There may be situation where you wish to replace the low values hex ('00') in a file to spaces hex ('40'). The following JCL can come handy for 
such scenarios
 
Method 1: If position of low value char is not known and all such chars are to be
replaced by spaces
 
//STEP001  EXEC PGM=SORT                                     
//SYSOUT DD SYSOUT=*                                         
//SORTIN DD DSN=FILE.WITH.LOW.VALUES,
//         DISP=SHR                                          
//SORTOUT DD DSN=FILE.WITH.SPACES,
//         DISP=(NEW,CATLG,DELETE)                           
//SYSPRINT  DD SYSOUT=*                                      
//SYSIN    DD *                                              
 SORT FIELDS=COPY                                            
 ALTSEQ CODE=(0040)                                          
 OUTREC FIELDS=(1,80,TRAN=ALTSEQ)                            
/*                                                           
 
 
Method 2: If position of low value char is known and only that occurence needs to be changed
to spaces
 
 
The following sort job will change the hex of X'00' to X'40' at position 14th
 
//STEP001  EXEC PGM=SORT                                    
//SYSOUT DD SYSOUT=*                                        
//SORTIN DD DSN=KKDP.U8MBAF0A.V065.YPL.QSTM.QTRLY.G0024V,   
//         DISP=SHR                                         
//SORTOUT DD DSN=KKDP.U8MBAF0A.V065.YPL.QSTM.QTRLY.G0024VV, 
//         DISP=(NEW,CATLG,DELETE)                          
//SYSPRINT  DD SYSOUT=*                                     
//SYSIN    DD *                                             
 SORT FIELDS=COPY                                           
 OUTREC FIELDS=(1:1,13,14:14,1,CHANGE=(14,X'00',X'40'))     
/*                                                          
 

Comments

Method 1 not working for me.

Thanks,

Sumeet