// простейший пакет с процедурой , которую можно использовать и в Delphi
// и в Oracle Forms и JBuilder и для систем очетов Cristal Reports и Oracle Reports


CREATE OR REPLACE
PACKAGE testaf AS
TYPE V2 IS RECORD
(
OT_ID OTDEL.OT_ID%TYPE,
OT_NAME OTDEL.OT_NAME%TYPE,
OT_ADDRESS OTDEL.OT_NAME%TYPE

);
TYPE OC IS REF CURSOR RETURN V2;
procedure OTDELINF (CR IN OUT OC);
end;
/


CREATE OR REPLACE
PACKAGE BODY testaf
AS
procedure OTDELINF
(CR IN OUT OC) IS
BEGIN
open CR for
SELECT OT_ID , OT_NAME , OT_ADDRESS
FROM OTDEL ;
END;

END;
/