DYNAMIC RESULT SETS 1
LANGUAGE SQL
ss: BEGIN

					     DECLARE crs CURSOR WITH RETURN FOR
						 SELECT DISTINCT
					            ist.SetName,
					            isc.SchemaName
					     FROM IdmsSchema isc 
					          INNER JOIN IdmsSubschema iss ON isc.ID = iss.SchemaId
					          INNER JOIN IdmsSubschemaSets ist ON iss.ID = ist.SubschemaId
					          INNER JOIN StatementReference sr ON ist.ID = sr.ResourceID
					     WHERE sr.ResourceType = 78
					     ORDER BY ist.SetName,
					              isc.SchemaName;		  
						 
						 OPEN crs;
				
END ss	


