(
  IN p_Input_fileName VARCHAR(250)
)
DYNAMIC RESULT SETS 1
LANGUAGE SQL
 BEGIN

            DECLARE v_Input_fileName VARCHAR(250);
            SET v_Input_fileName =  p_Input_fileName;

	            BEGIN

					     DECLARE crs CURSOR WITH RETURN FOR	 				
					     SELECT pgm.AliasName AS ProgramName,
					            v.VarName,
					            v.VarID,
					            f.FileID
					     FROM VariablesRelatedToFiles vrtf
					          INNER JOIN Variables v ON vrtf.VariableId = v.VarID
					          INNER JOIN Files f ON vrtf.FileId = f.FileID
							  LEFT OUTER JOIN ProgramAliases pgm ON pgm.ProgramID = f.ProgID AND pgm.AliasType = 0
					     WHERE
						      v.iLevel = 1
                              AND							
								  (
								   pgm.ProgramID IN (SELECT * FROM SESSION.numeric_param_temp)
								   OR
								   NOT EXISTS (SELECT 0 FROM SESSION.numeric_param_temp)
								  )
					          AND
							      (
					               f.Name = v_Input_fileName
					               OR
					               f.Name LIKE '%-' || v_Input_fileName
					               )
					          ;
					

                         OPEN crs;

                  END;
 END	
