MINI

files >> C:/SiakApp/InsertPencarian.sql
 set feedback off
set verify off
set pagesize 0
set linesize 500
set trimspool on
set termout on
set serveroutput on size 100000
truncate table BIODATA_WNI_PENCARIAN;
BEGIN
FOR ROW_APP IN(SELECT NO_PROP,NO_KAB,NO_KEC,NO_KEL,NAMA_KEL FROM SETUP_KEL WHERE NO_PROP=&1 AND NO_KAB=&2)
    LOOP
        BEGIN
            INSERT INTO BIODATA_WNI_PENCARIAN SELECT NIK,NAMA_LGKP,BIODATA_WNI.NO_KK,JENIS_KLMIN,STAT_HBKEL,FLOOR(MONTHS_BETWEEN(SYSDATE,TGL_LHR)/12) AS USIA,STAT_KWN,PDDK_AKH,
		JENIS_PKRJN,AGAMA,GOL_DRH,NAMA_LGKP_IBU,NAMA_LGKP_AYAH,
		DATA_KELUARGA.ALAMAT,DATA_KELUARGA.DUSUN,DATA_KELUARGA.NO_RT,
		DATA_KELUARGA.NO_RW,BIODATA_WNI.NO_PROP,BIODATA_WNI.NO_KAB,
		BIODATA_WNI.NO_KEC,BIODATA_WNI.NO_KEL,BIODATA_WNI.TGL_CETAK_KTP,BIODATA_WNI.TGL_LHR FROM BIODATA_WNI LEFT JOIN DATA_KELUARGA 
		ON(DATA_KELUARGA.NO_KK=BIODATA_WNI.NO_KK) WHERE BIODATA_WNI.NO_PROP=ROW_APP.NO_PROP 
		AND BIODATA_WNI.NO_KAB=ROW_APP.NO_KAB AND BIODATA_WNI.NO_KEC=ROW_APP.NO_KEC 
		AND BIODATA_WNI.NO_KEL=ROW_APP.NO_KEL AND FLAG_STATUS=0;
		dbms_output.put_line('DATA KELURAHAN ' || ROW_APP.NAMA_KEL || ' TELAH DIINSERT' );
            COMMIT;
	    	
       END; 
    END LOOP;
END;
/

begin
dbms_stats.gather_table_stats(ownname=> 'SIAKOFF', tabname=> 'BIODATA_WNI_PENCARIAN', estimate_percent => 30);
DBMS_STATS.gather_index_stats('SIAKOFF', 'BIODATA_WNI_PENCARIAN#CARI', estimate_percent => 30);
end;
/
delete SETUP_CONV where NAMA='SETUP PENCARIAN';
COMMIT;
INSERT INTO SETUP_CONV(NAMA,TIPE,DATE01) VALUES('SETUP PENCARIAN','1',SYSDATE);
COMMIT;
exit