CREATE OR REPLACE PROCEDURE MARIUSLR1.getResultSetExample1 ()
        LANGUAGE SQL
        DYNAMIC RESULT SETS 1
        SET OPTION DBGVIEW = *SOURCE,
                   USRPRF = *OWNER
BEGIN
    DECLARE C1 CURSOR FOR
        SELECT CUSNUM, LSTNAM, INIT, STREET
            FROM QIWS.QCUSTCDT;
    OPEN C1;
    RETURN;
END;

CALL MARIUSLR1.getResultSetExample1();

CREATE OR REPLACE PROCEDURE MARIUSLR1.getResultSetExample2 ()
        LANGUAGE Sql
        DYNAMIC RESULT SETS 1
        SET OPTION DBGVIEW = *SOURCE,
                   USRPRF = *OWNER
BEGIN
    DECLARE customerList CURSOR WITH RETURN TO CLIENT FOR
        SELECT CUSNUM,
               LSTNAM,
               INIT,
               STREET
            FROM QIWS.QCUSTCDT
            FOR READ ONLY;
    OPEN customerList;
END;


CALL MARIUSLR1.getResultSetExample2();