IBM Mainframe Forum

by **The Mean Farmer** » Fri Apr 26, 2013 8:18 pm

My shop uses the CA-JCLCheck tool for JCL validation but a a couple recent changes have me frustrated and I can't figure out what to do about them.

I invoke CA-JCLCheck as an ISPF command, either !jck or %ejck EDCHEL (when I want to expand the Include Libraries). After the last IPL they put in some system change that is now displaying a line for every symbolic that is resolved. Since my shop is heavily reliant on symbolics in our procs to make them standard across cycles I end up with WAY more messages that I want. Some procs I have a hard time finding a legitimate JCL error amongst the sea of substitution messages.

I have played with all sorts of ways to utilize the Severity limiter command SE(8) or SE(4), SE(12) etc.... but it NEVER changes the number or messages I am getting back. All RC 4, 8, 12 AND Substitution lines are displayed no matter what I do.

Example:
This is JCL for a COBOL program

Select all

/SVCPSUBS DD DSN=&HLQ3.R9582.SVCPSUBS.PASS(-1),DISP=&D1
/ARDELQC DD DSN=&HLQ3.D0045.EARRQST.PASS(0),DISP=&D1
/REVPYIN DD DSN=&HLQ3.D0155.REVPYMT.WORK(0),DISP=&D1
/ARACSDI DD DSN=CNT.TMPMEL.STMT.CDD0155.ARACSDF.CYCL0425,DISP=SHR
/EPMSTRIN DD DSN=&HLQ3.D0155.EPYMSTR.MAST(0),DISP=&D1
/GENPRMIN DD DSN=&HLQ3.D0487.GENPRMIN.PASS(0),DISP=&D1
/MISCMPIN DD DSN=&HLQ3.D0678.SRTMISCP.PASS(0),DISP=&D1
/USAGEIN DD DSN=CNT.TMPMEL.STMT.CDD0106.USAGE.TRAN0425,DISP=SHR
/STMRCDIN DD DSN=&HLQ3.D0490.STMTRCDS.LIBR(0),DISP=&D1
/STMTSVIN DD DSN=&HLQ3.D0490.STMTSVCS.LIBR(0),DISP=&D1
/EQUIPIN DD DSN=&HLQ3.D0490.CLEQMAST.LIBR(0),DISP=&D1
/PHAEQPIN DD DSN=&HLQ3.D0490.PHANTOM.WORK(0),DISP=&D1
/SCNFLGFL DD DSN=&HLQ3.D0490.SCANFILE.WORK(0),DISP=&D1
/SCANFLIN DD DSN=&HLQ3.D0490.SCANFFLE.WORK(0),DISP=&D1
/DDNAMES DD DSN=CNT.TMPMEL.STMT.CDD0491.DDTOUCH.WORK0425,DISP=&D3,
/ UNIT=&DASD1
/TVFACT INCLUDE MEMBER=($FLTVFT&CYCL)
/FLETVFT DD DSN=&HLQ3.D0007.TVFACT.BATHV,DISP=&D1

Changes to:

Select all

//SVCPSUBS DD DSN=&HLQ3.R9582.SVCPSUBS.PASS(-1),DISP=&D1
//SVCPSUBS DD DSN=&HLQ3.R9582.SVCPSUBS.PASS(-1),DISP=&D1
SUBST JCL - DSN=CDP.CDR9582.SVCPSUBS.PASS(-1),DISP=(SHR)
//ARDELQC DD DSN=&HLQ3.D0045.EARRQST.PASS(0),DISP=&D1
//ARDELQC DD DSN=&HLQ3.D0045.EARRQST.PASS(0),DISP=&D1
SUBST JCL - DSN=CDP.CDD0045.EARRQST.PASS(0),DISP=(SHR)
//REVPYIN DD DSN=&HLQ3.D0155.REVPYMT.WORK(0),DISP=&D1
//REVPYIN DD DSN=&HLQ3.D0155.REVPYMT.WORK(0),DISP=&D1
SUBST JCL - DSN=CDP.CDD0155.REVPYMT.WORK(0),DISP=(SHR)
//ARACSDI DD DSN=CNT.TMPMEL.STMT.CDD0155.ARACSDF.CYCL0425,DISP=SHR
//EPMSTRIN DD DSN=&HLQ3.D0155.EPYMSTR.MAST(0),DISP=&D1
//EPMSTRIN DD DSN=&HLQ3.D0155.EPYMSTR.MAST(0),DISP=&D1
SUBST JCL - DSN=CDP.CDD0155.EPYMSTR.MAST(0),DISP=(SHR)
//GENPRMIN DD DSN=&HLQ3.D0487.GENPRMIN.PASS(0),DISP=&D1
//GENPRMIN DD DSN=&HLQ3.D0487.GENPRMIN.PASS(0),DISP=&D1
SUBST JCL - DSN=CDP.CDD0487.GENPRMIN.PASS(0),DISP=(SHR)
//MISCMPIN DD DSN=&HLQ3.D0678.SRTMISCP.PASS(0),DISP=&D1
//MISCMPIN DD DSN=&HLQ3.D0678.SRTMISCP.PASS(0),DISP=&D1
SUBST JCL - DSN=CDP.CDD0678.SRTMISCP.PASS(0),DISP=(SHR)
//USAGEIN DD DSN=CNT.TMPMEL.STMT.CDD0106.USAGE.TRAN0425,DISP=SHR
//STMRCDIN DD DSN=&HLQ3.D0490.STMTRCDS.LIBR(0),DISP=&D1
//STMRCDIN DD DSN=&HLQ3.D0490.STMTRCDS.LIBR(0),DISP=&D1
SUBST JCL - DSN=CDP.CDD0490.STMTRCDS.LIBR(0),DISP=(SHR)
//STMTSVIN DD DSN=&HLQ3.D0490.STMTSVCS.LIBR(0),DISP=&D1
//STMTSVIN DD DSN=&HLQ3.D0490.STMTSVCS.LIBR(0),DISP=&D1
SUBST JCL - DSN=CDP.CDD0490.STMTSVCS.LIBR(0),DISP=(SHR)
//EQUIPIN DD DSN=&HLQ3.D0490.CLEQMAST.LIBR(0),DISP=&D1
//EQUIPIN DD DSN=&HLQ3.D0490.CLEQMAST.LIBR(0),DISP=&D1
SUBST JCL - DSN=CDP.CDD0490.CLEQMAST.LIBR(0),DISP=(SHR)
//PHAEQPIN DD DSN=&HLQ3.D0490.PHANTOM.WORK(0),DISP=&D1
//PHAEQPIN DD DSN=&HLQ3.D0490.PHANTOM.WORK(0),DISP=&D1
SUBST JCL - DSN=CDP.CDD0490.PHANTOM.WORK(0),DISP=(SHR)
//SCNFLGFL DD DSN=&HLQ3.D0490.SCANFILE.WORK(0),DISP=&D1
//SCNFLGFL DD DSN=&HLQ3.D0490.SCANFILE.WORK(0),DISP=&D1
SUBST JCL - DSN=CDP.CDD0490.SCANFILE.WORK(0),DISP=(SHR)
//SCANFLIN DD DSN=&HLQ3.D0490.SCANFFLE.WORK(0),DISP=&D1
//SCANFLIN DD DSN=&HLQ3.D0490.SCANFFLE.WORK(0),DISP=&D1
SUBST JCL - DSN=CDP.CDD0490.SCANFFLE.WORK(0),DISP=(SHR)
//DDNAMES DD DSN=CNT.TMPMEL.STMT.CDD0491.DDTOUCH.WORK0425,DISP=&D3,
//DDNAMES DD DSN=CNT.TMPMEL.STMT.CDD0491.DDTOUCH.WORK0425,DISP=&D3,
SUBST JCL - DSN=CNT.TMPMEL.STMT.CDD0491.DDTOUCH.WORK0425,DISP=(NEW,CATL
// UNIT=&DASD1
// UNIT=&DASD1
SUBST JCL - UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
CAY6081E DISP OF CATLG INVALID FOR
"CNT.TMPMEL.STMT.CDD0491.DDTOUCH.WORK0425" - DATA SET ALREADY
CATALOGED

//TVFACT INCLUDE MEMBER=($FLTVFT&CYCL)
//TVFACT INCLUDE MEMBER=($FLTVFT&CYCL)
SUBST JCL - MEMBER=($FLTVFTD)
//FLETVFT DD DSN=&HLQ3.D0007.TVFACT.BATHV,DISP=&D1
//FLETVFT DD DSN=&HLQ3.D0007.TVFACT.BATHV,DISP=&D1
SUBST JCL - DSN=CDP.CDD0007.TVFACT.BATHV,DISP=(SHR)
//SYSOUT DD SYSOUT=*

Any idea what I can do for this? I have a ticket open for the systems folks to look into it, so far no traction.

by **NicC** » Fri Apr 26, 2013 9:39 pm

Yes, code your code when posting! I have done this for you - this time. And post in the correct section - this has nothing at all to do with TSO or ISPF but everything to do with CA.

IBM Mainframe Forum

CA-JCLCheck Options

CA-JCLCheck Options

Re: CA-JCLCheck Options