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]