AS/400 - Procedimientos ORACLE -DB2 URGENTE

Hola Como estan espero que del todo muy bien
El problemilla que tengo y que es muy urgente es el siguiente:
Tengo el siguiente procedimiento en Oracle y necesito transcribirlo a
DB2 V4R4 SQL y aqui va el procedimiento en Oracle

CREATE PROCEDURE CE_COMBPERF0151(
nCodEmpresa IN number, nCodMenu IN number,
nCodCargo IN number, combo_perfil IN OUT combo_perfil_cur )
AS
BEGIN
IF( nCodCargo = 99999 ) THEN
OPEN combo_perfil FOR
SELECT DISTINCT a.CODIGO_PERFIL, a.descripcion_per
FROM GS_PERFILUSUARI a, GS_PERFILEMPRES b
WHERE b.CODIGO_EMPRESA = nCodEmpresa AND
b.ID_MENU_PADRE = nCodMenu AND
b.CODIGO_PERFIL = a.CODIGO_PERFIL
ORDER BY a.descripcion_per;
ELSE
OPEN combo_perfil FOR
SELECT DISTINCT a.CODIGO_PERFIL, a.descripcion_per
FROM GS_PERFILUSUARI a, GS_PERFILEMPRES b,
GS_PERFILCARGOS c
WHERE b.CODIGO_EMPRESA = nCodEmpresa AND
b.ID_MENU_PADRE = nCodMenu AND
c.CODIGO_PERFIL = b.CODIGO_PERFIL AND
c.CODIGO_CARGO = nCodCargo AND
b.CODIGO_PERFIL = a.CODIGO_PERFIL
ORDER BY a.DESCRIPCION_PER;
END IF;
END;
END;
/

Muy agradecido por la colaboración que me puedan prestar