(
  IN  p_Input_LevelIndentation88 INTEGER
)
DYNAMIC RESULT SETS 1
LANGUAGE SQL
ss: BEGIN

                DECLARE v_Input_LevelIndentation88 INTEGER;
            
	            BEGIN
              
					    DECLARE crs CURSOR WITH RETURN FOR	 
			            SELECT DISTINCT
					             v.ProgIDReference,
					            prgAlsxyz.AliasName AS ProgramName,
					            pth.PathStr,
					            occ.StartRow,
					            v.IsCopy
					     FROM Variables v
					          INNER JOIN VariablePos vp ON v.VarID = vp.VarId
					          INNER JOIN Variables v2 ON v.Father = v2.VarID
					          INNER JOIN VariablePos vp2 ON v2.VarID = vp2.VarId
					          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 v.iLevel = 88
					          AND vp.LevelColumn != 18
			                  AND (vp.LevelColumn - vp2.LevelColumn) != v_Input_LevelIndentation88 
			                  AND vp.LevelColumn < 19
					          AND v.ProgIDReference IN (SELECT * FROM SESSION.numeric_param_temp)
					     ORDER BY prgAlsxyz.AliasName,
					              pth.PathStr,
					              occ.StartRow;
			            
			            SET v_Input_LevelIndentation88 = p_Input_LevelIndentation88;

                        OPEN crs;
                        
                  END;       
 END ss
 
 
