let params_for_att a =
  let param_name = C.string
      ~f: (fun s -> a.att_name <- s)
      Rep_messages.name a.att_name
  in
  let param_code = C.string
      ~f: (fun s -> a.att_code <- s)
      Rep_messages.code a.att_code
  in
  [param_name ; param_code]