Migrating from Interbase to DB2

Hi,

Why is there no results returned when I run this stored procedure, which supposed to return me 5 records,


CREATE PROCEDURE COMPANY_MAP_LIST3
( IN com_id INT, IN lan_id INT )

RESULT SET 1

BEGIN

DECLARE cma_id INT;
DECLARE cma_com_id INT;
DECLARE cma_psc_id INT;
DECLARE psc_code CHAR(3);
DECLARE psc_name VARCHAR(40);
DECLARE prc_id INT;
DECLARE prc_code CHAR(1);
DECLARE prc_name VARCHAR(40);
DECLARE psc_cat_code CHAR(2);
DECLARE psc_id INT;
DECLARE SQLSTATE CHAR(5) DEFAULT '00000';

DECLARE c1 CURSOR WITH RETURN FOR
SELECT CMA_ID, CMA_COM_ID, CMA_PSC_ID, PSC_CODE, PSC_NAME,
PRODCATNO, CATEGORYCODE, CATEGORYNAME, PSC_CAT_CODE, PSC_ID
FROM COMPANY_MAP, PRODUCT_SUBCATEGORY, PRODUCTCATEGORIES
WHERE CMA_COM_ID = com_id
AND CMA_PSC_ID = PSC_ID
AND PSC_PRC_ID = PRODCATNO;


OPEN c1;

FETCH c1 INTO cma_id, cma_com_id, cma_psc_id, psc_code, psc_name,
prc_id, prc_code, prc_name, psc_cat_code, psc_id;

WHILE (SQLSTATE = '00000') DO

IF (lan_id <> 1) THEN
SELECT LOX_NAME INTO psc_name
FROM LOOKUP_COMPLEX
WHERE LOX_SYSTEM_ID = psc_id
AND LOX_LOT_CODE = 'PSC'
AND LOX_LAN_ID = lan_id;

SELECT LOX_NAME INTO prc_name
FROM LOOKUP_COMPLEX
WHERE LOX_SYSTEM_ID = prc_id
AND LOX_LOT_CODE = 'PRC'
AND LOX_LAN_ID = lan_id;

END IF;

FETCH c1 INTO cma_id, cma_com_id, cma_psc_id, psc_code, psc_name, prc_id, prc_code, prc_name, psc_cat_code, psc_id;


END WHILE;

END


Thanks in advance.