ICETOOL - Compare counts of two files and RETURN RC4 IF COUNTS ARE NOT EQUAL

//*-------------------------------------------------------------------*
//* COMPARE THE COUNTS OF FILE SENT TO DIALER AND RECEIVED FROM DIALER 
//* RETURN RC4 IF COUNTS ARE NOT EQUAL (SYNCSORT)                     
//*-------------------------------------------------------------------*                                                        
//STEP085  EXEC PGM=ICETOOL                                            
//DFSMSG   DD  SYSOUT=*                                                
//TOOLMSG  DD  SYSOUT=*                                                
//IN1      DD  DSN=&TYPE1.CCCN.CN2030WP.PREVWEEK.CTBL.BKUP(+1),        
//             DISP=SHR                                                
//IN2      DD  DSN=&TYPE1.CCCN.CN2030WP.CNSVDNLD.DATA(0),              
//             DISP=SHR                                                
//OUT      DD  DSN=&&T1,                                               
//             DISP=(MOD,DELETE),                                      
//             UNIT=SYSDA,                                             
//             SPACE=(CYL,(1,1),RLSE),                                 
//             DCB=(RECFM=FB,LRECL=9)                                  
//OUT1     DD  DSN=&&T2,                                               
//             DISP=(MOD,DELETE),                                      
//             UNIT=SYSDA,                                
//             SPACE=(CYL,(1,1),RLSE),                    
//             DCB=RECFM=FB                               
//TOOLIN   DD  DSN=TCCPU.DLPXV1.RDRLIB(CN233001),         
//             DISP=SHR                                   
//CTL1CNTL DD  DSN=TCCPU.DLPXV1.RDRLIB(CN233002),         
//             DISP=SHR                                   
------------------------
CN233001 -


COPY FROM(IN1) USING(CTL1)                      
COPY FROM(IN2) USING(CTL1)                      
SELECT FROM(OUT) TO(OUT1) ON(1,9,CH) NODUPS     
COUNT FROM(OUT1) NOTEMPTY RC4                   
------------------------
CN233002 -


OUTFIL FNAMES=OUT,NODETAIL,REMOVECC, 
 TRAILER1=(COUNT=(M11,LENGTH=9))     


OR


//*-------------------------------------------------------------------*
//* ELIMINATE THE DUPLICATES. DFSORT (NO LICENCE                       
//*-------------------------------------------------------------------*                                                        
//STEP020  EXEC PGM=ICETOOL                                            
//DFSMSG   DD  SYSOUT=*                                                
//TOOLMSG  DD  SYSOUT=*                                                
//IN1      DD  DSN=PCCCN.CN2030WP.CNSVDNLD.DATA(-1),                   
//             DISP=SHR                                                
//IN2      DD  DSN=PCCCN.CN2030WP.PREVWEEK.CTBL.BKUP(0),               
//             DISP=SHR                                                
//OUT      DD  DSN=&&T1,                                               
//             DISP=(MOD,PASS),                                        
//             UNIT=SYSDA,                                             
//             SPACE=(TRK,(1,1),RLSE)                                  
//*            DCB=(RECFM=FB,LRECL=80)                                 
//OUT1     DD  DSN=&&T2,                                               
//             DISP=(MOD,PASS),                                        
//             UNIT=SYSDA,                                             
//             SPACE=(TRK,(1,1),RLSE)                                  
//*                                                        
//TOOLIN   DD  DSN=TCCPU.DLPXV1.RDRLIB(CN200001),          
//             DISP=SHR                                    
//CTL1CNTL DD  DSN=TCCPU.DLPXV1.RDRLIB(CN200002),          
//             DISP=SHR                                    
//CTL2CNTL DD  DSN=TCCPU.DLPXV1.RDRLIB(CN200012),          
//             DISP=SHR                                    
//CTL3CNTL DD  DSN=TCCPU.DLPXV1.RDRLIB(CN200003),          
//             DISP=SHR                                    

TCCPU.DLPXV1.RDRLIB(CN200001):

COPY FROM(IN1) USING(CTL1)           
COPY FROM(IN2) USING(CTL2)           
COPY FROM(OUT) TO(OUT1) USING(CTL3)  

TCCPU.DLPXV1.RDRLIB(CN200002):

OUTFIL FNAMES=OUT,NODETAIL,REMOVECC, 
  TRAILER1=(1:COUNT=(TO=ZD,LENGTH=8))

TCCPU.DLPXV1.RDRLIB(CN200012):

OUTFIL FNAMES=OUT,NODETAIL,REMOVECC,           
  TRAILER1=(11:COUNT=(TO=ZD,LENGTH=8))    
     
TCCPU.DLPXV1.RDRLIB(CN200003):

INREC IFTHEN=(WHEN=GROUP,RECORDS=2,PUSH=(1:1,8)),                   
  IFTHEN=(WHEN=(11,8,CH,NE,C'       '),                             
    OVERLAY=(21:1,8,ZD,SUB,11,8,ZD,TO=ZD,LENGTH=8)                  
OUTFIL FNAMES=OUT1,NULLOFL=RC16,OMIT=(21,8,CH,EQ,C'       ',OR,     
 (21,8,CH,NE,C'       ',AND,21,8,ZD,GE,+10))