(format nil
"select data_type,data_length,data_scale,nullable from user_tab_columns,all_tables where user_tab_columns.table_name='~A' and column_name='~A' and all_tables.table_name=user_tab_columns.table_name and all_tables.owner='~:@(~A~)'"
table attribute owner)))))
(destructuring-bind (type length scale nullable) (car (database-query query database :auto nil))
(format nil
"select data_type,data_length,data_scale,nullable from user_tab_columns,all_tables where user_tab_columns.table_name='~A' and column_name='~A' and all_tables.table_name=user_tab_columns.table_name and all_tables.owner='~:@(~A~)'"
table attribute owner)))))
(destructuring-bind (type length scale nullable) (car (database-query query database :auto nil))