PI52420: QSAM OPEN OF A VSAM DATASET, WITHOUT USER FILE STATUS OR DECLARATIVE, IS MISSING THE ISSUE OF IGZ035S MESSAGE

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• QSAM OPEN of a VSAM dataset, without user file status or
  declarative, is missing the issue of IGZ035S message.  The
  runexecution should get condition code=4038 instead of
  condition code=0004
  
  There should be two run time error messages:
  IGZ0200W
  IGZ0035S <--- MISSING
  
  IGZ0035S There was an unsuccessful OPEN or CLOSE of file xxxxx
  in program xxxxxx
  Neither FILE STATUS nor an ERROR declarative were specified.
  The status From compile unit xxxx at entry point xxxxx at
  compile unit offset address xxxxx.
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: Enterprise COBOL V5.x users that are         *
  *                 expecting the run time IGZ0035S message for  *
  *                 file status 37, 39 or 98 in QSAM OPEN, when  *
  *                 the FILE STATUS clause is not specified for  *
  *                 the FD and no EXCEPTION/ERROR DECLARATIVES   *
  *                 are applicable to this OPEN operation.       *
  *                                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION: Incorrect output, missing run time      *
  *                      message: IGZ0035S message is not being  *
  *                      issued in QSAM OPEN statements that are *
  *                      expected to return file status 37, 39   *
  *                      or 98. More specifically, file status   *
  *                      39 is reported on OPEN when there is a  *
  *                      mismatch in the fixed file attributes   *
  *                      (for example, FD is defined as a QSAM   *
  *                      file whereas the actual DD assigned in  *
  *                      the SELECT statement is a VSAM file).   *
  *                      File status 37 occurs when the file is  *
  *                      being OPENed in a mode that the file    *
  *                      does not support (for example, opening  *
  *                      a file in INPUT mode when read          *
  *                      operations are not allowed). Lastly,    *
  *                      file status 98 is returned when there   *
  *                      are issues with the DD dynamic          *
  *                      allocation.                             *
  *                                                              *
  ****************************************************************
  * RECOMMENDATION: Apply provided service.                      *
  *                                                              *
  ****************************************************************
  The error handling logic was not issuing the IGZ0035S message
  when the FILE STATUS clause is not used and EXCEPTION/ERROR
  DECLARATIVES are not applicable for QSAM OPEN statement that
  would return file status 37, 39 or 98.
  
  FIXCAT keyword:  COB0501T/K   COB0502T/K
  

Problem conclusion

• The error handling logic mentioned in the summary
  has been corrected.
  
  FIXCAT keyword:  COB0501T/K   COB0502T/K
  

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:

  UI33595 UI33596 UI33597

Modules/Macros

• IGZCEV4  IGZLLIBV IGZXAPI  IGZXDMR  IGZXD24
  IGZXLPIO IGZXLPKA IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE IGZXLPKF
  IGZXLPKG IGZXPK2
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7A0 PSY UI33595

     UP15/12/16 P F512

• R780 PSY UI33596

     UP15/12/16 P F512

• R790 PSY UI33597

     UP15/12/16 P F512

Fix is available

• Select the PTF appropriate for your component level. You will be required to sign in. Distribution on physical media is not available in all countries.