(
IN p_RootID INTEGER
)
DYNAMIC RESULT SETS 1
LANGUAGE SQL
 BEGIN

            DECLARE v_RootID INTEGER;
            SET v_RootID = p_RootID;

	            BEGIN
					         DECLARE crs CURSOR WITH RETURN FOR
							 SELECT sppd.RootID,
						            sppd.FormNo OutputForm,
						            sppd.ProgramNo,
						            sppd.ProgramName,
						            sppd.ProgramID
						     FROM SPNS_ProgramDefinition sppd
						     WHERE sppd.RootID = v_RootID
						          AND sppd.FormNo IN (SELECT * FROM SESSION.numeric_param_temp) ;						     					
						
				             OPEN crs;
				
                END;
END	
