PI10647: COBOL V5.1 0C4 ABEND USING VSAM FILE WITH VSHARE DURING VSAM EXIT

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• An 0C4 abend occurs when using Enterprise COBOL V5.1 VSAM file
  I/O with VShare when the VSAM EXIT routines in the COBOL
  runtime are invoked.  The EXIT routines are for the COBOL
  Runtime to handle VSAM conditions (e.g. error conditions,
  end-of-file conditions...)
  
  One of the addresses passed into the VSAM macros is missing the
  high order bit. If the call is going directly into IBM's VSAM
  macro, a problem does not occur.  However, if the call is
  intercepted by VShare and then redirected, the lack of the high
  order bit causes an S0C4 abend.
  
  Search Keywords: VShare V-SHARE
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED: User of Enterprise COBOL V5.1 who uses       *
  *                 VSAM I/O and V-SHARE.                        *
  ****************************************************************
  * PROBLEM DESCRIPTION: An 0C4 ABEND occurs when using          *
  *                      Enterprise COBOL V5.1 VSAM file I/O     *
  *                      with V-SHARE when the DFSMS VSAM EXIT   *
  *                      routines in the COBOL Runtime are       *
  *                      invoked. The EXIT routines are for      *
  *                      COBOL Runtime to handle VSAM            *
  *                      conditions.                             *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  

Problem conclusion

• Apply provided service.
  

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:

Modules/Macros

• IGZXLPKA
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R780 PSY UI15839

     UP14/03/21 P F403

• R790 PSY UI15840

     UP14/03/21 P F403

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.