Panvalet : Need PCOMPARE sample JCL

Products

• Panvalet

Issue/Introduction

Need sample JCL to compare a PANLIB and PDS/SEQ/VB by the PGM=PCOMPARE.

Environment

z/OS

Resolution

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))
//PCWORK   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)
/*
//

Additional Information

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