otra vez porfa ayuda Sobre archivos de texto

florjulissa
02 de Agosto del 2005
hola quisera consultar ojala me ayuden es q tengo q hacer un trabajo osea tengo q convertir una tabla cualquiera con sus registros a una archivo de text y con sus formatos respectivos osea si es cadena sera con comillar y con separadores como comas. Estaba haciendo algo como esto:

BEGIN
DUEÑO:='&DUEÑO';
TABLA:='&TABLA';
COMA:=',';
COMILLA:='"';
FECHA:='&FORMATO_FECHA';
NUMERO:='&FORMATO_NUMERO';
CAD_TABLA:='SELECT * FROM ' || TABLA;
dbms_output.put_line(CAD_TABLA);
CAD_CAMPO:='SELECT COLUMN_NAME, DATA_TYPE FROM ALL_TAB_COLS WHERE OWNER=UPPER(''' || DUEÑO || ''') AND TABLE_NAME=UPPER(''' || TABLA || ''')';
dbms_output.put_line(CAD_CAMPO);
OPEN CAMPOS FOR CAD_CAMPO;
LOOP
FETCH CAMPOS INTO NOM_CAMPO, TIPO_DATO;
EXIT WHEN CAMPOS%NOTFOUND;
END LOOP;
NUM_CAMPOS:=CAMPOS%ROWCOUNT;
CLOSE CAMPOS;
dbms_output.put_line(NUM_CAMPOS);
OPEN TABLAS FOR CAD_TABLA;

END;

Es un pequeño avance pero no se como hacer para que en fecth de campos esten las columnas de la tabla del where osea no se sabe que columnas son ni sus nombres pero si se cuantas son con NUM_CAMPOS. Parece complicado ojala alguien experto en esto me ayude ....saber como hacer ese fetch para saber las columnas, sus nombre..Muchas gracias ante todo....bye