323 lines
8.3 KiB
SQL
323 lines
8.3 KiB
SQL
SET serveroutput on
|
|
|
|
|
|
|
|
DECLARE
|
|
|
|
rs1 varchar2(255);
|
|
rs2 varchar2(255);
|
|
operatore varchar2(15);
|
|
operatore_donor varchar2(15);
|
|
dir_out varchar2(255);
|
|
num NUMBER(5,0);
|
|
cod varchar2(15);
|
|
cod1 varchar2(15);
|
|
desc_olo varchar2(15);
|
|
totale NUMBER(5,0);
|
|
tot NUMBER(5,0);
|
|
file1 UTL_FILE.file_type;
|
|
count_tot NUMBER(5,0);
|
|
num1 number(5,0);
|
|
num2 number(5,0);
|
|
num3 number(5,0);
|
|
num4 number(5,0);
|
|
num5 number(5,0);
|
|
num6 number(5,0);
|
|
num7 number(5,0);
|
|
num8 number(5,0);
|
|
num9 number(5,0);
|
|
num10 number(5,0);
|
|
totale1 NUMBER(5,0):=0;
|
|
totale2 NUMBER(5,0):=0;
|
|
totale3 NUMBER(5,0):=0;
|
|
totale4 NUMBER(5,0):=0;
|
|
totale5 NUMBER(5,0):=0;
|
|
totale6 NUMBER(5,0):=0;
|
|
totale7 NUMBER(5,0):=0;
|
|
totale8 NUMBER(5,0):=0;
|
|
totale9 NUMBER(5,0):=0;
|
|
totale10 NUMBER(5,0):=0;
|
|
data_inizio date;
|
|
data_fine date;
|
|
data date;
|
|
di date;
|
|
df date;
|
|
ut varchar2(20);
|
|
pippo varchar2(255):='&1';
|
|
|
|
|
|
CURSOR cur_recipient is
|
|
SELECT desc_olo
|
|
FROM mnp_olo_report
|
|
where flag_attivo = 1;
|
|
|
|
|
|
Cursor cur_select(operatore varchar2, data_inizio date, data_fine date) is
|
|
--select nvl(to_char(sum(a.num)),'NULL'),
|
|
select nvl(sum(a.num),0),
|
|
a.cod,
|
|
a.cod1,
|
|
b.desc_olo
|
|
|
|
from mnp_olo_report b,
|
|
(
|
|
select count(*)num,
|
|
codice_operatore_recipient cod,
|
|
codice_operatore_donating cod1
|
|
from
|
|
mnp_gestione_richiesta_porting grp,
|
|
mnp_mss_cess_porting_in ci,
|
|
(SELECT desc_olo desc_olo
|
|
FROM mnp_olo_report
|
|
where flag_attivo = 1) a
|
|
|
|
|
|
where grp.stato in(4,6)
|
|
and grp.msisdn = ci.msisdn
|
|
and data_cut_over <> trunc(ci.data_ora_cessazione)
|
|
and data_cut_over >= trunc(data_inizio)
|
|
and data_cut_over <= trunc(data_fine)
|
|
and grp.codice_operatore_donating = a.desc_olo
|
|
and grp.codice_operatore_recipient = operatore
|
|
group by codice_operatore_recipient , codice_operatore_donating
|
|
|
|
UNION
|
|
select count(*)num,
|
|
codice_operatore_recipient cod,
|
|
codice_operatore_donating cod1
|
|
from mnp_gestione_richiesta_porting grp,(SELECT desc_olo desc_olo
|
|
FROM mnp_olo_report
|
|
where flag_attivo = 1) a
|
|
|
|
where grp.stato in(1,3,5)
|
|
and data_cut_over >= trunc(data_inizio)
|
|
and data_cut_over <= trunc(data_fine)
|
|
and grp.codice_operatore_donating = a.desc_olo
|
|
and grp.codice_operatore_recipient = operatore
|
|
group by codice_operatore_recipient , codice_operatore_donating,a.desc_olo )a
|
|
where a.cod1(+) = b.desc_olo
|
|
and b.flag_attivo = 1
|
|
group by a.cod,a.cod1,b.desc_olo
|
|
order by b.desc_olo;
|
|
|
|
|
|
BEGIN
|
|
if (pippo <> 'nullo')then
|
|
data_inizio := to_date('&1','dd/mm/yyyy');
|
|
data_fine := to_date('&2','dd/mm/yyyy');
|
|
dir_out:='&3';
|
|
|
|
|
|
else
|
|
if (to_char(sysdate, 'DD')<= '15') then
|
|
|
|
data := add_months((trunc(sysdate)), -1);
|
|
data_inizio := to_date('16/'|| to_char(trunc(data), 'mm/yyyy'),'dd/mm/yyyy');
|
|
data_fine := last_day(trunc(data));
|
|
else
|
|
data_inizio := to_date('01/'|| to_char(trunc(sysdate), 'mm/yyyy'), 'dd/mm/yyyy');
|
|
data_fine := to_date('15/'|| to_char(trunc(sysdate), 'mm/yyyy'), 'dd/mm/yyyy');
|
|
end if;
|
|
select recipient_out into dir_out
|
|
from mnp_olo_report
|
|
where desc_olo = 'MONIT';
|
|
|
|
end if;
|
|
|
|
|
|
file1 := UTL_FILE.fopen (dir_out, 'TIM_TerzaParte_'||to_char(sysdate,'yyyyMMdd')||'.csv', 'w');
|
|
|
|
BEGIN
|
|
UTL_FILE.put_line (file1,'Titolo: Non effettuati da TIM in qualita di OLO il giorno del cut_over');
|
|
UTL_FILE.put_line (file1,' ');
|
|
UTL_FILE.put_line (file1,'Periodo dal '|| trunc(data_inizio)|| ' al '|| trunc(data_fine));
|
|
UTL_FILE.put_line (file1,' ');
|
|
UTL_FILE.put_line (file1,'Operatore Terza Parte TIM');
|
|
UTL_FILE.put_line (file1,' ');
|
|
|
|
|
|
|
|
|
|
rs1:='';
|
|
rs2:='';
|
|
totale:=0;
|
|
tot:=0;
|
|
OPEN cur_recipient;
|
|
LOOP
|
|
FETCH cur_recipient INTO operatore;
|
|
EXIT WHEN cur_recipient%NOTFOUND;
|
|
|
|
|
|
|
|
rs1:= rs1 ||';'|| operatore ;
|
|
|
|
END LOOP;
|
|
CLOSE cur_recipient;
|
|
rs1:=rs1 ||';'||'TOTALE';
|
|
UTL_FILE.put_line (file1,rs1);
|
|
UTL_FILE.fflush (file1);
|
|
--UTL_FILE.fclose (file1);
|
|
exception
|
|
when others then
|
|
DBMS_OUTPUT.PUT_LINE(sqlerrm);
|
|
END;
|
|
|
|
begin
|
|
rs1:='';
|
|
rs2:='';
|
|
totale:=0;
|
|
tot :=0;
|
|
num1 := 0;
|
|
num2 := 0;
|
|
num3 := 0;
|
|
num4 := 0;
|
|
num5 := 0;
|
|
num6 := 0;
|
|
num7 := 0;
|
|
num8 := 0;
|
|
num9 := 0;
|
|
num10 := 0;
|
|
OPEN cur_recipient;
|
|
|
|
|
|
LOOP
|
|
FETCH cur_recipient INTO operatore;
|
|
EXIT WHEN cur_recipient%NOTFOUND;
|
|
|
|
OPEN cur_select(operatore,data_inizio, data_fine);
|
|
|
|
count_tot := 0;
|
|
totale := 0;
|
|
tot:=0;
|
|
|
|
|
|
LOOP
|
|
FETCH cur_select INTO num,cod,cod1,desc_olo;
|
|
EXIT WHEN cur_select%NOTFOUND;
|
|
--dbms_output.put_line('desc_olo '|| desc_olo);
|
|
|
|
--rs1:= cod1 ||';' || rs1 || ';'|| num ||';';
|
|
|
|
|
|
|
|
count_tot := count_tot + 1;
|
|
rs2 := '' || rs2 || num ||';';
|
|
|
|
|
|
if (count_tot = 1) then
|
|
num1:= num + num1;
|
|
|
|
tot := num1 + tot;
|
|
totale1:= totale1 + num1;
|
|
--dbms_output.put_line('num 1 e...' || num1 || 'num...' || num ||'count_tot'||count_tot ||'operatore cod'|| cod ||'cod1'||cod1);
|
|
end if;
|
|
if (count_tot = 2) then
|
|
num2:= num + num2;
|
|
|
|
tot := num2 + tot;
|
|
totale2:= totale2 + num2;
|
|
--dbms_output.put_line('num 2 e...' || num2 || 'num...' || num ||'count_tot'||count_tot);
|
|
end if;
|
|
if (count_tot = 3) then
|
|
num3:= num + num3;
|
|
|
|
tot := num3 + tot;
|
|
totale3:= totale3 + num3;
|
|
--dbms_output.put_line('num 3 e...' || num3 || 'num...' || num ||'count_tot'||count_tot);
|
|
end if;
|
|
if (count_tot = 4) then
|
|
num4:= num + num4;
|
|
--dbms_output.put_line('tot e...' || tot);
|
|
tot := num4 + tot;
|
|
totale4:= totale4 + num4;
|
|
--dbms_output.put_line('num 4 e...' || num4 || 'num...' || num ||'count_tot'||count_tot);
|
|
end if;
|
|
if (count_tot = 5) then
|
|
num5:= num + num5;
|
|
|
|
tot := num5 + tot;
|
|
totale5:= totale5 + num5;
|
|
--dbms_output.put_line('num 5 e...' || num5 || 'num...' || num ||'count_tot'||count_tot);
|
|
end if;
|
|
if (count_tot = 6) then
|
|
num6:= num + num6;
|
|
|
|
tot := num6 + tot;
|
|
totale6:= totale6 + num6;
|
|
--dbms_output.put_line('num 6 e...' || num6 || 'num...' || num ||'count_tot'||count_tot);
|
|
end if;
|
|
if (count_tot = 7) then
|
|
num7:= num + num7;
|
|
|
|
tot := num7 + tot;
|
|
totale7:= totale7 + num7;
|
|
--dbms_output.put_line('num 7 e...' || num7 || 'num...' || num ||'count_tot'||count_tot);
|
|
end if;
|
|
if (count_tot = 8) then
|
|
num8:= num + num8;
|
|
|
|
tot := num8 + tot;
|
|
totale8:= totale8 + num8;
|
|
--dbms_output.put_line('num 8 e...' || num8 || 'num...' || num ||'count_tot'||count_tot);
|
|
end if;
|
|
if (count_tot = 9) then
|
|
num9:= num + num9;
|
|
|
|
tot := num9 + tot;
|
|
totale9:= totale9 + num9;
|
|
--dbms_output.put_line('num 9 e...' || num9 || 'num...' || num ||'count_tot'||count_tot);
|
|
end if;
|
|
if (count_tot = 10) then
|
|
num10:= num + num10;
|
|
|
|
tot := num10 + tot;
|
|
totale10:= totale10 + num10;
|
|
--dbms_output.put_line('num 10 e...' || num10 || 'num...' || num ||'count_tot'||count_tot);
|
|
end if;
|
|
|
|
|
|
END LOOP;
|
|
CLOSE cur_select;
|
|
|
|
UTL_FILE.put_line (file1,operatore ||';'|| rs2 || tot ||';');
|
|
rs2 := '';
|
|
tot := 0;
|
|
num1 := 0;
|
|
num2 := 0;
|
|
num3 := 0;
|
|
num4 := 0;
|
|
num5 := 0;
|
|
num6 := 0;
|
|
num7 := 0;
|
|
num8 := 0;
|
|
num9 := 0;
|
|
num10 := 0;
|
|
|
|
END LOOP;
|
|
--totale := 0;
|
|
totale:= totale1+totale2+totale3+totale4+totale5+totale6+totale7+totale8+totale9+totale10;
|
|
UTL_FILE.put_line (file1,'TOTALE;'|| totale1 || ';'|| totale2 || ';'|| totale3 || ';'|| totale4 || ';'|| totale5 || ';'|| totale ||';');
|
|
-- UTL_FILE.put_line (file1, arr(count_tot));
|
|
--dbms_output.put_line('ciao fine loop ');
|
|
|
|
CLOSE cur_recipient;
|
|
|
|
|
|
--rs1:= rs1;
|
|
--rs2:= rs2 || totale ||';';
|
|
--UTL_FILE.put_line (file1,rs1);
|
|
--UTL_FILE.put_line (file1,rs2);
|
|
UTL_FILE.fflush (file1);
|
|
UTL_FILE.fclose (file1);
|
|
exception
|
|
WHEN NO_DATA_FOUND
|
|
THEN
|
|
null;
|
|
when others then
|
|
DBMS_OUTPUT.PUT_LINE(sqlerrm);
|
|
END;
|
|
end;
|
|
/
|
|
exit;
|
|
|