CREATE OR ALTER PROCEDURE TL(
  say DOUBLE PRECISION)
RETURNS(
  sonuc VARCHAR(255))
AS
  DECLARE tum       DOUBLE PRECISION = 0;
  DECLARE tam       BIGINT           = 0;
  DECLARE kurus     SMALLINT         = 0;  
  -- declare sayi_yonu varchar(6)       = '';
  DECLARE tl_birim  CHAR(2)          = '';
  DECLARE krs_birim CHAR(2)          = '';  
  DECLARE tmp       VARCHAR(255)     = '';
BEGIN 
  -- sayi_yonu = iif(sign(say) = 1, '', 'Eksi /');
  tum = round(abs(say), 2);
  tam = trunc(tum, 0);
  kurus = (tum - tam) * 100;
 
  tl_birim = iif(tam = 0, '', 'TL');
  krs_birim = iif(kurus = 0, '', 'KR'); 
 
  EXECUTE PROCEDURE ceviri(:tam) returning_values(:tmp); 
  sonuc = tmp || tl_birim;
 
  EXECUTE PROCEDURE ceviri(:kurus) returning_values(:tmp);
  tmp = sonuc ||:tmp || krs_birim;
 
  -- sonuc = :sayi_yonu || trim(:tmp);
  sonuc = TRIM(:tmp);
 /* select için */
 -- suspend;
END;

CREATE OR ALTER PROCEDURE ceviri(
  say NUMERIC(15, 0))
RETURNS(
  sonuc VARCHAR(255))
AS
  DECLARE variable birler VARCHAR(10)  = '';
  DECLARE variable onlar  VARCHAR(10)  = '';
  DECLARE variable yuzler VARCHAR(10)  = '';
  DECLARE variable diger  VARCHAR(10)  = '';
  DECLARE variable v_say  VARCHAR(15)  = '';
  DECLARE variable tmp    VARCHAR(255) = '';
  DECLARE variable s      SMALLINT     = 0;
  DECLARE variable c1     SMALLINT     = 0;
  DECLARE variable c2     SMALLINT     = 0;
  DECLARE variable c3     SMALLINT     = 0;
BEGIN 
  sonuc = ''; 
  v_say = lpad(say, 15, '0'); 
  while (:s < 5) do
    BEGIN
      s = :s + 1;   
 
      c1 = SUBSTRING(:v_say FROM (:s * 3)     FOR 1);
      c2 = SUBSTRING(:v_say FROM (:s * 3) - 1 FOR 1);
      c3 = SUBSTRING(:v_say FROM (:s * 3) - 2 FOR 1);
 
      SELECT birler FROM metinler WHERE id = :c1 INTO :birler;
      SELECT onlar  FROM metinler WHERE id = :c2 INTO :onlar;
      SELECT yuzler FROM metinler WHERE id = :c3 INTO :yuzler;
      SELECT diger  FROM metinler WHERE id = :s  INTO :diger;
 
      tmp = :yuzler || :onlar || :birler;	 
 
      IF (tmp <> '') THEN
        BEGIN
          IF ((s = 4) AND (tmp = 'Bir')) THEN
            tmp = 'Bin';
          ELSE 
            tmp = :tmp || :diger;
            sonuc = :sonuc || :tmp; 
        END        
    END    
  /* Select için */
  -- suspend;  
END;

CREATE PROCEDURE s_gir_durum
RETURNS(
u_id INTEGER,
gir_miktar INTEGER,
durum INTEGER)
 AS
DECLARE variable stk_mevcut INTEGER;
BEGIN
   stk_mevcut=0;
   FOR
   SELECT urun_durum.u_id,urun_giris.gir_miktar FROM urun_giris, urun_durum
   INTO :u_id, :gir_miktar do
   BEGIN
   stk_mevcut=stk_mevcut + gir_miktar;
    durum=stk_mevcut;
    suspend;
END
END

/* ZEKİ GÜRSOY © 2009 */
/* Script bittiğinde connection da otomatik
   kapanacaktır. */
 
-- Yeni database..
CREATE DATABASE 'C:\zeki.fdb'
USER 'SYSDBA'
PASSWORD 'masterkey'
PAGE_SIZE = 2048
DEFAULT CHARACTER SET WIN1254;
 
-- Tablo yapmak için bağlantı kur..
CONNECT 'C:\zeki.fdb'
   USER 'SYSDBA'
   PASSWORD 'masterkey';
 
-- Tablo..
CREATE TABLE SATISLAR (
  SATID INTEGER,
  SATIS NUMERIC(18, 2));
 
-- ID alanı indexlenir..
CREATE INDEX INDEXIM ON SATISLAR(SATID);
 
/* Procedure' ler..
    Firebird' de iki farklı cursor kullanımı vardır:
    1- For-Each yapısı,
    2- Fetch (Explicit) cursor */
SET TERM ^;
 
-- For-Each yapı..
CREATE PROCEDURE BAKIYELER
RETURNS(
  SATID INTEGER,
  SATIS NUMERIC(18, 2),
  BAKIYE NUMERIC(18, 2))
AS
DECLARE VARIABLE DYN_BAKIYE NUMERIC(18, 2);
BEGIN
  DYN_BAKIYE = 0.00;
  FOR 
   SELECT SATID, SATIS FROM SATISLAR
   INTO :SATID, :SATIS DO
    BEGIN
      DYN_BAKIYE = DYN_BAKIYE + SATIS;
      BAKIYE = DYN_BAKIYE;
    SUSPEND;
    END
 
END^
 
-- Fetch yapı..
CREATE PROCEDURE BAKIYELER2
RETURNS(
  SATID INTEGER,
  SATIS NUMERIC(18, 2),
  BAKIYE NUMERIC(18, 2))
AS
DECLARE VARIABLE DYN_BAKIYE NUMERIC(18, 2);
DECLARE C CURSOR FOR
(SELECT SATID, SATIS FROM SATISLAR);
BEGIN
DYN_BAKIYE = 0.00;
OPEN C;  
 WHILE (1 = 1) DO
    BEGIN
    FETCH C INTO :SATID, :SATIS;
    IF (ROW_COUNT = 0) THEN LEAVE;
      DYN_BAKIYE = DYN_BAKIYE + SATIS;
      BAKIYE = DYN_BAKIYE;
    SUSPEND;
    END
  CLOSE C;
END^
 
SET TERM ; ^

-- 50.000 adet 10 ile 100 arası rasgele ondalık sayılar..
EXECUTE BLOCK
AS
DECLARE I INT = 1;
BEGIN
  WHILE (I <= 50000) DO
    BEGIN
    INSERT INTO SATISLAR VALUES (:I, ROUND((90 * RAND()) + 10, 2));
    I = I + 1;
  END
END;

EXECUTE BLOCK
RETURNS(SATID INTEGER,
SATIS NUMERIC(18, 2),
BAKIYE NUMERIC(18, 2))
AS
DECLARE VARIABLE DYN_BAKIYE NUMERIC(18, 2);
BEGIN
  DYN_BAKIYE = 0.00;
  FOR
   SELECT SATID, SATIS FROM SATISLAR
   INTO :SATID, :SATIS DO
    BEGIN
      DYN_BAKIYE = DYN_BAKIYE + SATIS;
      BAKIYE = DYN_BAKIYE;
    SUSPEND;
    END
END;

EXECUTE BLOCK
RETURNS(SATID INTEGER,
SATIS NUMERIC(18, 2),
BAKIYE NUMERIC(18, 2))
AS
DECLARE VARIABLE DYN_BAKIYE NUMERIC(18, 2);
DECLARE C  CURSOR FOR
(SELECT SATID, SATIS
 FROM SATISLAR);
BEGIN
DYN_BAKIYE = 0.00;
OPEN C;
  WHILE (1 = 1) DO
    BEGIN
    FETCH C INTO :SATID, :SATIS;
    IF (ROW_COUNT = 0) THEN LEAVE;
    DYN_BAKIYE = DYN_BAKIYE + SATIS;
    BAKIYE = DYN_BAKIYE; 
    SUSPEND;   
  END
  CLOSE C;
END;