method private params_for_sub sub =
      let param = C.string
          ~f: (fun s -> sub.sub_code <- s)
          Rep_messages.code sub.sub_code
      in
      [param]