PLSQL P7

/*
 Nama   : Izzeldin Addarda
 NIM    : 41519010045
*/
/* Enable server output */
SET SERVEROUTPUT ON;
SET ECHO ON;
/* CREATE TABLE karyawan */
CREATE TABLE karyawan (
    nip CHAR(3),
    nama VARCHAR(10),
    gaji NUMBER
);
/* show karyawan */
DESC karyawan
/* Insert data ke table karyawan */
INSERT INTO karyawan VALUES ('111', 'Amir', 10);
/* %type attribute */
DECLARE
    v_nama karyawan.nama%TYPE;
BEGIN
    v_nama := 'Amir';
    DBMS_OUTPUT.PUT_LINE(v_nama);
END;
/
/* %rowTYPE */
DECLARE
    emp karyawan%ROWTYPE;
BEGIN
    emp.nip := 'AAA';
    emp.nama := 'Budi';
    emp.gaji:= 1000;
    DBMS_OUTPUT.PUT_LINE('Nip   : '||emp.nip);
    DBMS_OUTPUT.PUT_LINE('Nama  : '||emp.nama);
    DBMS_OUTPUT.PUT_LINE('Gaji  : '||emp.gaji);
END;
/
/* USER DEFINED RECORD */
DECLARE
    TYPE kar_type IS RECORD
    (
        v_nama karyawan.NAMA%TYPE,
        v_gaji NUMBER
    );
    emp kar_type;
BEGIN
    emp.v_nama := 'Amir';
    emp.v_gaji := 1000;
    DBMS_OUTPUT.PUT_LINE('Nama  : '||emp.v_nama);
    DBMS_OUTPUT.PUT_LINE('Gaji  : '||emp.v_gaji);
END;
/
/* MENAMPILKAN IDROW (ROWID) */
SELECT * FROM karyawan;
    /* PART 1 */
DECLARE
    v_nip CHAR(3);
    v_nama karyawan.nama%TYPE;
    v_gaji NUMBER;
BEGIN
    SELECT nip, nama, gaji INTO v_nip, v_nama, v_gaji FROM karyawan;
    DBMS_OUTPUT.PUT_LINE('Nip   : '||v_nip);
    DBMS_OUTPUT.PUT_LINE('Nama  : '||v_nama);
    DBMS_OUTPUT.PUT_LINE('Gaji  : '||v_gaji);
END;
/
    /* PART 2 */
DECLARE
    emp karyawan%ROWTYPE;
BEGIN
    SELECT nip, nama, gaji INTO emp FROM karyawan;
    DBMS_OUTPUT.PUT_LINE('Nip   : '||emp.nip);
    DBMS_OUTPUT.PUT_LINE('Nama  : '||emp.nama);
    DBMS_OUTPUT.PUT_LINE('Gaji  : '||emp.gaji);
END;
/
    /* PART 3 */
DECLARE
    TYPE kar_type IS RECORD
    (
        v_nip CHAR(3),
        v_nama VARCHAR(10),
        v_gaji NUMBER
    );
    emp kar_type;
BEGIN
    SELECT * INTO emp FROM karyawan;
    DBMS_OUTPUT.PUT_LINE('Nip   : '||emp.v_nip);
    DBMS_OUTPUT.PUT_LINE('Nama  : '||emp.v_nama);
    DBMS_OUTPUT.PUT_LINE('Gaji  : '||emp.v_gaji);
END;
/
    /* PART 4 */
DECLARE
    TYPE alamat_type IS RECORD
    (
        kota VARCHAR2(10),
        propinsi VARCHAR2(10),
        negara VARCHAR2(10)
    );
    TYPE customer_type IS RECORD
    (
        cust_id NUMBER,
        nama VARCHAR2(10),
        alamat alamat_type
    );
    amir customer_type;
BEGIN
    amir.cust_id := 10;
    amir.nama := 'Amir M';
    amir.alamat.kota := 'Bandung';
    amir.alamat.negara := 'ID';
END;
/
    /* PART 5 */
DECLARE
    TYPE alamat_type IS RECORD
    (
        kota VARCHAR2(10),
        propinsi VARCHAR2(10),
        negara VARCHAR2(10)
    );
    TYPE customer_type IS RECORD
    (
        cust_id NUMBER,
        nama VARCHAR2(10),
        alamat alamat_type
    );
    amir customer_type;
BEGIN
    amir.cust_id := 10;
    amir.nama := 'Amir M';
    amir.alamat.kota := 'Bandung';
    amir.alamat.propinsi := 'Jabar';
    amir.alamat.negara := 'ID';

    DBMS_OUTPUT.PUT_LINE('Cust Id   : '||amir.cust_id);
    DBMS_OUTPUT.PUT_LINE('Nama      : '||amir.nama);
    DBMS_OUTPUT.PUT_LINE('Kota      : '||amir.alamat.kota);
    DBMS_OUTPUT.PUT_LINE('Propinsi  : '||amir.alamat.propinsi);
    DBMS_OUTPUT.PUT_LINE('Negara    : '||amir.alamat.negara);
END;
/