sample oracle stored procedure

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;