(
IN p_Input_LinesNumber INTEGER
)
DYNAMIC RESULT SETS 1
LANGUAGE SQL
ss: BEGIN
            DECLARE v_Input_LinesNumber INTEGER;
            SET v_Input_LinesNumber = p_Input_LinesNumber;
           
	            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 SourceComments sc ON v.VarID = sc.FollowedByVarId
					          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 occ.StartRow >= 3
					          AND sc.LastEmptyLinesCount < v_Input_LinesNumber
					          AND prg.ProgramID IN (SELECT * FROM SESSION.numeric_param_temp)
					          AND v.iLevel = 1
					     ORDER BY prgAlsxyz.AliasName,
					              pth.PathStr,
					              occ.StartRow;
					       

				        OPEN crs;
				
                END;
 		           
END ss	



