PM47843: Using init in (x) or ev in (x) when the variable x is an arry , the index is not take into account

APAR status

• Closed as program error.

Error description

• Using init in (x)  or ev in (x) , testing a variable (VAR line)
  when the variable x is an array , the index is not take into
  account
  
  Workaround :
  
  Workaround consist to use an intermediate value , i.e :
  
  #A,B : boolean;
  
  ...
  ...
          var A, init in (TRUE, FALSE), ev ==
          var B, init in (TRUE, FALSE), ev ==
              var IS_RELAY_CLOSED.ARRAY_VALUE(1).VALUE, init = A ,
  ev ==
              var IS_RELAY_CLOSED.ARRAY_VALUE(2).VALUE, init = B,
  ev ==
  
              -- Output value
              var OUT_RECORD.I1, init ==, ev(A) in (C_CLOSE,
  C_OPEN)
              var OUT_RECORD.I2, init ==, ev(B) in (C_CLOSE,
  C_OPEN)
  

Local fix

Problem summary

• ****************************************************************
  * USERS AFFECTED:                                              *
  ****************************************************************
  * PROBLEM DESCRIPTION:                                         *
  ****************************************************************
  * RECOMMENDATION:                                              *
  ****************************************************************
  IBM Rational Test RealTime - Component Testing for Ada -
  Using init in (x)  or ev in (x), testing a variable (VAR
  line), when the variable x is an array, the index is not
  taking into account.
  

Problem conclusion

• Fixed in version 8.0
  

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

  TEST REALTIME

• Fixed component ID

  5724G2000

Applicable component levels

• R750 PSN

     UP