anchor.diff:  		post_final_ecur_class_b, send_initial_scur_class_a, receive_initial_scur_class_a,
   		send_interim_scur_class_a, receive_interim_scur_class_a, final_scur_class_a,
   		send_initial_ecur_class_a, receive_initial_ecur_class_a, send_final_ecur_class_a,
  -		receive_final_ecur_class_a, scur_vas_class_b].
  +		receive_final_ecur_class_a, scur_vas_class_b, scur_imsi_class_b].
   
   %%---------------------------------------------------------------------
   %%  Test cases
  
positive.code: 			'Used-Service-Unit' = [UsedUnits5]} = MultiServices_CC5,
  	#'3gpp_ro_Used-Service-Unit'{'CC-Service-Specific-Units' = [_UsedServiceUnits]} = UsedUnits5.
  
  %%---------------------------------------------------------------------
  %%  Internal functions
  %%---------------------------------------------------------------------
  
negative.code: 	NewEnvVar = [Auth, {acct, [{DAddress, Port, NewOptions}]}],
  	ok = application:set_env(ocs, diameter, NewEnvVar),
  	Config;
  init_per_testcase(scur_imsi_class_b, Config) ->
  	Address = ?config(diameter_acct_address, Config),
  	{ok, _} = ocs:add_client(Address, undefined, diameter, undefined, true),
  	{ok, [Auth, {acct, [{DAddress, Port, Options}]}]} = application:get_env(ocs, diameter),
  	NewOptions = lists:keyreplace(class, 1, Options,  {class, b}),
  	NewOptions1 = lists:keyreplace(sub_id_type, 1, NewOptions , {sub_id_type, [imsi]}),
  	NewEnvVar = [Auth, {acct, [{DAddress, Port, NewOptions1}]}],
  	ok = application:set_env(ocs, diameter, NewEnvVar),
  	Config;
  init_per_testcase(_TestCase, Config) ->
  	Config.
  
  