method insert_sub () =
      let sub = { sub_code = "" } in
      match C.simple_get ~width: 500 Rep_messages.insert_sub
          (self#params_for_sub sub)
      with
        C.Return_ok -> self#insert_in_selected (Sub sub)
      | _ -> ()