PH44967: RANDOM FUNCTION DISPLAYS A MISLEADING RT MESSAGE WHEN INPUT IS GREATER THAN 2147483645

Obtain the fix for this APAR.

APAR status

• Closed as program error.

Error description

• When input to RANDOM function was 2147483647, the IGZS0163S RT
  message was displayed stating that the input value was less
  than zero which is misleading. The RANDOM function code is
  modified to allow the value 2147483647 to be processed. In
  addition, the IGZS0163S RT message will now not be prompted
  when value 2147483647 is passed as an input argument
  

Local fix

• Ignore the message
  

Problem summary

• ****************************************************************
  * USERS AFFECTED: Users of Enterprise COBOL 5 and later        *
  *                 releases running programs compiled with      *
  *                 TRUNC(BIN) using the RANDOM intrinsic        *
  *                 function.                                    *
  ****************************************************************
  * PROBLEM DESCRIPTION: COBOL programs 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 compiled with TRUNC(BIN), causing
  terminating run-time error message IGZ0163S during program
  execution.
  
  COB0501T/K COB0502T/K COB0601T/K COB0602T/K 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 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:

  UI80292 UI80293 UI80294 UI80295 UI80296 UI80297

Modules/Macros

• IGZBALCT IGZCER4  IGZCEV4  IGZCJNI2 IGZCMGEN IGZCMGJA IGZCMGUE
  IGZEDCCT IGZIBMCT IGZIGZCT IGZLLIBV IGZXAPI  IGZXCA31 IGZXCDA
  IGZXD24  IGZXDMR  IGZXDPOW IGZXDPW1 IGZXJNI2 IGZXLPIO IGZXLPKA
  IGZXLPKB IGZXLPKC IGZXLPKD IGZXLPKE IGZXLPKF IGZXLPKG IGZXPK2
  IGZXQPOW IGZXQPW1
  

Fix information

• Fixed component name

  LE ENT COBOL LI

• Fixed component ID

  568819812

Applicable component levels

• R7B0 PSY UI80292

     UP22/04/29 P F204

• R7BJ PSY UI80293

     UP22/04/29 P F204

• R7C0 PSY UI80294

     UP22/04/29 P F204

• R7CJ PSY UI80295

     UP22/04/29 P F204

• R7D0 PSY UI80296

     UP22/05/02 P F204

• R7DJ PSY UI80297

     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.