PH66756: COBOL 64BIT SUPPORT FOR DSNTIAR FOR AMODE64

Obtain the fix for this APAR.

APAR status

• Closed as unreproducible in next release.

Error description

• COBOL 64bit support for DSNTIAR for AMODE64.
  

Local fix

• N/A
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later      *
  *                 releases running AMODE 64 programs           *
  *                 that need to call the DB2 subroutine         *
  *                 DSNTIAR.                                     *
  ****************************************************************
  * PROBLEM DESCRIPTION: NEW FUNCTION.                           *
  ****************************************************************
  * RECOMMENDATION: Install the provided PTF.                    *
  ****************************************************************
  NEW FUNCTION.
  Users were unable to call the DB2 subroutine DSNTIAR from COBOL
  AMODE 64 programs.
  
  COB0603T/K COB0604T/K COB0605T/K
  

Problem conclusion

Temporary fix

Comments

• NEW FUNCTION.
  
  Users can now call the DB2 subroutine DSNTIAR from AMODE 64
  Enterprise COBOL programs. The subroutine works
  identically as it does in 31bit. No user changes are
  required to COBOL applications to allow this usage.
  
  COBOL can call the function DSNTIAR either statically or
  dynamically.
  
  Enterprise COBOL provides a dll side-decks for all COBOL
  AMODE 64 programs that currently exists and is used by COBOL
  programs. HLQ.SCEELIB(CELQV004).  This side-deck provides the
  DSNTIAR entry point for resolution of static calls.   Users
  should not include the DB2 library (.SDSNLOAD) during link
  because 'DSNTIAR' needs to be resolved by the side-decks.
  Otherwise, 'DSNTIAR' will be resolved by the DB2 library and
  there will be a link error due to AMODE incompatibility.
  The COBOL program is AMODE 64 while the 'DSNTIAR' in
  (.SDSNLOAD) is AMODE 31.
  
  Users will get a link error if they do, such as:
  > THE ATTRIBUTES OF A REFERENCE TO DSNTIAR FROM SECTION
  MYPGM1 DO NOT MATCH THE ATTRIBUTES OF THE TARGET SYMBOL
  
  Users can optionally used dynamic calls to DSNTIAR based on
  their preference.  The COBOL runtime will dynamically load
  and call DSNTIAR making sure all DB2 requirements are
  satisfied.
  
  static call:
  call 'DSNTIAR' SQLCA ERROR-BUFFER ERROR-RECLEN
  
  dynamic call:
  move 'DSNTIAR' to MY-DATAITEM.
  call MY-DATAITEM SQLCA ERROR-BUFFER ERROR-RECLEN
  
  Users must follow the DB2 DSNTIAR parameter list specification
  as documented by DB2. All restrictions that apply in AMODE 31
  apply to AMODE 64.  We support a maximum of 10 lines in the
  message area with a max record length of 240 bytes each line.
  ×**** PE25/09/22 FIX IN ERROR. SEE APAR PH68238  FOR DESCRIPTION
  ×**** PE25/09/22 FIX IN ERROR. SEE APAR PH68238  FOR DESCRIPTION
  ×**** PE25/09/22 FIX IN ERROR. SEE APAR PH68238  FOR DESCRIPTION
  ×**** PE25/09/22 FIX IN ERROR. SEE APAR PH68238  FOR DESCRIPTION
  

APAR Information

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

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

  UO04174 UO04177 UO04179

Modules/Macros

• CELQSG04 CELQV004 IGZQAPI  IGZQCA64 IGZQCDA  IGZQINPL IGZQJNI2
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7D0 PSY UO04174

     UP25/07/31 P F507

• R7E0 PSY UO04177

     UP25/07/31 P F507

• R7F0 PSY UO04179

     UP25/07/31 P F507

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.