SET TERM ^ ;
CREATE FUNCTION F_REG_TIPO_A (CODBANCO INTEGER)
RETURNS VARCHAR(150) CHARACTER SET NONE
AS
DECLARE VReg VARCHAR(150);
  DECLARE VNomeBanco CHAR(20);
  DECLARE VCodBanco SMALLINT;
  DECLARE VConvenio CHAR(20);
  DECLARE VSequencia INTEGER;
  DECLARE VEmpresa CHAR(20);
  DECLARE VDataAtual CHAR(8);
BEGIN
  -- se o codigo do banco nao existir retornar erro
  SELECT FIRST 1 NOME FROM EMPRESA INTO VEmpresa;
  SELECT NOME, COD_FEBRABAN, COD_CONVENIO, SEQUENCIA_ENVIO FROM BANCO
  WHERE CODIGO = :codBanco
  INTO VNomeBanco, VCodBanco, VConvenio, VSequencia;
  VReg = 'A' || '1' || RPAD(VConvenio, 20) || RPAD(VEmpresa, 20) ||
    LPAD(TRIM(CAST(VCodBanco AS CHAR(3))), 3, '0') || LPAD(VNomeBanco, 20);
  SELECT CAST(EXTRACT(YEAR FROM CAST('NOW' AS DATE))*10000 +
         EXTRACT(MONTH FROM CAST('NOW' AS DATE))*100 +
         EXTRACT(DAY  FROM CAST('NOW' AS DATE)) AS VARCHAR(8))
  FROM rdb$database
  INTO VDataAtual;
  VReg = VReg || VDataAtual;
  VSequencia = VSequencia + 1;
  VReg = VReg || LPAD(TRIM(CAST(VSequencia AS CHAR(6))), 6, '0') ||
    '06' || 'DEBITO AUTOMATICO' || RPAD(' ', 52, ' ');
  RETURN VReg;
END ^