CA Panvalet : Need PCOMPARE sample JCL

Document ID : KB000117915
Last Modified Date : 22/10/2018
Show Technical Document Details
Introduction:
Need sample JCL to compare a PANLIB and PDS/SEQ/VB by the PGM=PCOMPARE.
Environment:
z/OS
Instructions:
CA Panvalet R14.6 does not support comparison of VB files. However, if you can apply the $CSF006(SPECIAL FIX) you can compare it.

Sample JCL:
//*
//* PANLIB AND PANLIB
//*
//STEP01  EXEC PGM=PCOMPARE,REGION=2048K                  
//STEPLIB  DD DSN=PREFIX.PANVLT.R146.CBA3LINK,DISP=SHR
//SYSPRINT DD SYSOUT=*                                    
//PCDELTA  DD SYSOUT=*                                    
//PCNEW    DD DSN=USER.PANVLT.R146LIB,DISP=SHR            
//PCOLD    DD DSN=USER.PANVLT.R145LIB,DISP=SHR            
//PCUPDTE  DD DUMMY                                       
//PCWORK1  DD UNIT=SYSDA,SPACE=(TRK,(5,1))                
//PCWORK2  DD UNIT=SYSDA,SPACE=(TRK,(5,1))                
//SYSIN    DD *                                            
COMPARE LINES(56) OUTPUT(NO) REPORT(DETAIL)               
NEW F(PAN) COLUMN(1 80) MEMBER(TEST01)                    
OLD F(PAN) COLUMN(1 80) MEMBER(TEST01)                    
/*                                                         

//*
//* PANLIB AND SEQ
//*
//STEP02  EXEC PGM=PCOMPARE,REGION=2048K                  
//STEPLIB  DD DSN=PREFIX.PANVLT.R146.CBA3LINK,DISP=SHR
//SYSPRINT DD SYSOUT=*                                    
//PCDELTA  DD SYSOUT=*                                    
//PCNEW    DD DSN=USER.PANVLT.R146LIB,DISP=SHR            
//PCOLD    DD DSN=USER.PANVLT.SEQ,DISP=SHR                
//PCUPDTE  DD DUMMY                                       
//PCWORK1  DD UNIT=SYSDA,SPACE=(TRK,(5,1))                
//PCWORK2  DD UNIT=SYSDA,SPACE=(TRK,(5,1))                
//SYSIN    DD *                                           
COMPARE LINES(56) OUTPUT(NO) REPORT(DETAIL)               
NEW F(PAN) COLUMN(1 80) MEMBER(TEST01)                    
OLD F(SEQ) COLUMN(1 80)                                   
/*                                                        

//*
//* PANLIB AND PO
//*
//STEP03  EXEC PGM=PCOMPARE,REGION=2048K                  
//STEPLIB  DD DSN=PREFIX.PANVLT.R146.CBA3LINK,DISP=SHR
//SYSPRINT DD SYSOUT=*                                    
//PCDELTA  DD SYSOUT=*                                    
//PCNEW    DD DSN=USER.PANVLT.R146LIB,DISP=SHR            
//PCOLD    DD DSN=USER.PANVLT.PO(TEST01),DISP=SHR      
//PCUPDTE  DD DUMMY                                       
//PCWORK1  DD UNIT=SYSDA,SPACE=(TRK,(5,1))                
//PCWORK2  DD UNIT=SYSDA,SPACE=(TRK,(5,1))                
//SYSIN    DD *                                           
COMPARE LINES(56) OUTPUT(NO) REPORT(DETAIL)               
NEW F(PAN) COLUMN(1 80) MEMBER(TEST01)                    
OLD F(SEQ) COLUMN(1 80)                                    
/*                                                        

//*
//* PANLIB AND VB
//*
//STEP04  EXEC PGM=PCOMPARE,REGION=2048K                  
//STEPLIB  DD DSN=PREFIX.PANVLT.R146.CBA3LINK,DISP=SHR
//SYSPRINT DD SYSOUT=*                                    
//PCDELTA  DD SYSOUT=*                                    
//PCNEW    DD DSN=USER.PANVLT.R146LIB,DISP=SHR            
//PCOLD    DD DSN=USER.PANVLT.VB,DISP=SHR              
//PCUPDTE  DD DUMMY                                        
//PCWORK1  DD UNIT=SYSDA,SPACE=(TRK,(5,1))                
//PCWORK2  DD UNIT=SYSDA,SPACE=(TRK,(5,1))                
//SYSIN    DD *                                           
COMPARE LINES(56) OUTPUT(NO) REPORT(DETAIL)               
NEW F(PAN) MEMBER(TEST01)                                 
OLD F(SEQ)                                                
/*                                                        
//

 
Additional Information:
For more information, please see the z/OS JCL of  CA Panvalet R14.6 - Compare Reference Guide.