(
IN p_RootID INTEGER
)
DYNAMIC RESULT SETS 1
LANGUAGE SQL
ss: BEGIN
            
            DECLARE v_RootID INTEGER;
            SET v_RootID = p_RootID; 

	            BEGIN
					    DECLARE crs CURSOR WITH RETURN FOR
					    SELECT  callingFormDefinition.RootID,
					            sppaff.FormNo,
					            sppaff.CalledFormNo,
					            spfdef.FormName CalledFormName,
					            spfdef.RootID AS CalledFormRootId,
					            spfdef.MenuCounter CalledMenuCounter,
					            spfdef.BlockCounter CalledBlockCounter,
					            sppaff.CalledBlockNo,
					            sppaff.PFNo,
					            sppaff.CommandLine
					     FROM SPNS_PFActionsForForm sppaff
					          INNER JOIN SPNS_FormDefinition spfdef ON sppaff.CalledFormNo = spfdef.FormNo
					                                                AND sppaff.RootID = spfdef.RootID
					          INNER JOIN SPNS_FormDefinition AS callingFormDefinition ON callingFormDefinition.FormNo = sppaff.FormNo
					                                                                         AND callingFormDefinition.RootID = sppaff.RootID
					     WHERE 
						      callingFormDefinition.RootID = v_RootID
					          AND sppaff.FormNo IN (SELECT * FROM SESSION.numeric_param_temp)					
					          AND sppaff.CalledFormNo <> 0
					          AND sppaff.CalledFormNo IS NOT NULL
					          AND sppaff.CalledBlockNo <> 0
					          AND sppaff.CalledBlockNo IS NOT NULL;

				        OPEN crs;
				
                END;
END ss	




