DBUSER=db2admin
DBNAME=test
DBPASSWORD=ibmdb2

TARGET=counter.dll
DEF=counter.def
LIBS=db2api.lib

CPPOBJS= counter.obj
CFLAGS= -Z7 -O2 -G5 -c -W2 -D_X86_= 1  -DWIN32 -GR -GX
LINKFLAGS= /DEBUG /DLL

.SUFFIXES:
.SUFFIXES: .obj .sqx .cpp

.cpp.obj:
	cl $(CFLAGS) $*.cpp

.sqx.obj:
	echo CONNECT TO $(DBNAME) USER $(DBUSER) USING '$(DBPASSWORD)' > $*.db2
	echo PREP $*.sqx BINDFILE >> $*.db2
	echo BIND $*.bnd >> $*.db2
    @if exist $*.log del $*.log
    d:\sqllib\bin\db2clpex db2 -z $*.log -vf $*.db2
    type $*.log
	cl $(CFLAGS) $*.cxx

$(TARGET): $(CPPOBJS) Makefile $(DEF)
	link $(LINKFLAGS) -out:$(TARGET) $(SQXOBJS) $(CPPOBJS) $(LIBS) -def:$(DEF)
    copy $(TARGET) d:\sqllib\function

LIBRARY counter
EXPORTS counter

#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <sql.h>
#include <sqludf.h>


SQL_API_RC SQL_API_FN counter (
		SQLUDF_INTEGER *pIncrement,			//Входящее значение
		SQLUDF_INTEGER *pReturn,			//Возвращаемое значение
		SQLUDF_NULLIND *pIncrement_ind,		//NULL - индикатор для инкремента
		SQLUDF_NULLIND *pReturn_ind,		//NULL - индикатор для возвращаемой величины
		SQLUDF_TRAIL_ARGS_ALL
    )
{
    //По умолчанию размер scratchpad = 100  байт
    //Функция работает очень просто. В случае, если 
    //входящее значение - NULL, то счетчик сбрасывается в  0 
    //в противном случае значение счетчика увеличивается на 
    //значение переданное в параметре
    //Значение счетчика резидентно хранится в области
    //SCRATCHPAD размер которого задается оператором CREATE FUNCTION
    //на время выполнения SQL-запроса
    //и по умолчанию запоняется нулями
    //область SCRATCHPAD инициализируется для каждого
    //упоминания counter в SQL-запросе

    (*((long*)(SQLUDF_SCRAT->data)))=(*((long*)(SQLUDF_SCRAT->data)))+(*pIncrement);
    (*pReturn)=(*((long*)(SQLUDF_SCRAT->data)));    
    return  0 ;
}

connect reset@
connect to test@

drop function counter(integer)@

create function counter(cnt integer)
returns integer
external name 'counter!counter'	
language c
parameter style sql
not deterministic
fenced threadsafe
called on null input
no sql
no external action
scratchpad
disallow parallel
@
commit@

connect to test@

with tmp (id) as
( values ( 1 )
  union all
     select tmp.id+ 1  from tmp
     where tmp.id < 10 
)
select tmp.*, 10 -counter( 2 ),counter( 1 ),counter( 5 ) from tmp@

connect to test

   Информация соединения с базой данных

 Сервер баз данных           = DB2/NT  8 . 2 . 0 
 ID авторизации SQL          = DB2ADMIN
 Алиас локальной базы данных = TEST


with tmp (id) as ( values ( 1 ) union all select tmp.id+ 1  from tmp where tmp.id < 10  ) select tmp.*, 10 -counter( 2 ),counter( 1 ),counter( 5 ) from tmp

ID           2             3             4           
----------- ----------- ----------- -----------
           1             8             1             5 
           2             6             2            10 
           3             4             3            15 
           4             2             4            20 
           5             0             5            25 
           6           - 2             6            30 
           7           - 4             7            35 
           8           - 6             8            40 
           9           - 8             9            45 
          10          - 10            10            50 

   10  записей выбрано.