CREATE PROCEDURE Proc2()
VERSION V1
ISOLATION LEVEL CS
RESULT SETS 1
LANGUAGE SQL
BEGIN
DECLARE CRS1 CURSOR WITH RETURN FOR SELECT 0 AS ID FROM SYSIBM.SYSDUMMY1;
OPEN CRS1;
END

CREATE PROCEDURE Proc1()
VERSION V1
ISOLATION LEVEL CS
DYNAMIC RESULT SETS 1
LANGUAGE SQL
BEGIN
CALL Proc1;
END

CREATE PROCEDURE Proc1()
VERSION V1
ISOLATION LEVEL CS
DYNAMIC RESULT SETS 1
LANGUAGE SQL
BEGIN
DECLARE V_LOCATOR RESULT_SET_LOCATOR VARYING;
CALL Proc1;
ASSOCIATE RESULT SET LOCATORS (V_LOCATOR) WITH PROCEDURE INTERNAL.RETURN_ERROR;
ALLOCATE CRS2 CURSOR FOR RESULT SET V_LOCATOR;
END

FETCH FROM CRS2 INTO ...

WITH RETURN TO CLIENT

 WITH RETURN

WITH RETURN TO CALLER