DYNAMIC RESULT SETS 1
LANGUAGE SQL
 BEGIN

					    DECLARE crs CURSOR WITH RETURN FOR
						SELECT *
						FROM
						    (
						     SELECT
						            REPLACE(REPLACE(Files_1.Name, 'DISK-', ''), 'DATABASE-', '') AS DBFile
						     FROM StatementReference AS StatementReference_1
						          INNER JOIN Files AS Files_1 ON StatementReference_1.ResourceID = Files_1.FileID
						     WHERE StatementReference_1.ResourceType = 9
						          AND Files_1.TypeCode IN (8, 16)
						
							UNION
						
						     SELECT
						           smres.BasedOnDataset AS DBFile
						     FROM Programs AS Programs_1
						          INNER JOIN StatementReference sr ON Programs_1.ProgramID = sr.ResourceID
						          INNER JOIN SmartResources smres ON Programs_1.ProgramName = smres.FileName
						     WHERE sr.StatementType > 439
						          AND sr.StatementType < 490
						          AND sr.ResourceType = 5
						          AND Programs_1.ProgramTypeID = 4
								)src
						     ORDER BY src.DBFile;
															
						 OPEN crs;
				
END	
