CA-JCLCheck Options



All other tools like QACenter, Strobe, Endevor, Telon, APAS, Scheduler, Auditor, DATA-XPERT, CoolGen, Intertest, AdvantageGen, COBTEST etc.

CA-JCLCheck Options

Postby 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

/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:

//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.
The Mean Farmer
 
Posts: 16
Joined: Fri Nov 05, 2010 12:48 am
Has thanked: 0 time
Been thanked: 0 time

Re: CA-JCLCheck Options

Postby 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.
The problem I have is that people can explain things quickly but I can only comprehend slowly.
Regards
Nic
NicC
Global moderator
 
Posts: 3025
Joined: Sun Jul 04, 2010 12:13 am
Location: Pushing up the daisies (almost)
Has thanked: 4 times
Been thanked: 136 times


Return to All Other Tools

 


  • Related topics
    Replies
    Views
    Last post