DYNAMIC RESULT SETS 1
LANGUAGE SQL
 BEGIN
                         DECLARE crs CURSOR WITH RETURN FOR
					     SELECT pa.AliasName AS ProgramName,
					            ROUND(SUM(par.NumOfStatements) / 175.0, 1) AS CobolBFP,
								prg.ProgramID
					     FROM Paragraphs par
					          INNER JOIN Programs prg ON par.ProgramID = prg.ProgramID
							  INNER JOIN ProgramAliases pa ON prg.ProgramID = pa.ProgramId AND pa.AliasType = 0
					     WHERE par.UnreachablePara = 0
						      AND prg.ProgramTypeID = 1
					     GROUP BY pa.AliasName,
					              prg.ProgramTypeID,
								  prg.ProgramID
					     ORDER BY pa.AliasName;

				        OPEN crs;
				
END	
