DYNAMIC RESULT SETS 1
LANGUAGE SQL
 BEGIN

					     DECLARE crs CURSOR WITH RETURN FOR
					     SELECT ROUND(SUM(par.NumOfStatements) / 175.0, 1) AS CobolBFP
					     FROM Paragraphs par
					          INNER JOIN Programs pgm ON par.ProgramID = pgm.ProgramID
					     WHERE pgm.ProgramTypeID = 1
					          AND par.UnreachablePara = 0;
											
						 OPEN crs;
				
END	
