Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- CREATE OR REPLACE PACKAGE kapel_info AS
- PROCEDURE kapel_bertuah_or_malang(p_id IN VARCHAR2, p_keputusannya OUT VARCHAR2);
- END kapel_info;
- CREATE OR REPLACE PACKAGE BODY kapel_info AS
- PROCEDURE kapel_bertuah_or_malang(p_id IN VARCHAR2, p_keputusannya OUT VARCHAR2) IS
- v_malang_tak VARCHAR2;
- CURSOR curkapel
- IS
- SELECT nama_laki, nama_bini, bini_lawa, bini_kaya, bini_beriman, bini_pisau_cukur
- FROM info_pasangan
- WHERE id_laki = p_id;
- reckapel curkapel%ROWTYPE;
- BEGIN
- FOR reckapel IN curkapel
- LOOP
- SELECT DECODE(reckapel.bini_lawa||reckapel.bini_kaya||reckapel.bini_beriman||reckapel.bini_pisau_cukur,
- 'YYYY',' adalah seorang laki yang amat BERTUAH',
- 'TTTT',' adalah laki yang paling MALANG di dunia',
- ' adalah laki separuh MALANG - :)')
- INTO v_malang_tak
- FROM sys.dual;
- p_keputusannya := reckapel.nama_laki||v_malang_tak;
- DBMS_OUTPUT.putline(p_keputusannya);
- END LOOP;
- END kapel_bertuah_or_malang;
- END kapel_info;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement