36 lines
911 B
Plaintext
36 lines
911 B
Plaintext
CREATE OR REPLACE FUNCTION report_cessazione RETURN VARCHAR2 IS
|
|
|
|
rs varchar2(255);
|
|
file1 UTL_FILE.file_type;
|
|
path varchar2(255);
|
|
filename varchar2(255);
|
|
|
|
|
|
CURSOR cur_res is
|
|
select b.codice_richiesta_recipient || ';' || b.msisdn
|
|
from mnp_gestione_richiesta_cess b
|
|
where b.stato = 1
|
|
and b.da_processare = 1
|
|
and tim_donor =1;
|
|
|
|
BEGIN
|
|
select directory_path
|
|
into path
|
|
from all_directories
|
|
where directory_name='PATH_REPORT_CESS';
|
|
filename := 'CESSAZIONI_'||to_char(sysdate,'yyyyMMddhh24miss')||'.txt';
|
|
file1 := UTL_FILE.fopen ('PATH_REPORT_CESS',filename, 'w');
|
|
UTL_FILE.put_line (file1,'Codice richiesta; Msisdn');
|
|
|
|
OPEN cur_res;
|
|
LOOP
|
|
FETCH cur_res INTO rs;
|
|
EXIT WHEN cur_res%NOTFOUND;
|
|
UTL_FILE.put_line (file1,rs);
|
|
END LOOP;
|
|
CLOSE cur_res;
|
|
UTL_FILE.fflush (file1);
|
|
UTL_FILE.fclose (file1);
|
|
return path||'/'||filename;
|
|
END;
|
|
/ |