--#SET TERMINATOR @

CREATE OR replace PROCEDURE Defrag()
 RESULT SETS 1
  LANGUAGE SQL
BEGIN ATOMIC
DECLARE perc_frag  DECIMAL(10,2);
---запрашиваем статистику 
DECLARE stat1  CURSOR WITH HOLD WITH RETURN FOR 
--SELECT sum( nvl(curmem,1)  ) / count (nvl(curmem,1)) AS frag
SELECT CASE WHEN nvl(curmem,1)=1 THEN 1 ELSE 0 END  AS frag
FROM "MAXIMO".PSD_SESSION ms;
 -- SELECT * FROM dual;
---
  OPEN stat1;
END@