PK82011: IS Numeric on substringed variable not producing the correct res ults

APAR status

• Closed as program error.

Error description

• IS Numeric on substringed variable not producing the correct res
  ults.
  
  
  There seems to be a difference in the behaviour in the RBD debug
  ger and at runtime on z/OS  when testing a part of a variable, u
  sing a substring.
  The problem occurs when the variable is of the type Unicode as w
  ell as when it is a char variable.
  We try to test whether a substring is numeric or not. Therefore
  we use the ?is numeric? statement.
  
  record wy4f059 type BasicRecord
  
   03 varUcd    unicode(10);
   03 varChar    char(10);
  
  End
  
  function main()
  //---------------
  
   wy4f059.varUcd = '123test';
   wy4f059.varChar = '123test';
  
   SysLib.writeStdout(wy4f059.varUcd[1:3]);
   SysLib.writeStdout(wy4f059.varChar[1:3]);
  
   if (wy4f059.varUcd[1:3] is numeric)
    SysLib.writeStdout('numeric');
   else
    SysLib.writeStdout('non-numeric');
   end
  
   if (wy4f059.varChar[1:3] is numeric)
    SysLib.writeStdout('numeric');
   else
    SysLib.writeStdout('non-numeric');
   end
  end
  
  Our substring contains ?123?. When we test the substring in the
  EGL debugger, it returns that the part is numeric :
  

Local fix

Problem summary

• The substring variable needed to be checked for is numeric,
  instead of a different temporary variable, when subtrings
  are used with is numeric.
  

Problem conclusion

• Software updated. This fix is in both 7103 and 7512
  

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:

Fix information

• Fixed component name

  RBD EGL FOR COB

• Fixed component ID

  5724S5001

Applicable component levels

• R710 PSN

     UP