value ora_select: ora_statement -> string -> ?max_rows:option int -> array param_val -> 
                  (option cursor * array string * list (array ora_value)) = 
fun stmt sql ?(max_rows = None) params -> 
    let (cursor, fields) = occi_execute_param_query stmt sql params in
    let (cur,    lst)    = ora_fetch_list ~max_rows:max_rows cursor in
    (cur, fields, lst)