anchor.diff:  	RequestedServiceUnits = {InputOctets, OutputOctets},
   	Answer0 = diameter_scur_start(SId, Subscriber, RequestNum, RequestedServiceUnits),
   	#'3gpp_ro_CCA'{'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_SUCCESS'} = Answer0.
  +
  +receive_initial_scur_class_a() ->
  +	[{userdata, [{doc, "On SCUR startRating response send CCA-I"}]}].
  +
  +receive_initial_scur_class_a(Config) ->
  +	OfferId = add_offer([price_pla(Config)], 4),
  +	ProdRef = add_product(OfferId),
  +	MSISDN = list_to_binary(ocs:generate_identity()),
  +	IMSI = list_to_binary(ocs:generate_identity()),
  +	Subscriber = {MSISDN, IMSI},
  +	Password = ocs:generate_identity(),
  +	{ok, #service{}} = ocs:add_service(MSISDN, Password, ProdRef, []),
  +	Balance = rand:uniform(1000000000),
  +	B1 = bucket(octets, Balance),
  +	_BId = add_bucket(ProdRef, B1),
  +	Ref = erlang:ref_to_list(make_ref()),
  +	SId = diameter:session_id(Ref),
  +	RequestNum = 0,
  +	InputOctets = rand:uniform(100),
  +	OutputOctets = rand:uniform(200),
  +	RequestedServiceUnits = {InputOctets, OutputOctets},
  +	Answer0 = diameter_scur_start(SId, Subscriber, RequestNum, RequestedServiceUnits),
  +	#'3gpp_ro_CCA'{'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_SUCCESS',
  +			'Auth-Application-Id' = ?RO_APPLICATION_ID,
  +			'CC-Request-Type' = ?'3GPP_CC-REQUEST-TYPE_INITIAL_REQUEST',
  +			'CC-Request-Number' = RequestNum,
  +			'Multiple-Services-Credit-Control' = [MultiServices_CC]} = Answer0,
  +	#'3gpp_ro_Multiple-Services-Credit-Control'{
  +			'Granted-Service-Unit' = [GrantedUnits]} = MultiServices_CC,
  +	TotalOctets = InputOctets + OutputOctets,
  +	#'3gpp_ro_Granted-Service-Unit'{'CC-Total-Octets' = [TotalOctets]} = GrantedUnits.
   
   %%---------------------------------------------------------------------
   %%  Internal functions
  
positive.code: 	ok = application:set_env(ocs, diameter, NewEnvVar),
  	Config;
  init_per_testcase(TestCase, Config)
  		when TestCase == send_initial_scur_class_a ->
  	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),
  
negative.code: 		post_initial_scur_class_b, post_update_scur_class_b, post_final_scur_class_b, send_iec_class_b,
  		receive_iec_class_b, send_initial_ecur_class_b, receive_initial_ecur_class_b,
  		send_final_ecur_class_b, receive_final_ecur_class_b, post_iec_class_b, post_initial_ecur_class_b,
  		post_final_ecur_class_b, send_initial_scur_class_a, receive_initial_scur_class_a].
  
  %%---------------------------------------------------------------------
  %%  Test cases
  