Subject problem with tjvuibscript
Author martinknappe
hi,
this post is more appropriate in the uib forum (where i've also
posted) but it doesn't seem to be too busy so i was wondering whether
someone here is working with delphi+uib database access controls. this
is my problem:

i have a database creation script, that runs very well when executed
from say ibexpert, but when executing it from tjvuibscript, i run into
trouble..it seems to have to do with the "set term" - statement..would
someone please try to execute it and tell me whats wrong?

this is the script(can someone help me out here, thanx):




/******************************************************************************/
/**** Generated by IBExpert 2006.08.17 13.09.2006 21:09:51
****/
/******************************************************************************/

SET SQL DIALECT 3;

SET NAMES UNICODE_FSS;


CREATE DATABASE 'c:\test.fdb'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 16384
DEFAULT CHARACTER SET UNICODE_FSS;



/******************************************************************************/
/**** Domains
****/
/******************************************************************************/

CREATE DOMAIN CHAR_1 AS
VARCHAR(1)
COLLATE UNICODE_FSS;

CREATE DOMAIN CHAR_10 AS
VARCHAR(10)
COLLATE UNICODE_FSS;

CREATE DOMAIN CHAR_14 AS
VARCHAR(14)
COLLATE UNICODE_FSS;

CREATE DOMAIN CHAR_15 AS
VARCHAR(15)
COLLATE UNICODE_FSS;

CREATE DOMAIN CHAR_20 AS
VARCHAR(20)
COLLATE UNICODE_FSS;

CREATE DOMAIN CHAR_200 AS
VARCHAR(200)
COLLATE UNICODE_FSS;

CREATE DOMAIN CHAR_3 AS
VARCHAR(3)
COLLATE UNICODE_FSS;

CREATE DOMAIN CHAR_31 AS
VARCHAR(31)
COLLATE UNICODE_FSS;

CREATE DOMAIN CHAR_4 AS
VARCHAR(4)
COLLATE UNICODE_FSS;

CREATE DOMAIN CHAR_40 AS
VARCHAR(40)
COLLATE UNICODE_FSS;

CREATE DOMAIN CHAR_4096 AS
VARCHAR(4096)
COLLATE UNICODE_FSS;

CREATE DOMAIN CHAR_50 AS
VARCHAR(50)
COLLATE UNICODE_FSS;

CREATE DOMAIN CHAR_60 AS
VARCHAR(60)
COLLATE UNICODE_FSS;

CREATE DOMAIN CHAR_80 AS
VARCHAR(80)
COLLATE UNICODE_FSS;

CREATE DOMAIN S_CHAR_10 AS
VARCHAR(10)
COLLATE UNICODE_FSS;

CREATE DOMAIN S_CHAR_15 AS
VARCHAR(15)
COLLATE UNICODE_FSS;

CREATE DOMAIN S_CHAR_20 AS
VARCHAR(20)
COLLATE UNICODE_FSS;

CREATE DOMAIN S_CHAR_50 AS
VARCHAR(50)
COLLATE UNICODE_FSS;

CREATE DOMAIN S_CHAR_80 AS
VARCHAR(80)
COLLATE UNICODE_FSS;

CREATE DOMAIN T_CHAR_10 AS
VARCHAR(10)
COLLATE UNICODE_FSS;

CREATE DOMAIN T_CHAR_15 AS
VARCHAR(15)
COLLATE UNICODE_FSS;

CREATE DOMAIN T_CHAR_20 AS
VARCHAR(20)
COLLATE UNICODE_FSS;

CREATE DOMAIN T_CHAR_50 AS
VARCHAR(50)
COLLATE UNICODE_FSS;

CREATE DOMAIN T_CHAR_80 AS
VARCHAR(80)
COLLATE UNICODE_FSS;



/******************************************************************************/
/**** Generators
****/
/******************************************************************************/

CREATE GENERATOR GEN_DICENTRIES_ID;
SET GENERATOR GEN_DICENTRIES_ID TO 0;

CREATE GENERATOR GEN_LIT_ID;
SET GENERATOR GEN_LIT_ID TO 0;

CREATE GENERATOR GEN_TITELAUFS_LIT_ID;
SET GENERATOR GEN_TITELAUFS_LIT_ID TO 0;

CREATE GENERATOR GEN_TITELWERK_LIT_ID;
SET GENERATOR GEN_TITELWERK_LIT_ID TO 0;



/******************************************************************************/
/**** Exceptions
****/
/******************************************************************************/

CREATE EXCEPTION INVALID_ACTION_EXCEPTION 'Ung├╝ltige Aktion!';








SET TERM ^ ;



/******************************************************************************/
/**** Stored Procedures
****/
/******************************************************************************/

CREATE PROCEDURE CREATE_COLLATION (
NEW_COLLATION_NAME CHAR(31),
NEW_COLLATION_ID SMALLINT,
CHARACTER_SET_NAME CHAR(31))
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_20_DICENTRIES_BY_ASTERM (
"TERM" VARCHAR(240))
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_20_DICENTRIES_BY_ZSTERM (
"TERM" VARCHAR(240))
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_DICENTRIES_AB_DATUM (
DATUMINPUT DATE,
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_DICENTRIES_AB_UPDDA (
DATUMINPUT DATE,
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_DICENTRIES_BY_ASDSK (
TKN1 VARCHAR(45),
TKN2 VARCHAR(45),
TKN3 VARCHAR(45),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_DICENTRIES_BY_ASTER (
"TERM" VARCHAR(240),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_DICENTRIES_BY_AUT (
AUTIN VARCHAR(93),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_DICENTRIES_BY_DATUM (
DATUMINPUT DATE,
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_DICENTRIES_BY_ID (
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_DICENTRIES_BY_PROJ (
PROJINPUT VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_DICENTRIES_BY_REV (
REVIN VARCHAR(3),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_DICENTRIES_BY_UPDAA (
UPDAUTINPUT VARCHAR(93),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_DICENTRIES_BY_UPDDA (
UPDDATUMINPUT DATE,
IDIN BIGINT)
RETURNS (
ID BIGINT,
POS INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_DICENTRIES_BY_ZSDSK (
TKN1 VARCHAR(45),
TKN2 VARCHAR(45),
TKN3 VARCHAR(45),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_DICENTRIES_BY_ZSTER (
"TERM" VARCHAR(240),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_ASABBILDUNG (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_ASABK (
"TERM" VARCHAR(30),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_ASAUDIO (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_ASDEF (
"TERM" VARCHAR(5625),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_ASPRGM (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_ASSEM (
"TERM" VARCHAR(240),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_ASTERM (
"TERM" VARCHAR(240),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_ASVIDEO (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_PROJ (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_REV (
"TERM" VARCHAR(3),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_ZSABBILDUNG (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_ZSABK (
"TERM" VARCHAR(30),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_ZSAUDIO (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_ZSDEF (
"TERM" VARCHAR(5625),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_ZSPRGM (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_ZSSEM (
"TERM" VARCHAR(240),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_ZSTERM (
"TERM" VARCHAR(240),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_20_LI_ZSVIDEO (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_DICENTRYID_BY_3_ASDSKS (
IDIN BIGINT,
TKN1 VARCHAR(45),
TKN2 VARCHAR(45),
TKN3 VARCHAR(45))
RETURNS (
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_DICENTRYID_BY_3_ZSDSKS (
IDIN BIGINT,
TKN1 VARCHAR(45),
TKN2 VARCHAR(45),
TKN3 VARCHAR(45))
RETURNS (
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_DICENTRYID_BY_ASDSKRPT (
IDIN BIGINT,
DSKRPT VARCHAR(45))
RETURNS (
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_NEXT_DICENTRYID_BY_ZSDSKRPT (
IDIN BIGINT,
DSKRPT VARCHAR(45))
RETURNS (
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_20_DICENTRIES_AB_DATU (
DATUMINPUT DATE,
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_20_DICENTRIES_AB_UPDD (
DATUMINPUT DATE,
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_20_DICENTRIES_BY_ASDS (
TKN1 VARCHAR(45),
TKN2 VARCHAR(45),
TKN3 VARCHAR(45),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_20_DICENTRIES_BY_ASTE (
"TERM" VARCHAR(240),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_20_DICENTRIES_BY_AUT (
AUTIN VARCHAR(93),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_20_DICENTRIES_BY_DATU (
DATUMINPUT DATE,
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_20_DICENTRIES_BY_ID (
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_20_DICENTRIES_BY_PROJ (
PROJINPUT VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_20_DICENTRIES_BY_REV (
REVIN VARCHAR(3),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_20_DICENTRIES_BY_UPDA (
UPDAUTINPUT VARCHAR(93),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_20_DICENTRIES_BY_UPDD (
UPDDATUMINPUT DATE,
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_20_DICENTRIES_BY_ZSDS (
TKN1 VARCHAR(45),
TKN2 VARCHAR(45),
TKN3 VARCHAR(45),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_20_DICENTRIES_BY_ZSTE (
"TERM" VARCHAR(240),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_DICENTRYID_BY_3_ASDSK (
IDIN BIGINT,
TKN1 VARCHAR(45),
TKN2 VARCHAR(45),
TKN3 VARCHAR(45))
RETURNS (
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_DICENTRYID_BY_3_ZSDSK (
IDIN BIGINT,
TKN1 VARCHAR(45),
TKN2 VARCHAR(45),
TKN3 VARCHAR(45))
RETURNS (
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_DICENTRYID_BY_ASDSKRP (
IDIN BIGINT,
DSKRPT VARCHAR(45))
RETURNS (
ID BIGINT)
AS
BEGIN
EXIT;
END^


CREATE PROCEDURE GET_PRIOR_DICENTRYID_BY_ZSDSKRP (
IDIN BIGINT,
DSKRPT VARCHAR(45))
RETURNS (
ID BIGINT)
AS
BEGIN
EXIT;
END^



SET TERM ; ^


/******************************************************************************/
/**** Tables
****/
/******************************************************************************/



CREATE TABLE AUT (
AUT CHAR_31 NOT NULL,
VF CHAR_50,
FIRMA1 CHAR_50,
FIRMA2 CHAR_50,
STRASSE CHAR_40,
PLZ CHAR_10,
ORT CHAR_40,
LAND CHAR_20,
TEL CHAR_20,
TELPRIV CHAR_20,
FAX CHAR_20,
ANM CHAR_80,
DATUM DATE,
TYP CHAR_1,
FUNKTION CHAR_50
);

CREATE TABLE DICENTRIES (
ID BIGINT NOT NULL,
ASTERM S_CHAR_80,
ASABK S_CHAR_10,
ASPRGM S_CHAR_20,
ASSEM S_CHAR_80,
ZSTERM T_CHAR_80,
ZSABK T_CHAR_10,
ZSPRGM T_CHAR_20,
ZSSEM T_CHAR_80,
DATUM DATE,
PROJ CHAR_20,
REV CHAR_1,
UPDDATUM DATE,
ASVERWID BIGINT,
ZSVERWID BIGINT,
ASDEF CHAR_4096,
ZSDEF CHAR_4096,
ASAUDIO CHAR_20,
ASVIDEO CHAR_20,
ASABBILDUNG CHAR_20,
ZSABBILDUNG CHAR_20,
ZSAUDIO CHAR_20,
ZSVIDEO CHAR_20,
AUTOR CHAR_31,
UPDAUTOR CHAR_31,
ASDSKRPT1 S_CHAR_15,
ZSDSKRPT1 T_CHAR_15,
ASDSKRPT2 S_CHAR_15,
ZSDSKRPT2 T_CHAR_15,
ASDSKRPT3 S_CHAR_15,
ZSDSKRPT3 T_CHAR_15,
ASQCODE BIGINT,
ZSQCODE BIGINT,
ASVERWTERM S_CHAR_80,
ZSVERWTERM T_CHAR_80,
ASKONTEXT CHAR_200,
ZSKONTEXT CHAR_200
);

CREATE TABLE DSKRPTS (
ASDSKRPT S_CHAR_15 NOT NULL,
ASLANG S_CHAR_50,
ZSLANG T_CHAR_50,
ZSDSKRPT T_CHAR_15 NOT NULL
);

CREATE TABLE LIT (
ID BIGINT NOT NULL,
VF CHAR_50,
HRSG CHAR_50,
ORT CHAR_20,
VERLAG CHAR_20,
BANDHEFT CHAR_3,
JAHR CHAR_4,
SEITE CHAR_10,
PREIS CHAR_10,
ISBN CHAR_14,
STANDNR CHAR_20,
ANM1 CHAR_60,
ANM2 CHAR_60,
DATUM DATE,
TYP CHAR_3,
SPRACHEN CHAR_20,
AUT CHAR_31,
QCODE CHAR_15
);

CREATE TABLE TITELAUFS_LIT (
ID BIGINT NOT NULL,
TITELAUFS CHAR_60 NOT NULL,
LIT_ID BIGINT NOT NULL
);

CREATE TABLE TITELWERK_LIT (
ID BIGINT NOT NULL,
ID_LIT BIGINT NOT NULL,
TITELWERK CHAR_60
);



/* Check constraints definition */

ALTER TABLE DICENTRIES ADD CONSTRAINT CHK2_DICENTRIES check ((asterm
is not null) or (zsterm is not null));
ALTER TABLE DICENTRIES ADD CONSTRAINT CHK3_DICENTRIES check
((((asdskrpt1 is null) and (zsdskrpt1 is null)) or ((asdskrpt1 is not
null) and (zsdskrpt1 is not null))) and (((asdskrpt2 is null) and
(zsdskrpt2 is null)) or ((asdskrpt2 is not null) and (zsdskrpt2 is not
null))) and (((asdskrpt3 is null) and (zsdskrpt3 is null)) or
((asdskrpt3 is not null) and (zsdskrpt3 is not null))));
ALTER TABLE DICENTRIES ADD CONSTRAINT CHK1_DICENTRIES check
(((asverwid is null) and (zsverwid is null)) or ((asverwid is not
null) and (askontext is null) and (zskontext is null) and (assem is
null) and (zsterm is null) and (zsabk is null) and (zsprgm is null)
and (zssem is null) and (proj is null) and (rev is null) and (zsverwid
is null) and (asdef is null) and (zsdef is null) and (asaudio is null)
and (asvideo is null) and (asabbildung is null) and (zsabbildung is
null) and (zsaudio is null) and (zsvideo is null) and (asdskrpt1 is
null) and (zsdskrpt1 is null) and (asdskrpt2 is null) and (zsdskrpt2
is null) and (asdskrpt3 is null) and (zsdskrpt3 is null)) or
((zsverwid is not null) and (askontext is null) and (zskontext is
null) and (assem is null) and (asterm is null) and (asabk is null) and
(asprgm is null) and (zssem is null) and (proj is null) and (rev is
null) and (asverwid is null) and (asdef is null) and (zsdef is null)
and (asaudio is null) and (asvideo is null) and (asabbildung is null)
and (zsabbildung is null) and (zsaudio is null) and (zsvideo is null)
and (asdskrpt1 is null) and (zsdskrpt1 is null) and (asdskrpt2 is
null) and (zsdskrpt2 is null) and (asdskrpt3 is null) and (zsdskrpt3
is null)));


/******************************************************************************/
/**** Stored Procedures
****/
/******************************************************************************/


SET TERM ^ ;

ALTER PROCEDURE CREATE_COLLATION (
NEW_COLLATION_NAME CHAR(31),
NEW_COLLATION_ID SMALLINT,
CHARACTER_SET_NAME CHAR(31))
AS
BEGIN INSERT INTO rdb$collations ( rdb$collation_name,
rdb$collation_id, rdb$character_set_id ) VALUES ( :new_collation_name,
:new_collation_id, (SELECT RDB$CHARACTER_SET_ID FROM
RDB$CHARACTER_SETS WHERE RDB$CHARACTER_SET_NAME = :character_set_name)
); END
^

ALTER PROCEDURE GET_20_DICENTRIES_BY_ASTERM (
"TERM" VARCHAR(240))
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_20_DICENTRIES_BY_ZSTERM (
"TERM" VARCHAR(240))
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_DICENTRIES_AB_DATUM (
DATUMINPUT DATE,
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_DICENTRIES_AB_UPDDA (
DATUMINPUT DATE,
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_DICENTRIES_BY_ASDSK (
TKN1 VARCHAR(45),
TKN2 VARCHAR(45),
TKN3 VARCHAR(45),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_DICENTRIES_BY_ASTER (
"TERM" VARCHAR(240),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_DICENTRIES_BY_AUT (
AUTIN VARCHAR(93),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_DICENTRIES_BY_DATUM (
DATUMINPUT DATE,
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_DICENTRIES_BY_ID (
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_DICENTRIES_BY_PROJ (
PROJINPUT VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_DICENTRIES_BY_REV (
REVIN VARCHAR(3),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_DICENTRIES_BY_UPDAA (
UPDAUTINPUT VARCHAR(93),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_DICENTRIES_BY_UPDDA (
UPDDATUMINPUT DATE,
IDIN BIGINT)
RETURNS (
ID BIGINT,
POS INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_DICENTRIES_BY_ZSDSK (
TKN1 VARCHAR(45),
TKN2 VARCHAR(45),
TKN3 VARCHAR(45),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_DICENTRIES_BY_ZSTER (
"TERM" VARCHAR(240),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_ASABBILDUNG (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_ASABK (
"TERM" VARCHAR(30),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_ASAUDIO (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_ASDEF (
"TERM" VARCHAR(5625),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_ASPRGM (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_ASSEM (
"TERM" VARCHAR(240),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_ASTERM (
"TERM" VARCHAR(240),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_ASVIDEO (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_PROJ (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_REV (
"TERM" VARCHAR(3),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_ZSABBILDUNG (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_ZSABK (
"TERM" VARCHAR(30),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_ZSAUDIO (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_ZSDEF (
"TERM" VARCHAR(5625),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_ZSPRGM (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_ZSSEM (
"TERM" VARCHAR(240),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_ZSTERM (
"TERM" VARCHAR(240),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_20_LI_ZSVIDEO (
"TERM" VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID INTEGER)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_DICENTRYID_BY_3_ASDSKS (
IDIN BIGINT,
TKN1 VARCHAR(45),
TKN2 VARCHAR(45),
TKN3 VARCHAR(45))
RETURNS (
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_DICENTRYID_BY_3_ZSDSKS (
IDIN BIGINT,
TKN1 VARCHAR(45),
TKN2 VARCHAR(45),
TKN3 VARCHAR(45))
RETURNS (
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_DICENTRYID_BY_ASDSKRPT (
IDIN BIGINT,
DSKRPT VARCHAR(45))
RETURNS (
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_NEXT_DICENTRYID_BY_ZSDSKRPT (
IDIN BIGINT,
DSKRPT VARCHAR(45))
RETURNS (
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_20_DICENTRIES_AB_DATU (
DATUMINPUT DATE,
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_20_DICENTRIES_AB_UPDD (
DATUMINPUT DATE,
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_20_DICENTRIES_BY_ASDS (
TKN1 VARCHAR(45),
TKN2 VARCHAR(45),
TKN3 VARCHAR(45),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_20_DICENTRIES_BY_ASTE (
"TERM" VARCHAR(240),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_20_DICENTRIES_BY_AUT (
AUTIN VARCHAR(93),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_20_DICENTRIES_BY_DATU (
DATUMINPUT DATE,
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_20_DICENTRIES_BY_ID (
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_20_DICENTRIES_BY_PROJ (
PROJINPUT VARCHAR(60),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_20_DICENTRIES_BY_REV (
REVIN VARCHAR(3),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_20_DICENTRIES_BY_UPDA (
UPDAUTINPUT VARCHAR(93),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_20_DICENTRIES_BY_UPDD (
UPDDATUMINPUT DATE,
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_20_DICENTRIES_BY_ZSDS (
TKN1 VARCHAR(45),
TKN2 VARCHAR(45),
TKN3 VARCHAR(45),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_20_DICENTRIES_BY_ZSTE (
"TERM" VARCHAR(240),
IDIN BIGINT)
RETURNS (
POS INTEGER,
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_DICENTRYID_BY_3_ASDSK (
IDIN BIGINT,
TKN1 VARCHAR(45),
TKN2 VARCHAR(45),
TKN3 VARCHAR(45))
RETURNS (
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_DICENTRYID_BY_3_ZSDSK (
IDIN BIGINT,
TKN1 VARCHAR(45),
TKN2 VARCHAR(45),
TKN3 VARCHAR(45))
RETURNS (
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_DICENTRYID_BY_ASDSKRP (
IDIN BIGINT,
DSKRPT VARCHAR(45))
RETURNS (
ID BIGINT)
AS
BEGIN EXIT; END
^

ALTER PROCEDURE GET_PRIOR_DICENTRYID_BY_ZSDSKRP (
IDIN BIGINT,
DSKRPT VARCHAR(45))
RETURNS (
ID BIGINT)
AS
BEGIN EXIT; END
^


SET TERM ; ^