How to bypass SORT checking.

Document ID : KB000018261
Last Modified Date : 14/02/2018
Show Technical Document Details

Description:

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

Solution:

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

  • Browse CAZ2SRC(JCLUPT) 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