Fórum Substring via SQL - UDF´s #55087

CREATE PROCEDURE LISTAGEM_LIGACOES
RETURNS (
    X_DATA VARCHAR(30),
    X_DESTINATARIO VARCHAR(60),
    X_TELEFONE1 VARCHAR(20),
    X_SOLICITANTE VARCHAR(60),
    X_TIPO VARCHAR(20),
    X_REALIZADA char(3))
AS
begin                    /*2006-02-06 10:00:0000*/
                         /*123456789012345678901*/
 for SELECT
      substr(CAST(AGL.aglig_data AS VARCHAR(30)),9,2)||´.´||
      substr(CAST(AGL.aglig_data AS VARCHAR(30)),6,2)||´.´||
      substr(CAST(AGL.aglig_data AS VARCHAR(30)),1,4)||´.´||
      substr(CAST(AGL.aglig_data AS VARCHAR(30)),12,13),
 AGL.aglig_destinatario, AGL.aglig_tel_destino,SOL.sol_nome,
 SOL.sol_tipo,AGL.aglig_realizada
 FROM agenda_ligacoes AGL

 LEFT JOIN SOLICITANTES_TELEFONE SOL on  SOL.sol_id=AGL.aglig_sol_id
 ORDER BY AGL.aglig_data

 INTO :x_data,:x_destinatario,:x_telefone1,:x_solicitante,:x_tipo,:x_realizada
  /* Procedure Text */
 DO BEGIN
    if (X_REALIZADA=´S´) then x_realizada=´Sim´;
    if (x_realizada=´N´) then x_realizada=´Não´;
  suspend;
END
end

DECLARE EXTERNAL FUNCTION SUBSTR
    CSTRING(80) CHARACTER SET NONE,
    SMALLINT,
    SMALLINT
RETURNS CSTRING(80) FREE_IT
ENTRY_POINT ´IB_UDF_substr´ MODULE_NAME ´ib_udf´