anchor.diff:  		{_, V2} ->
   			list_to_binary(V2);
   		false ->
  -			undefined
  +			case lists:keyfind("serviceAkaK", 1, Chars) of
  +				{_, K} ->
  +					case lists:keyfind("serviceAkaOPc", 1, Chars) of
  +						{_, OPc} ->
  +							#aka_cred{k = K, opc = OPc};
  +						false ->
  +							undefined
  +					end;
  +				false ->
  +					undefined
  +			end
   	end,
   	MultiSession = F1("multiSession", Chars),
   	A1 = case F1("sessionTimeout", Chars) of
  
positive.code: 	C0 = F2("radiusReserveTime", Chars, []),
  	C1 = F2("radiusReserveOctets", Chars, C0),
  	C2 = F2("ReserveSessionTime", Chars, C1),
  	C3 = F2("serviceAkaK", Chars, C2),
  	C4 = F2("serviceAkaOPc", Chars, C3),
  	NewAcc = Acc#service{name = Identity, password = Password,
  		multisession = MultiSession, attributes = A3, characteristics = C4},
  	inventory(T, NewAcc);
  inventory([{"category", _}| T], Acc) ->
  	inventory(T, Acc);
  
negative.code: 	Value6 = {"serviceSpecCharacteristicValue", {array, [{struct, [Type6]}]}},
  	Char6 = {struct, [Name6, Description6, Config6, Type6, Value6]},
  	Name7 = {"name", "serviceAkak"},
  	Description7 = {"description", "AKA K"},
  	Config7 = {"configurable", true},
  	Type7 = {"valueType", "String"},
  	Value7 = {"serviceSpecCharacteristicValue", {array, [{struct, [Type7]}]}},
  	Char7 = {struct, [Name7, Description7, Config7, Type7, Value7]},
  	Name8 = {"name", "serviceAkaOPc"},
  	Description8 = {"description", "AKA OPc"},
  	Config8 = {"configurable", true},
  	Type8 = {"valueType", "String"},
  	Value8 = {"serviceSpecCharacteristicValue", {array, [{struct, [Type8]}]}},
  