PH65275: ABEND U4038 RUNNING A TEST ACCELERATOR FOR Z/OS (TAZ) FOR A COBOL TEST WHERE A PROGRAM-UNDER-TEST DOES NOT ISSUE A FILE CLOSE

APAR status

• Closed as program error.

Error description

• Using Test Accelerator for z/OS (TAZ) v1.0.1, when the program
  under test has COBOL file I/O but does not issue a CLOSE of one
  or more files, the test harness will define the files to the run
  
  
  unit, and will force a CLOSE of the files after the program
  under test executes. However, if two test cases have been
  generated, the second test will fail with abend U4038 on the
  CLOSE statement.
  
  You can recreate the issue when you:
  1) Create a new unit test (right click on the COBOL source and
  select New > Unit Test) such as atest.tc.
  2) Click on the record button to create a test (TEST1).
  3) Repeat 2) and create the second TEST (TEST2).
  4) Generate and build the test harness program.
  5) Right click on the unit test file (atest.tc) and select Run
  As->Unit Test for z/OS and observe abend U4038.
  

Local fix

• Modify the generated test program for each SELECT statement in
  the FILE-SECTION by adding a FILE STATUS IS AZ-FS-CODE clause
  where there is no STATUS clause. Here is an example:
  FILE-CONTROL.    SELECT INPUT-FILE
     ASSIGN to INP
     FILE STATUS IS AZ-FS-CODE.
     SELECT OUTPUT-FILE
     ASSIGN TO OUT
     FILE STATUS IS AZ-FS-CODE.
  

Problem summary

• ABEND U4038 RUNNING A TEST ACCELERATOR FOR Z/OS (TAZ) FOR A
  COBOL TEST WHERE A PROGRAM-UNDER-TEST DOES NOT ISSUE A FILE
  CLOSE
  

Problem conclusion

• The fix is available in IBM Test Accelerator for Z 1.0.2
  

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

  TEST ACCELERATO

• Fixed component ID

  5900BBG00

Applicable component levels