JCLNeat - How to change the keywords order of the JOB statement

Products

• JCLCheck Workload Automation

Issue/Introduction

This Knowledge Base article demonstrates how to reorder the keywords on the JOB statement using the JCLNeat feature of JCLCheck

Environment

JCLCheck Workload Automation r12.0

Resolution

Run the following batch job to reorder the keywords on the JOB statement: 

// JOB STATEMENT                                                  
//JCLNEAT  EXEC PGM=CAZ1NEAT,REGION=0K                            
//JCLNOPTS DD *                                                   
INLIB=PDS                                                         
FORMAT=Y                                                          
MEMBERS=INCLUDE                                                   
PACKJ=2                                                           
CECJ=71                                                           
OUTLIB=PDS                                                        
/*                                                                
//STEPLIB  DD DISP=SHR,DSN='your jclcheck loadlib'    <<< change       
//SYSPRINT DD SYSOUT=*                                            
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(3,1),RLSE)                   
//SYSUT2   DD UNIT=SYSDA,SPACE=(CYL,(3,1),RLSE)                   
//PDSIN    DD DISP=SHR,DSN='your input pds'          <<< change                    
//PDSOUT   DD DISP=OLD,DSN='your output pds'         <<< change                   
//*                                                               
//*------------ MEMBERS INCLUDED/EXCLUDED                         
//*                                                               
//MEMBERS  DD *                                                   
jclmember                                            <<< change                                                            
/*                                                                 
//*                                                               
//*------------ KEYWORD ORDERING OF OUTPUT                        
//*                                                               
//KEYWORDS DD *                                                   
JOB CLASS                                                         
JOB MSGCLASS                                                      
JOB REGION                                                        
JOB COND                                                          
JOB NOTIFY                                                        
/*    

 

To set the order of the JOB statement's keywords globally, apply usermod MZ1C015 from the CAZ2JCL library.  Here's a sample MZ1C015:  

//SMPE     EXEC PGM=GIMSMP,REGION=0M,PARM='DATE=U'                              
//*                                                                             
//SMPCSI   DD   DSN='your jclcheck CSI' ,DISP=SHR     <<< change                       
//SMPLOG   DD   DUMMY                                                           
//*                                                                             
//*----- USERMOD MCS BELOW - PLEASE DO NOT MODIFY --------------------*         
//*                                                                             
//SMPPTFIN DD   DATA,DLM=$$                                                     
++USERMOD(MZ1C015)          /* IDENTIFY USERMOD */.                             
++VER(Z038)  FMID(CAZ1C00) /* PRE(xxxxxxx) */ .                                 
++JCLIN.                                                                        
//MZ1C015  JOB 1,'CA JCLCHECK MZ1C015',MSGLEVEL=1,REGION=256K                   
//*--------------------------------------------------------------------*        
//*                 CA JCLCHECK RELEASE 12.0                           *        
//*  ASSEMBLE CAZ1NCJB  TO MODIFY    JOB    KEYWORD TABLE  FOR JCLNEAT *        
//*--------------------------------------------------------------------*        
//*              SOURCE SUPPLIED FROM SOURCE FILE                      *        
//*--------------------------------------------------------------------*        
//ASM1     EXEC PGM=ASMA90,PARM='DECK,NOLOAD',REGION=2M                         
//SYSPUNCH DD DSN=yourhlq.AAZ2MOD0(CAZ1NCJB),DISP=OLD    <<< change         
//SYSIN    DD DSN=yourhlq.AAZ2SRC(CAZ1NCJB),DISP=SHR     <<< change            
//*                                                                             
//*----- USERMOD MCS ABOVE - PLEASE DO NOT MODIFY --------------------*         
//*                                                                             
++SRCUPD (CAZ1NCJB) DISTLIB(AAZ2SRC).                                           
./ CHANGE NAME=CAZ1NCJB                                                         
*        JOB STATEMENT KEYWORD TABLE                                    00010000
         DC    AL1(5),CL8'CLASS'                                        00050010
         DC    AL1(8),CL8'MSGCLASS'                                     00050020
         DC    AL1(6),CL8'REGION'                                       00050030
         DC    AL1(4),CL8'COND'                                         00050040
         DC    AL1(6),CL8'NOTIFY'                                       00050050
./ ENDUP                                                                        
$$                                                                              
//*                                                          
//* ======>     DEFINE SMP SELECT CONTROL STATEMENTS         
//*                                                          
//SMPCNTL  DD   *                                            
  SET BDY(GLOBAL).                                           
    RECEIVE SELECT(MZ1C015) SYSMODS  LIST.                   
  SET BDY(CAIT0).                                            
    APPLY   SELECT(MZ1C015) ASSEM BYPASS(id).                
//