Job card accounting info not set correctly in JCLNeat CAZ1NREX

Products

• JCLCheck Workload Automation

Issue/Introduction

The input JOB card looks like this -

//MYJOB JOB 0,'JOHN SMITH',CLASS=N,MSGCLASS=Y,MSGLEVEL=(1,1),
// USER=ABC,REGION=10M,TYPRUN=HOLD,TIME=1440,RESTART=STEP020,    
// NOTIFY=SMITHJO                                                

JCLNeat output looks like this -

//MYJOB JOB CLASS=N,MSGCLASS=YJOHN SMITH',REGION=10M,TIME=1440,
//             USER=ABC,MSGLEVEL=(1,1),TYPRUN=HOLD,RESTART=STEP020,
//             NOTIFY=SMITHJO                                      

The 0 in the Account data has been removed, and the Programmer data seems to have been merged with the MSGCLASS parameter.

 

Environment

Release : 12.0

Component : JCLCheck Workload Automation

Cause

The JCLNeat keyword ordering table CAZ1NCJB is coded incorrectly.  Table CAZ1NCJB is updated by usermod MZ1C015.

Current usermod MZ1C015 looks like this: 

./ CHANGE NAME=CAZ1NCJB             
*        JOB STATEMENT KEYWORD TABLE
         DC    AL1(5),CL8'CLASS'    
         DC    AL1(8),CL8'MSGCLASS' 
         DC    AL1(6),CL8'REGION'   
         DC    AL1(4),CL8'TIME'     
         DC    AL1(4),CL8'USER'     
./ ENDUP                 

Note: The two entries in the CAZ1NCJB source that are for the positional parameters ACCTNG and PGMER have been removed.   

Resolution

Add the missing positional parameters ACCTNG and PGMER by re-applying usermod MZ1C015 with the following changes: 

./ CHANGE NAME=CAZ1NCJB                                                         
*        JOB STATEMENT KEYWORD TABLE                                    00010000
         DC    AL1(0),CL8' ' SLOT 1 FOR POSITIONAL ACCTNG INFO          00040000
         DC    AL1(0),CL8' ' SLOT 2 FOR POSITIONAL PGMR NAME            00050000
         DC    AL1(5),CL8'CLASS'                                        00050010
         DC    AL1(8),CL8'MSGCLASS'                                     00050020
         DC    AL1(6),CL8'REGION'                                       00050030
         DC    AL1(4),CL8'TIME'                                         00050040
         DC    AL1(4),CL8'USER'                                         00050050
./ ENDUP