Tuesday, February 1, 2011

Synctool - find the counts of two different files and abend the job if there is difference b/w two counts

//*-------------------------------------------------------------------*
//* FIND THE COUNTS OF FILE SENT TO DIALER AND RECEIVED FROM DIALER    
//*-------------------------------------------------------------------*                                                                         

//STEP085  EXEC PGM=SYNCTOOL                                           
//DFSMSG   DD  SYSOUT=*                                                
//TOOLMSG  DD  SYSOUT=*                                                
//IN1      DD  DSN=&TYPE1.CCCN.CN2030WP.CNSVDNLD.DATA(0),              
//             DISP=SHR                                                
//IN2      DD  DSN=&TYPE1.CCCN.CN2030WP.PREVWEEK.CTBL.BKUP(+1),        
//             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),                                 
//             DCB=(RECFM=FB,LRECL=80)                        
//*                                                           
//TOOLIN   DD  DSN=PAWPC.CICA.PARMLIB(CN233001),              
//             DISP=SHR                                       
//CTL1CNTL DD  DSN=PAWPC.CICA.PARMLIB(CN233002),              
//             DISP=SHR                            



PAWPC.CICA.PARMLIB(CN233001) :

COPY FROM(IN1) TO(OUT) USING(CTL1)  
COPY FROM(IN2) TO(OUT1) USING(CTL1)
           
PAWPC.CICA.PARMLIB(CN233002) :


OUTFIL REMOVECC,NODETAIL,                          
TRAILER1=('CNT1,+',COUNT=(M11,LENGTH=8),80:X)      


//**********************************************************************
//*FIND DIFFERENCE BETWEEN TWO COUNTS AND PRODUCE RC4 IF DIFFERENCE >10
//**********************************************************************                                                                            

//STEP086  EXEC PGM=SORT                                               
//SYSOUT   DD  SYSOUT=*                                                
//SORTIN   DD  DSN=&&T1,                                               
//             DISP=(MOD,DELETE)                                       
//SYMNAMES DD  DSN=&&T2,                                               
//             DISP=(MOD,DELETE)                                       
//OUT      DD  DSN=&&T3,                                               
//             DISP=(MOD,DELETE),                                      
//             UNIT=SYSDA,                                             
//             SPACE=(TRK,(1,1),RLSE),                                 
//             DCB=(RECFM=FB,LRECL=8)                                  
//*                                                                    
//SYSIN    DD  DSN=PAWPC.CICA.PARMLIB(CN233003),                       
//             DISP=SHR                                                

PAWPC.CICA.PARMLIB(CN233003) :

OPTION COPY                                                  
INREC BUILD=(7,8,ZD,SUB,CNT1,M11,LENGTH=8)                   
OUTFIL FNAMES=OUT,INCLUDE=(1,8,ZD,LT,10),NULLOFL=RC4         


//*----------------------------------------------------------------- 
//*         ABEND IF ANY OF THE PREVIOUS STEPS ARE UNSUCCESSFUL      
//*-----------------------------------------------------------------                                             

//ABEND02  EXEC  PGM=ABEND,COND=(0,EQ,STEP086),                      
//             PARM='0444'                                           
//*                                                                  

No comments:

Post a Comment