/* Cria registro tipo "A" */
SET TERM ^ ;
CREATE FUCTION 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 ^