anchor.diff:      string:right(integer_to_list(Val, 10), 2, $0).
   
   %%--------------------------------------------------------------------
  -%% UCP message decoder
  +%% Decode binary into UCP message
   %%--------------------------------------------------------------------
   decode_message(Msg = <<?STX, BinHeader:?UCP_HEADER_LEN/binary, _/binary>>) ->
       Len = size(Msg) - 2,
  
positive.code: decode_message(_) ->
      {error, invalid_message}.
  
  
  %%--------------------------------------------------------------------
  %% Parse UCP operations
  %%--------------------------------------------------------------------
  
negative.code: parse_body(_Header, _Body) ->
      {error, unsupported_operation}.
  
  %%--------------------------------------------------------------------
  %% Wrap message into delimiters
  %%--------------------------------------------------------------------
  wrap(Message) ->
      binary:list_to_bin([?STX, Message, ?ETX]).
  
  %%--------------------------------------------------------------------
  %% Create delivery text short message notification
  %%--------------------------------------------------------------------
  create_cmd_52(Sender, Receiver, Message) when is_list(Message) ->
      PMsg = hex:to_hexstr(ucp_utils:to_ira(Message)),
      {otoa, OTOA, sender, UCPSender} = ucp_utils:calculate_sender(Sender),
      Body = #ucp_cmd_5x{
  