How to bypass IBM DFSORT control statements checking during CA JCLCheck scan?
search cancel

How to bypass IBM DFSORT control statements checking during CA JCLCheck scan?

book

Article ID: 41410

calendar_today

Updated On:

Products

JCLCheck Workload Automation

Issue/Introduction

Background:

The new CA JCLCheck R12.0 Workload Automation now supports and validates by default control-card checking from multiple control statement sources (DDnames). For example, DFSORT accepts control statements from the following DDnames:

SYMNAMES -- optional symbol definition statements
DFSPARM -- control statements
SYSIN -- control statements
JNF1CNTL -- optional control statements for JOINKEYS applications
JNF2CNTL -- optional control statements for JOINKEYS applications

Environment:  

CA JCLCheck 12.0

Instructions: 

By default CA JCLCheck Workload Automation R12.0 validates IBM DFSORT control statements during the JCL scan. This is based on the default Utility Program Table content we provide in source member CAZ2SRC(JCLUPT). This Knowledge Document describes how to bypass DFSORT control card checking.

To bypass the checking of the control cards for DFSORT, do the following:

  1. Browse CAZ2SRC(JCLUPT) member, and locate the sort codes which have DFSORT in column 64. 
  2. Copy and paste this block of codes (including all the IBM DFSORT ALIAS program entries as below reported) into Usermod CAZ2CJCL(MZ2C025) after the ++SRCUPD statement. 
  3. Comment out all the rows of the just added block of code as below reported.
  4. Submit usermod MZ2C025
./ CHANGE NAME=JCLUPT
*     JCLUPT - JCLCHECK UTILITY PROGRAM TABLE.  THIS NON-EXECUTABLE   **00500000
*        $UPT  ICEMAN,             IBM SORT UTILITY            DFSORT  *00580000
*              CTL=(SYMNAMES-O,DFSPARM-C,SYSIN-C,JNF1CNTL-O,   DFSORT  *00580010
*              JNF2CNTL-O),        CONTROL STMT DDNAMES        DFSORT  *00580011
*              UCP=JCLCSORT,       UTILITY CALL PROGRAM        DFSORT  *00580012
*              EXEPARM=UCP,        VALIDATE EXEC PARM VIA UCP  DFSORT  *00580013
*              CALLPGM=YES,        CALL VALIDATION PROGRAM     DFSORT  *00580014
*              REQ=SYSOUT                                      DFSORT  *00580015
*        $UPT  SORT,               IBM SORT UTILITY (ALIAS)    DFSORT  *00580016
*              CTL=(SYMNAMES-O,DFSPARM-C,SYSIN-C,JNF1CNTL-O,   DFSORT  *00580017
*              JNF2CNTL-O),        CONTROL STMT DDNAMES        DFSORT  *00580018
*              UCP=JCLCSORT,       UTILITY CALL PROGRAM        DFSORT  *00580019
*              EXEPARM=UCP,        VALIDATE EXEC PARM VIA UCP  DFSORT  *00580022
*              CALLPGM=YES,        CALL VALIDATION PROGRAM     DFSORT  *00580023
*              REQ=SYSOUT                                      DFSORT  *00580024
*        $UPT  IERRCO00,           IBM SORT UTILITY (ALIAS)    DFSORT  *00580025
*              CTL=(SYMNAMES-O,DFSPARM-C,SYSIN-C,JNF1CNTL-O,   DFSORT  *00580026
*              JNF2CNTL-O),        CONTROL STMT DDNAMES        DFSORT  *00580027
*              UCP=JCLCSORT,       UTILITY CALL PROGRAM        DFSORT  *00580028
*              EXEPARM=UCP,        VALIDATE EXEC PARM VIA UCP  DFSORT  *00580031
*              CALLPGM=YES,        CALL VALIDATION PROGRAM     DFSORT  *00580032
*              REQ=SYSOUT                                      DFSORT  *00580033
*        $UPT  IGHRCO00,           IBM SORT UTILITY (ALIAS)    DFSORT  *00580034
*              CTL=(SYMNAMES-O,DFSPARM-C,SYSIN-C,JNF1CNTL-O,   DFSORT  *00580035
*              JNF2CNTL-O),        CONTROL STMT DDNAMES        DFSORT  *00580036
*              UCP=JCLCSORT,       UTILITY CALL PROGRAM        DFSORT  *00580037
*              EXEPARM=UCP,        VALIDATE EXEC PARM VIA UCP  DFSORT  *00580040
*              CALLPGM=YES,        CALL VALIDATION PROGRAM     DFSORT  *00580041
*              REQ=SYSOUT                                      DFSORT  *00580042
./ ENDUP 

Environment

Release:
Component: CM-Z2