PM65968: EGL: Assignment of NUM to CHAR gets different result

Rational Business Developer Fix Pack 4 (8.0.1.4) for 8.0.1
Rational Business Developer 8.5.1
Rational Business Developer Fix Pack 2 (8.5.1.2) for 8.5.1

APAR status

• Closed as program error.

Error description

• For below EGL:
  function main()
  abc abc;
  abc.AH = x'C0';
  abc.BH = x'C0';
  
  
  char1 Char(1);
  char1 = abc.B;
  sysLib.writeStdout( 'char1: ' + char1 );
  
  end
  
  
  Record abc
  1 A CHAR(1);
  2 AH hex(2);
  1 B NUM(1);
  2 BH HEX(2);
  end
  
  
  In EGL 8, the output is below:
  char1: {
  
  In EGL 6, the output is below:
  char1: 0
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  When a value is assigned to a num, the sign is altered to
  ensure it is human-readable. In V6 however, this was also
  done when the num was moved to a char. This V6 code was not
  present in VAG or RBD V7 or V8 and was likely incorrect in
  V6. There is no problem with additionally doing this sign
  altering, other than 2 extra lines of code.
  

Problem conclusion

• V8 has been updated to do this additional code.
  

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

  RATL BUS DEV

• Fixed component ID

  5724S5000

Applicable component levels

• R801 PSN

     UP