--Numero totale di richieste DONOR da cessare nel giorno, 
--cioč con data cut over uguale alla data di sistema, per cui MSS non ha inviato gli esiti.
--I dati sono aggregati per: Tipologia Cliente (CO/BU) e per OLO Recipient (WIND-H3GI-OPIV, etc.).
--Sono prodotti tanti record riportanti ognuno il totale
--per quante sono le possibili combinazioni dell'aggregazione:
--Tipologia Cliente-OLO Recipient (ES: BU-WIND).
--Il record č prodotto anche nel caso il valore rilevato sia "zero".
SET serveroutput on

declare
    operatore varchar2(4);
    var_tipo_cliente varchar2(2);
    valore  varchar2(255);
    data_val date;
    file1		UTL_FILE.file_type;
    freq 	varchar2(255):='&1';

cursor cur_operatore is
    select desc_olo from mnp_olo
    where flag_terze_parti=1;

cursor cur_valore is
	select count(a.ID_RICHIESTA),sysdate
	from MNP_GESTIONE_RICHIESTA a --richieste DONOR
	where a.STATO = 14 --in cessazione
     and a.tipo_cliente=var_tipo_cliente
     and a.codice_operatore_recipient=operatore
  	  and trunc(a.DATA_CUT_OVER_CALC) = trunc(sysdate) --entro oggi 
  	  and not exists --MSS non ha ancora risposto
  	    (select 1
        from MNP_MSS_CESSAZIONE_IN b
        where b.ID_RICHIESTA=a.ID_RICHIESTA);
   
begin
dbms_output.put_line('apro il file ' || 'MNP' || '.' || to_char(sysdate,'yyyyMMdd'));
file1 := UTL_FILE.fopen('&2','MNP' || '.' || to_char(sysdate,'yyyyMMdd'),'a');
open cur_operatore;
loop
fetch cur_operatore into operatore;
exit when cur_operatore%NOTFOUND;
for i in 0..1 loop
    if (i=0) then 
    	var_tipo_cliente:='CO';
    else 
    	var_tipo_cliente:='BU';
    end if;
    open cur_valore;
    fetch cur_valore into valore, data_val;
    UTL_FILE.put_line(file1,'SDNRESP72'||';'||var_tipo_cliente||'-:-'||operatore||';'||valore||';'||freq||';'||'&3'|| ';'
    ||to_char(data_val,'yyyymmdd')||';'||to_char(data_val,'hh24:mi:ss') ||';'
    ||to_char(sysdate,'yyyymmdd')||';'||to_char(sysdate,'hh24:mi:ss') ||';'
    ||'0'||';'||var_tipo_cliente||'-:-'||operatore||';;');
    close cur_valore;
end loop;
end loop;
close cur_operatore;
UTL_FILE.fflush(file1);
    UTL_FILE.fclose(file1);
	dbms_output.put_line('chiudo il file ' || 'MNP' || '.' || to_char(sysdate,'yyyyMMdd'));
    exception
   		when others then
         	DBMS_OUTPUT.PUT_LINE(sqlerrm);
end;
/
exit