create or alter procedure test2
returns (
    basket_sum$ double precision)
as
declare id_doc$ char(16) character set octets;
begin
    :id_doc$ = x'7bf6f1cb8f7c435fb4be436aaf0d58e0';
    :basket_sum$ = coalesce((select sum(price * quantity) from doc_details where id_doc = :id_doc$), 0);
    suspend;
end

create or alter procedure test2
returns (
    basket_sum$ double precision)
AS
declare id_doc$ dguid;--CREATE DOMAIN DGUID AS CHAR(16) CHARACTER SET OCTETS
--declare id_doc$ char(16) character set octets;
begin
    :id_doc$ = x'7bf6f1cb8f7c435fb4be436aaf0d58e0';
    :basket_sum$ = coalesce((select sum(price * quantity) from doc_details where id_doc = :id_doc$), 0);
    suspend;
end