S40D/S80A/S878 abend and CAY6345S error using JCLCheck with the REXX interface
search cancel

S40D/S80A/S878 abend and CAY6345S error using JCLCheck with the REXX interface

book

Article ID: 248941

calendar_today

Updated On:

Products

JCLCheck Workload Automation

Issue/Introduction

JCLCheck S40D and/or S878 abended  when JCLCheck is used with the REXX interface enabled (option STDREXX(pgm)).

Other symptoms: 

.  IRX0005I Error running CAZ1REXX.  line xxxx: Machine storage exhausted

. JCLCheck CAY6345S A REQUEST FOR ADDITIONAL STORAGE HAS FAILED, INCREASE REGION SIZE AND RESUBMIT JOB

This happens after applying maintenance for zOS 2.5 support

 

Environment

Release : 12.0

Component : JCLCheck Workload Automation

Cause

1. JCLCheck PTFs SO07766 and SO07767 were created in March 2019 to add a new call to the REXX interface before the JCL is read.  This new call is identified in the RAW_DATA_PROCESSING routine by a new record type ($CA.RSTYPE = 'OPTS'), and variable $CA.RCOUNT initialized to zeros.  If the REXX program does not check for $CA.RCOUNT, a loop shall occur and consume available storage.

2. JCLCheck PTF LU03796: Additional storage blocks are obtained if there are more than 127 REXX variables, but the storage blocks do not get released.
               
                                                                       

Resolution

1. Add the check for the $CA.RCOUNT value at the start of the RAW_DATA_PROCESSING routine in your REXX exec.  

RAW_DATA_PROCESSING:         
  IF $CA.RCOUNT =  00000 THEN       /* add */
  RETURN                                              /* add */

2. Apply PTFs LU07630 and LU07631.