(
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 calledFormDefinition.RootID CalledFormRootId,
					            sppaff.CalledFormNo,
					            sppaff.FormNo CallingFormNo,
					            spfdef.FormName CallingFormName,
					            spfdef.RootID AS CallingFormRootId,
					            spfdef.MenuCounter CallingMenuCounter,
					            spfdef.BlockCounter CallingBlockCounter,
					            sppaff.CalledBlockNo,
					            sppaff.PFNo,
					            sppaff.CommandLine
					     FROM SPNS_PFActionsForForm sppaff
					          INNER JOIN SPNS_FormDefinition spfdef ON sppaff.FormNo = spfdef.FormNo AND sppaff.RootID = spfdef.RootID
					          INNER JOIN SPNS_FormDefinition AS calledFormDefinition ON calledFormDefinition.FormNo = sppaff.CalledFormNo
					                                                                        AND calledFormDefinition.RootID = sppaff.RootID
					     WHERE calledFormDefinition.RootID = v_RootID
					            AND sppaff.CalledFormNo IN (SELECT * FROM SESSION.numeric_param_temp)	
					            AND sppaff.CalledBlockNo <> 0
					            AND sppaff.CalledBlockNo IS NOT NULL;

				        OPEN crs;
				
                END;
END ss	




