DYNAMIC RESULT SETS 1
LANGUAGE SQL
 BEGIN

	            BEGIN

					     DECLARE crs CURSOR WITH RETURN FOR
					      SELECT	 prgAlsxyz.ProgramID,
					            prgAlsxyz.AliasName AS ProgramName,
					            pth.PathStr,
					            occ1.StartRow,
					            CASE
					                WHEN pth.PathID = occ2.PathID
					                THEN 0
					                ELSE -1
					            END AS IsCopy
					     FROM Sections s
					          INNER JOIN Programs prg ON s.ProgramID = prg.ProgramID
					          INNER JOIN Occurrences occ1 ON s.OccurID = occ1.OccurID
					          INNER JOIN Paths pth ON occ1.PathID = pth.PathID
					          INNER JOIN Occurrences occ2 ON prg.OccurID = occ2.OccurID
							  INNER JOIN ProgramAliases prgAlsxyz ON prg.ProgramId = prgAlsxyz.ProgramID
								AND prgAlsxyz.AliasType = 0
						 WHERE prg.ProgramID IN (SELECT * FROM SESSION.numeric_param_temp)
					           AND s.SectionID NOT IN
											    (
												   SELECT s1.SectionID
												   FROM SourceComments sc
													   INNER JOIN Sections s1 ON sc.FollowingSectionId = s1.SectionID
													WHERE sc.PureCommentLineCount > 0
											    )
					     ORDER BY prgAlsxyz.AliasName,
					              pth.PathStr,
					              occ1.StartRow;
					
				        OPEN crs;
				
                END;
 		
END	
