|
04.08.2004, 13:07
#32634916
Ссылка:
Ссылка на сообщение:
Ссылка с названием темы:
Ссылка на профиль пользователя:
|
|
|
Участник
Откуда: С-Петербург
Сообщения: 2 347
Рейтинг:
0
/ 0
|
|
|
|
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
#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
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
//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 ;
}
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
CONNECT TO utfdb USER db2admin USING ibmdb2@
DROP FUNCTION RNDVARCHAR(SMALLINT)@
CREATE FUNCTION RNDVARCHAR(CNT SMALLINT)
RETURNS VARCHAR( 254 )
LANGUAGE C
NO SQL
PARAMETER STYLE SQL
NOT FENCED
NO EXTERNAL ACTION
EXTERNAL NAME 'funcs1!rndvarchar'
@
1.
2.
LIBRARY funcs1
EXPORTS rndvarchar
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
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 =>
|
|
|
