PROCEDURE create_firebird_db_api_test #DEFINE isc_dsql_execute_immediate _1280NN7E6_1280NN854_1280NN8MG_1280NN90S #DEFINE status_vector _1280NPGDW_1280NPGQC_1280NPH2J_1280NPHEZ #DEFINE db_handle _1280NOGPC_1280NOH7C_1280NOHOJ_1280NOI5A #DEFINE tr_handle _1280NOSVN_1280NOT8N_1280NOTMK_1280NOU0C #DEFINE statement _1280O7XT6_1280O7Y9P_1280O7YRO_1280O7Z8D #DEFINE length _1280NP67O_1280NP6KC_1280NP6YB_1280NP7CD #DEFINE dialect _1280NPRVA_1280NPSA1_1280NPSO3_1280NPT0O #DEFINE xsqlda _1280NZI1L_1280NZIBM_1280NZILX_1280NZIW7 DECLARE long isc_dsql_execute_immediate IN fbclient.dll string @ status_vector ; , integer @ db_handle ; , integer @ tr_handle ; , integer length ; , string statement ; , integer dialect ; , string @ xsqlda status_vector = REPLICATE(CHR(0),80) db_handle = 0 tr_handle = 0 length = 0 statement = [CREATE DATABASE 'C:\MYDATA.FDB' USER 'SYSDBA' PASSWORD 'masterkey' PAGE_SIZE 4096]+CHR(0) DIALECT = 3 XSQLDA=NULL RETURN isc_dsql_execute_immediate(status_vector, db_handle, tr_handle, length, statement, dialect, xsqlda)