search cancel

Job card accounting info not set correctly in JCLNeat CAZ1NREX

book

Article ID: 237518

calendar_today

Updated On:

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.

 

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.   

Environment

Release : 12.0

Component : JCLCheck Workload Automation

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