(
  IN  p_pack VARCHAR(10),
  IN  p_component VARCHAR(8),
  IN  p_componentType VARCHAR(3)
)
DYNAMIC RESULT SETS 1
LANGUAGE SQL
ss: BEGIN

                DECLARE v_pack VARCHAR(10);
                DECLARE v_component VARCHAR(8);
                DECLARE v_componentType VARCHAR(3);
  
	            BEGIN
              
					    DECLARE crs CURSOR WITH RETURN FOR	 
						SELECT lib.sourceLib
						FROM ZMF_CM_Libraries lib
						     INNER JOIN ZMF_CM_Components comp ON comp.LibID = lib.id
						     INNER JOIN ZMF_CM_PackagesVsComponentsProperties prop ON prop.InternalIDComponent = comp.ID
						     INNER JOIN ZMF_CM_Packages pack ON pack.Id = prop.InternalIDPackage
						WHERE UPPER(pack.package) = v_pack
						      AND comp.ID IN
												(
												    SELECT comp.ID
												    FROM ZMF_CM_Components comp
												         INNER JOIN ZMF_CM_ComponentsTypes tp ON tp.ID = comp.typeid
												    WHERE UPPER(comp.component) = v_component
												          AND UPPER(tp.componentType) = v_componentType
												); 
			            
			           

			            SET v_pack = UPPER(p_pack);
			            SET v_component = UPPER(p_component);
			            SET v_componentType = UPPER(p_componentType);


                        OPEN crs;
                        
                  END;       
 END ss 