Vamos con otra entrada b\u00e1sica para dummies.<\/p>\n
Supongamos que queremos hacer implantar alg\u00fan tipo de sonda que nos haga una pregunta a la base de datos y nos deje el resultado en un directorio. Ahora ya podemos lanzar nuestro procedimiento, bien desde el c\u00f3digo de aplicaci\u00f3n, cron, task manager, trigger o desde el lugar que deseemos <\/p>\n","protected":false},"excerpt":{"rendered":" Vamos con otra entrada b\u00e1sica para dummies. Supongamos que queremos hacer implantar alg\u00fan tipo de sonda que nos haga una pregunta a la base de datos y nos deje el resultado en un directorio. Vamos a crear un peque\u00f1o procedimiento … Sigue leyendo
\nVamos a crear un peque\u00f1o procedimiento que, a modo de ejemplo nos saque algunos par\u00e1metros del v$session <\/i> y nos lo deje en un directorio previamente definido llamado SONDA<\/p>\n\r\nCREATE OR REPLACE PROCEDURE proc_a_file AS\r\n fichero utl_file.file_type;\r\n nombre_fichero VARCHAR2(255);\r\n linea_resul VARCHAR2(255);\r\n BEGIN\r\n -- Definimos el nombre del log de salida\r\n select 'sonda_'||\r\n to_char(TO_CHAR(sysdate, 'YYYYMMDDHHmiss'))||\r\n '.log'\r\n into nombre_fichero from dual ;\r\n -- Abrimos fichero \r\n fichero := utl_file.fopen('SONDA', nombre_fichero, 'A');\r\n -- A\u00f1adimos encabezado \r\n UTL_FILE.PUT_LINE ( fichero ,'SID, SERIAL,TERMINAL,OSUSER');\r\n -- Lanzamos consulta \r\n FOR ciclo IN (\r\n SELECT\r\n select sid SID,\r\n serial# SERIAL,\r\n terminal TEMINAL,\r\n osuser USER \r\n from v$session\r\n )\r\n LOOP --Bucle de scritura de datos \r\n UTL_FILE.PUT_LINE ( fichero ,ciclo.SID||\r\n chr(44)|| \r\n ciclo.SERIAL||\r\n chr(44)|| \r\n ciclo.TERMINAL||\r\n chr(44)||\r\n ciclo.USER);\r\n END LOOP; \r\n-- Limpiamos y cerramos\r\n utl_file.fflush(fichero);\r\n utl_file.fclose(fichero);\r\n-- Excepciones de error en el alert.log\r\n EXCEPTION\r\n WHEN UTL_FILE.WRITE_ERROR THEN\r\n dbms_system.ksdwrt(2, 'ORA-XXXX Error en procedure proc_a_file escrbiendo en fichero de log.');\r\n WHEN others THEN\r\n dbms_system.ksdwrt(2, 'ORA-XXXX Error gen\u00e9rico en procedure proc_a_file. '||SQLERRM);\r\n END proc_a_file; -- En del procedure\r\n<\/pre>\n