CREATE PROCEDURE GET_CUR_DATA 
RETURNS (
    PCUR_MONTH VARCHAR( 2 ),
    PCUR_YEAR VARCHAR( 2 ))
AS
begin
   PCUR_YEAR=substring (extract(YEAR from CURRENT_DATE) from  3  for  2 );
   PCUR_MONTH=extract(MONTH from CURRENT_DATE);
end

CREATE PROCEDURE GET_DATA 
RETURNS (
    CUR_DATA TIMESTAMP,
    CUR_TIME TIMESTAMP,
    CUR_MONTH VARCHAR( 2 ))
AS
begin
 CUR_TIME=CURRENT_TIME;
 CUR_DATA=CURRENT_DATE;
 CUR_MONTH=extract(MONTH from CURRENT_DATE);
end

CREATE PROCEDURE GET_CUR_DATA 
RETURNS (
    PCUR_DATA VARCHAR( 10 ))
AS
begin
 SELECT CAST('TODAY' AS DATE) FROM rdb$database into :PCUR_DATA;
 suspend;
end