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

            DECLARE v_Input_fileName VARCHAR(250);
            SET v_Input_fileName = UPPER(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 
                                  (
                                   UPPER(f.Name) = v_Input_fileName
                                   OR 
                                   UPPER(f.Name) LIKE '%-' || v_Input_fileName
                                   )
                              ;
					    

                         OPEN crs;
                        
                  END;       
 END ss	
 


