anchor.diff:                                        %% ok to skip
                                         {Property, null};
                                    ({{Property, {maybe, Type}, Length, _Text}, Col}) ->
  -                                      to_json_object(Property, Type, Length, Col, 0);
  +                                      to_json_object(Property, Type, Length, Col);
   
                                    ({{Property, _Type, _Length, _Text}, ""}) ->
                                         lager:warning("empty property '~s' which isn't optional in ~s~n",
  
positive.code:                                       
                                   ({{Property, Type, Length, _Text}, Col}) ->
                                        %% ?debugVal({Property, Type}),
                                        to_json_object(Property, Type, Length, Col, 0)
                        end,
                        lists:zip(MsgDef, Tokens)),
              Data = lists:filter(fun({_,null}) -> false;
  
negative.code: 
  %% Work arounds
  to_json_object('*', Col, _) -> {'*', Col}; %% as it is and process later
  to_json_object('FN', Col, _D)->  unicode:characters_to_binary(Col); %% undefined
  to_json_object('SAD', Col, _D)-> unicode:characters_to_binary(Col); %% undefined
  to_json_object('SPS', Col, _D)-> unicode:characters_to_binary(Col); %% undefined, maybe, and exists.
  to_json_object('AUI', Col, _D)-> unicode:characters_to_binary(Col); %% undefined, maybe, and exists.
  %% to_json_object('XCN', Col, _D)-> unicode:characters_to_binary(Col); %% broken data exists and less important
  
  to_json_object(Name, Col, Depth)->
      to_record(Name, Col, Depth).
  
  get_separator(0) -> "[\\^]";
  get_separator(1) -> "[\\\\]";
  get_separator(2) -> "[&]".
  
  to_record(Name, Col, Depth) ->
      Tokens0 = re:split(Col, get_separator(Depth), [{return,list},unicode]),
  