anchor.diff:  	ServiceID = list_to_binary(ocs:generate_identity()),
   	{ok, #service{}} = ocs:add_service(ServiceID, undefined, ProdRef, []),
   	Balance = rand:uniform(100000),
  -	B1 = bucket(octets, Size ),
  +	B1 = bucket(octets, Balance),
   	_BId = add_bucket(ProdRef, B1),
   	Ref = erlang:ref_to_list(make_ref()),
   	SId = diameter:session_id(Ref),
  
positive.code: 			'Auth-Application-Id' = ?RO_APPLICATION_ID,
  			'CC-Request-Type' = ?'3GPP_CC-REQUEST-TYPE_INITIAL_REQUEST',
  			'CC-Request-Number' = 0,
  			'Multiple-Services-Credit-Control' = [MCC1]}
  			= diameter_scur_start(SId, ServiceID, 0, Balance div 3),
  	#'3gpp_ro_Multiple-Services-Credit-Control'{
  			'Granted-Service-Unit' = [GSU1]} = MCC1,
  	#'3gpp_ro_Granted-Service-Unit'{'CC-Total-Octets' = [Grant1]} = GSU1,
  	#'3gpp_ro_CCA'{'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_SUCCESS',
  			'Auth-Application-Id' = ?RO_APPLICATION_ID,
  			'CC-Request-Type' = ?'3GPP_CC-REQUEST-TYPE_UPDATE_REQUEST',
  			'CC-Request-Number' = 1,
  			'Multiple-Services-Credit-Control' = [MCC2]}
  			= diameter_scur_interim(SId, ServiceID, 1, Grant1, Balance div 3),
  	#'3gpp_ro_Multiple-Services-Credit-Control'{
  			'Granted-Service-Unit' = [GSU2]} = MCC2,
  	#'3gpp_ro_Granted-Service-Unit'{'CC-Total-Octets' = [Grant2]} = GSU2,
  	#'3gpp_ro_CCA'{'Result-Code' = ?'DIAMETER_BASE_RESULT-CODE_SUCCESS',
  			'Auth-Application-Id' = ?RO_APPLICATION_ID,
  			'CC-Request-Type' = ?'3GPP_CC-REQUEST-TYPE_UPDATE_REQUEST',
  			'CC-Request-Number' = 2,
  			'Multiple-Services-Credit-Control' = [MCC3]}
  			= diameter_scur_interim(SId, ServiceID, 2, Grant2, Balance div 3),
  	#'3gpp_ro_Multiple-Services-Credit-Control'{
  			'Granted-Service-Unit' = [GSU3]} = MCC3,
  	#'3gpp_ro_Granted-Service-Unit'{'CC-Total-Octets' = [Grant3]} = GSU3,
  	#'3gpp_ro_CCA'{'Result-Code' = ?'IETF_RESULT-CODE_CREDIT_LIMIT_REACHED',
  			'Auth-Application-Id' = ?RO_APPLICATION_ID,
  
negative.code: 			= diameter_scur_interim(SId, ServiceID, 3, Grant3, Balance div 3).
  
  diameter_ecur() ->
  	[{userdata, [{doc, "DIAMETER Event Charging with Unit Reservation (ECUR)"}]}].
  
  diameter_ecur(_Config) ->
  	P1 = price(usage, messages, 1, rand:uniform(1000000)),
  