#makefile
DBUSER=db2admin
DBNAME=utfdb
DBPASSWORD=ibmdb2

TARGET=funcs1.dll
DEF=funcs.def
LIBS=db2api.lib
DB2INCLUDE=D:\SQLLIB\INCLUDE
INCLUDE=D:\VC98\INCLUDE

CPPOBJS= ft.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) -I$(INCLUDE) -I$(DB2INCLUDE) $*.cxx

$(TARGET): $(CPPOBJS) Makefile funcs.def
	link $(LINKFLAGS) -out:$(TARGET) $(SQXOBJS) $(CPPOBJS) $(LIBS) /LIBPATH:D:\SQLLIB\LIB -def:$(DEF)
    copy $(TARGET) d:\sqllib\function

//ft.sqx
#include <stdlib.h>
#include <stdio.h>
#include <time.h>
#include <sqlenv.h>
#include <sqludf.h>

SQL_API_RC SQL_API_FN rndvarchar (
		SQLUDF_SMALLINT *cnt,
		SQLUDF_CHAR (*str)[ 255 ],
        SQLUDF_NULLIND *cntind,
        SQLUDF_NULLIND *strind,
		SQLUDF_TRAIL_ARGS
    )
{
	sqlint16 n=*cnt;
    if (n> 254 ) n= 254 ;
    for(long i= 0 ;i<n;i++) {
    	((char*)str)= 97 +rand()% 26 ;
    }
    ((char*)str)[ 0 ]-=('a'-'A');
    (*str)[n]= 0 ;
    return  0 ;
}

db2 => connect to utfdb

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

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

db2 => values substr(rndvarchar(smallint( 20 )), 1 , 20 )

 1 
 [i]-------------------- 
Vscxggbwkfnqduxwfnfo

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

db2 =>