Laporan DI New

SELECT
b.berkasnomor,b.berkasyear,b.prosedurdesc,di.dinomor DI301Nomor,to_char(di.ditanggal,'dd-MM-yyyy')DI301Tgl,
DI208.dinomor DI208Nomor,DI208.ditanggal,
decode(b.berkasstatus,0,'Selesai',1,'Proses',2,'Blokir',3,'Batal',4,'Ditutup',
55,'Jatuh Tempo',56,'Belum Diumumkan',57,'Sedang Diumumkan',58,'Selesai Diumumkan',
99,'Berkas Manual')Status
FROM berkas b,dibook di,regdi rd,
(SELECT rd.regid,rd.dinomor,to_char(rd.ditanggal,'dd-MM-yyyy')ditanggal FROM regdi rd
WHERE rd.dikode = 'DI208')DI208
WHERE di.berkasid = b.berkasid
AND di.dikode = 'DI301'
AND di.dikode = rd.dikode(+)
AND di.dinomor = rd.dinomor(+)
AND di.ditahun = rd.ditahun(+)
AND rd.regid = DI208.regid(+)
AND b.prosedurdesc like '%Pemecahan%'
AND b.creationdate between to_date('01/01/2007','dd-mm-yyyy') and to_date('31/01/2007','dd-mm-yyyy')
order by b.berkasnomor,b.berkasyear;