CA JCLCheck Workload Automation r12.0 validates IBM DFSORT control statements. This Knowledge Document describes how to bypass SORT control card checking.

CA JCLCheck Workload Automation release 12.0

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

• Browse member JCLUPT in the CA JCLCheck CAZ2SRC library, and locate the sort codes which have DFSORT in column 64. 
  
  
• Copy and paste this block of codes into usermod MZ2C025 in the CAZ2JCL library, and after the ++SRCUPD statement. 
  
  
• Comment out the sort codes. See example below.
  
  
• 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