How to bypass SORT checking.

Products

• JCLCheck Workload Automation

Issue/Introduction

JCLCheck validates IBM DFSORT control statements. This Knowledge Document describes how to bypass SORT control card checking.

 

Environment

Release: 12.0

Component: JCLCheck Workload Automation 

Resolution

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

• Browse member JCLUPT in the 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