PM16824: Incorrect results for sysLib check digit functions when the first parameter is a NUM field

APAR status

• Closed as program error.

Error description

• Rational Business Developer V7.5.1.5:
  
  This was created from APAR PM16647 which was opened for the
  zSeries COBOL runtime.  The details for PM16647 are below.
  
  This addresses the following two issues:
  
  1) A similar problem with the EGL COBOL runtime for iSeries
  2) Incorrect results running the generated COBOL programs
     when the sysLib check digit functions are used where the
     first parameter is a NUM field with a length greater than
     one.
  
  PM16647 Description:
  
  Rational COBOL Runtime for zSeries V6.0.1:
  
  An ELAX abend is received running programs with sysLib check
  digit functions when the first parameter is a NUM field.
  
  The following sysLib functions are effected by this:
  
  - calculateChkDigitMod10 (text, checkLength, result)
  - calculateChkDigitMod11 (text, checkLength, result)
  - verifyChkDigitMod10 (input, checkLength, result)
  - verifyChkDigitMod11 (input, checkLength, result)
  
  The following is an example of the error messages that are
  displayed or written to the ELAD queue:
  
  ELA00093I An error occurred in program ADD1AXA, function MAIN
  ELA09974P Unhandled exception occurred.  EGL line: 001361
  ELA09973I Condition code: 9980
  ELA09966P No such library function with specified signature
            exception
  ELA00001I An error occurred in program ADD1AXA on statement
            number 1361. - Caused by -An error occurred in
  ELA00001I program ELASYS, function ******************* An error
            occurred in program ELASYS on statement number
  ELA00001I 1097 Condition code: 09980 ERROR CODE=00000000 Runtime
            exception
  

Local fix

• A tempfix is available from support.
  

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  The generator side of this apar was incorrectly moving the
  1st argument's value to a temporary field of the wrong
  length, only when it was type NUM. This has been corrected.
  

Problem conclusion

• Software updated. Fixtest available.
  

Temporary fix

Comments

APAR Information

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

  PM16647

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

Fix information

• Fixed component name

  RBD EGL FOR COB

• Fixed component ID

  5724S5001

Applicable component levels

• R751 PSN

     UP