DYNAMIC RESULT SETS 1
LANGUAGE SQL
 BEGIN

	            BEGIN
					    DECLARE crs CURSOR WITH RETURN FOR
		           	    SELECT	 prgAlsxyz.ProgramID,
					            prgAlsxyz.AliasName AS ProgramName,
								  pth.PathStr,
								  occ.StartRow,
								  v.IsCopy
						    FROM Variables v
							   INNER JOIN Occurrences occ ON v.OccurID = occ.OccurID
							   INNER JOIN Paths pth ON occ.PathID = pth.PathID
							   INNER JOIN Programs prg ON v.ProgIDReference = prg.ProgramID
						       INNER JOIN ProgramAliases prgAlsxyz ON prg.ProgramId = prgAlsxyz.ProgramID
									AND prgAlsxyz.AliasType = 0
						 	WHERE prg.ProgramID IN (SELECT * FROM SESSION.numeric_param_temp)
						          AND v.VarID NOT IN
													 (
														SELECT FollowedByVarId
														FROM SourceComments
						 								WHERE FollowedByVarId IS NOT NULL
													  )
							      AND prg.ProgramTypeID = 1
							      AND v.iLevel = 1
						    ORDER BY prgAlsxyz.AliasName,
								  pth.PathStr,
								  occ.StartRow;

				        OPEN crs;
				
                END;
 		
END	
