PH35955: RUNTIME ERROR IN IDZ ZUNIT TEST RUNNER (AZUTSTRN) FOR COBOL CONTAINING RETURN-CODE

APAR status

• Closed as program error.

Error description

• In IBM Developer for z/OS (IDz) v15.0, a job submitted for zUnit
  Test runner (AZUTSTRN) of a COBOL program containing PROCEDURE
  DIVISION with no USING parameter when the RETURN-CODE special
  register is referenced in the program, results in the following
  runtime error:
  
  CEE0808S Storage size in a get storage request (CEEGTST) or a
  reallocate request (CEECZST) was not a positive number.
  
  Here is a code snippet illustrating the use of RETURN-CODE:
   ...
   01 SUB1-PARMS.
        05 PARM1                               PIC X(24) VALUE
  'case1'.
        05 PARM2                               PIC X(24) VALUE
  'case2'.
        05 SUB1-RETURN-CODE       PIC 9(4).
    ....
   CALL 'SUB1' USING PARM1
                             PARM2
   MOVE RETURN-CODE                 TO SUB1-RETURN-CODE
   ....
  

Local fix

Problem summary

• In IBM Developer for z/OS (IDz) v15.0, submitting a job for
  zUnit Test runner (AZUTSTRN) of a COBOL program that contains
  not USING parameters but RETURN-CODE special register, results
  in the following runtime error:
  E0808S Storage size in a get storage request (CEEGTST) or a
  reallocate request (CEECZST) was not a positive number.
  

Problem conclusion

• The following statement calling CEEGTST was generated into the
  test case for the COBOL program that contains not USING
  parameters but RETURN-CODE special registers.
   *    GET HEAP STORAGE
             CALL 'CEEGTST' USING CEEGTST-HEAP CEEGTST-SIZE
                  TEST-FIXTURE-PTR OMITTED
             SET NEXT-TEST-FIXTURE-PTR TO TEST-FIXTURE-PTR
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Fix information

• Fixed component name

  DEV FOR Z/OS

• Fixed component ID

  5724T0700

Applicable component levels