Working w/ type

Working with type

Berikut adalah PL/SQL untuk menginsert rekor dengan menggunakan type:

DECLARE
CURSOR c_tabel IS
SELECT tablename
FROM title
ORDER BY 1;

CURSOR c_kolom (v_tablename VARCHAR2) IS
SELECT c.name_field,
c.descripsi
FROM alias c
WHERE c.id_name = v_tablename
ORDER BY 1;

v_errorcode NUMBER;
v_errortext VARCHAR2 (100);
semua_ikan VARCHAR2 (1800);
cn_h INTEGER;
cn_i INTEGER;

TYPE tab_char IS TABLE OF VARCHAR2 (1800)
INDEX BY BINARY_INTEGER;

t_char tab_char;



BEGIN
cn_h := 0;

FOR h IN c_tabel LOOP
cn_h := cn_h + 1;
semua_ikan := '';

FOR i IN c_kolom (h.tablename) LOOP
semua_ikan :=
semua_ikan || ' '
|| i.name_field || ' '
|| i.descripsi;
END LOOP;

t_char (cn_h) := semua_ikan;

DBMS_OUTPUT.put_line
(LPAD (cn_h,
4,
CHR (32)
)
|| '.'
|| RPAD
(h.tablename,
30,
'-'
)
|| ': '
|| t_char (cn_h)
);

INSERT INTO dbo_bakox_lama.a_judul
(ID, nama_tabel,
deret_kolom
)
VALUES (cn_h, h.tablename,
t_char (cn_h)
);

COMMIT;
END LOOP;
END;

Skrip akan berhasil menginsert rekord ke tabel a_judul seperti pada tampilan berikut:

280|TB08NewPod15|B8R813A Situs Bersejarah
| |Gedung (Desa) B8R813B Situs
| |Bersejarah Jembatan (Desa)
| |B8R813C Situs Bersejarah Candi
| |(Desa) B8R813D Situs
| |Bersejarah Pelabuhan (Desa)
| |B8R813E Situs Bersejarah
| |Stasuin (Desa) B8R813F Situs
| |Bersejarah Spiritual (Desa)
| |B8R813G Situs Bersejarah
| |Lainnya (Desa)
281|TB08NewPod2 |B8R801E Tempat Ibadah Pura
| |(Unit) B8R801F Tempat Ibadah
| |Wihara (Unit) B8R801G Tempat
| |Ibadah Gereja Kelenteng (Unit)
282|TB08NewPod3 |B8R802A1 Institusi Sosial
| |Pramuka (Desa) B8R802A2
| |Institusi Sosial Karang Taruna
| |(Desa) B8R802A3 Institusi
| |Sosial PKK (Desa) B8R802A4
| |Institusi Sosial Majlis Taklim
| |(Desa)
283|TB08NewPod4 |B8R802A5 Institusi Sosial
| |Panti Asuhan (Desa) B8R802A6
| |Institusi Sosial Panti jompo
| |(Desa) B8R802A7 Institusi
| |Sosial Panti Cacat (Desa)
284|TB08NewPod5 |B8R802B1 Kegiatan Masyarakat
| |Arisan (Desa) B8R802B2
| |Kegiatan Masyarakat Gotong
| |Royong (Desa) B8R802B3
| |Kegiatan Masyarakat ZIS (Desa)