PH45738: RANDOM FUNCTION DISPLAYS A MISLEADING RT MESSAGE WHEN INPUT IS GREATER THAN 2147483645 FOR AMODE64

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• Random function displays a misleading RT message when input is
  greater than 2147483645 for AMODE64
  

Local fix

• N/A
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 6.3 and later      *
  *                 releases running programs in AMODE 64        *
  *                 compiled with TRUNC(BIN) using the RANDOM    *
  *                 intrinsic function.                          *
  ****************************************************************
  * PROBLEM DESCRIPTION: COBOL programs running in AMODE 64      *
  *                      compiled with TRUNC(BIN) using the      *
  *                      RANDOM intrinsic function terminate     *
  *                      with run-time error message IGZ0163S    *
  *                      during execution when value +2147483647 *
  *                       is passed as an input argument to the  *
  *                       RANDOM intrinsic function.             *
  ****************************************************************
  * RECOMMENDATION: Install provided PTF.                        *
  ****************************************************************
  There was a logic error in the runtime routine for intrinsic
  function RANDOM when value +2147483647 was passed an input
  argument in programs running in AMODE 64 compiled with
  TRUNC(BIN), causing terminating run-time error message IGZ0163S
  during program execution.
  
  COB0603T/K
  

Problem conclusion

• The logic in the runtime routine for intrinsic function RANDOM
  has been corrected to accept the value +2147483647 as an input
   in AMODE 64 programs compiled with TRUNC(BIN).
  

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:

  UI80299 UI80301 UI80302

Modules/Macros

• CELQSG04 CELQV004 IGZQAPI  IGZQCA64 IGZQCDA  IGZQINPL IGZQIUXB
  IGZQJNI2 IGZQR004
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7B0 PSY UI80299

     UP22/04/29 P F204

• R7C0 PSY UI80301

     UP22/04/29 P F204

• R7D0 PSY UI80302

     UP22/05/02 P F204

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.