source: trunk/Sibyl/RTL/SQLUTIL.PAS@ 8

Last change on this file since 8 was 8, checked in by RBRi, 19 years ago

+ rest of sibyl stuff
  • Property svn:eol-style set to native
File size: 57.4 KB
Line 
1UNIT SQLUTIL;
2
3{**************************************************************************
4 * *
5 * Module Name = SQLUTIL.H *
6 * *
7 * Descriptive Name = Utility/Configuration Commands External Include *
8 * File *
9 * *
10 * Copyright = 5622-044 (C) Copyright IBM Corp. 1987, 1993 *
11 * Licensed Material - Program Property of IBM *
12 * Refer to Copyright Instructions Form Number G120-3083 *
13 * *
14 * Function = Include File defining *
15 * Utility/Configuration Command Interfaces *
16 * SQL Return Codes in SQLCODE for Utility Commands *
17 * *
18 **************************************************************************}
19
20INTERFACE
21
22USES sql,Os2Def;
23
24CONST
25 { Interface Parameters/Structures/Return Codes }
26
27 { Parameters for SQLUFROL }
28 SQLUM_ROLLFWD = 1 ; { Roll forward to requested point }
29 SQLUM_STOP = 2 ; { End roll-forward recovery }
30 SQLUM_ROLLFWD_STOP = 3 ; { Roll forward to requested point }
31 { and end roll-forward recovery }
32 SQLUM_QUERY = 4 ; { Query: nextArcFile, }
33 { firstDeleteArc, }
34 { lastDeleteArc, }
35 { lastCommitTime }
36 SQLUM_INFINITY_TIMESTAMP= '9999-12-31-23.59.59.999999';{ Roll }
37 { forward until STOP specified }
38 SQLUM_ARCHIVE_FILE_LEN = 12; { Length of Archive File name }
39 SQLUM_TIMESTAMP_LEN = 26; { Length of ISO format Timestamp }
40
41
42 { Parameters for Backup/Restore }
43 SQLU_NSD_ID = '0' ; { User exit used, not SD interface}
44
45 { Parameters for RUNSTATS }
46 SQL_STATS_TABLE = 'T' ; { TABLEOPT = Table w/o Indexes }
47 SQL_STATS_BOTH = 'B' ; { TABLEOPT = Table and Indexes }
48 SQL_STATS_INDEX = 'I' ; { TABLEOPT = Indexes w/o Table }
49 SQL_STATS_REF = 'R' ; { SHAREOPT = Reference }
50 SQL_STATS_CHG = 'C' ; { SHAREOPT = Change }
51
52 { Parameters for selection method in sqldcol }
53 SQL_METH_N = 'N'; { Names }
54 SQL_METH_P = 'P'; { Positional }
55 SQL_METH_D = 'D'; { Default }
56 SQL_METH_L = 'L'; { Locations }
57
58 { File Types for Import/Export }
59 SQL_IXF = 'IXF' ;
60 SQL_WSF = 'WSF' ;
61 SQL_DEL = 'DEL' ;
62 SQL_ASC = 'ASC' ;
63
64 { Equates for Configuration Utilities }
65
66 { Token equates for SQLFupd structure for Kernel config file }
67 SQLF_KTN_RQRIOBLK = 1 ;
68 SQLF_KTN_SVRIOBLK = 3 ;
69 SQLF_KTN_SQLENSEG = 5 ;
70 SQLF_KTN_NUMDB = 6 ;
71 SQLF_KTN_NNAME = 7 ;
72 SQLF_KTN_COMHEAPSZ = 8 ;
73 SQLF_KTN_RSHEAPSZ = 9 ;
74 SQLF_KTN_NUMRC = 10 ;
75 SQLF_KTN_TIMEOUT = 11 ;
76 SQLF_KTN_AGENT_INIT = 12 ;
77 SQLF_KTN_DBAGENT = 13 ;
78 SQLF_KTN_DBMKEY = 14 ;
79 SQLF_KTN_DBMCOMQUE = 15 ;
80 SQLF_KTN_DBMSYSQUE = 16 ;
81 SQLF_KTN_SQLSTMTSZ = 17 ;
82 SQLF_KTN_DBMSYS = 18 ;
83 SQLF_KTN_INDEXREC = 20 ;
84 SQLF_KTN_SHEAPTHRES = 21 ;
85 SQLF_KTN_NODETYPE =100 ;
86 SQLF_KTN_RELEASE =101 ;
87 SQLF_KTN_DBMONID =102 ;
88 SQLF_KTN_SYSADMID =103 ;
89 SQLF_KTN_DBMID =104 ;
90
91 { Nodetype equates }
92 SQLF_NT_STANDALONE = 0 ;
93 SQLF_NT_SERVER = 1 ;
94 SQLF_NT_REQUESTOR = 2 ;
95 SQLF_NT_STAND_REQ = 3 ;
96
97 { Token equates for SQLFupd structure for DB config file }
98 SQLF_DBTN_LOCKLIST = 1 ;
99 SQLF_DBTN_BUFFPAGE = 2 ;
100 SQLF_DBTN_MAXFILOP = 3 ;
101 SQLF_DBTN_LOGFILE = 4 ;
102 SQLF_DBTN_SOFTMAX = 5 ;
103 SQLF_DBTN_MAXAPPLS = 6 ;
104 SQLF_DBTN_APPLHEAPSZ = 7 ;
105 SQLF_DBTN_DBHEAP = 8 ;
106 SQLF_DBTN_DLCHKTIME = 9 ;
107 SQLF_DBTN_MAXTOTFILOP = 10 ;
108 SQLF_DBTN_SORTHEAP = 11 ;
109 SQLF_DBTN_LOGEXT = 12 ;
110 SQLF_DBTN_LOGMAXEXT = 13 ;
111 SQLF_DBTN_AGENTHEAP = 14 ;
112 SQLF_DBTN_MAXLOCKS = 15 ;
113 SQLF_DBTN_LOGPRIMARY = 16 ;
114 SQLF_DBTN_LOGSECOND = 17 ;
115 SQLF_DBTN_LOGFILSIZ = 18 ;
116 SQLF_DBTN_STMTHEAP = 19 ;
117 SQLF_DBTN_NEWLOGPATH = 20 ;
118 SQLF_DBTN_DETS = 21 ;
119 SQLF_DBTN_COPY_PROTECT = 22 ;
120 SQLF_DBTN_LOG_RETAIN = 23 ;
121 SQLF_DBTN_USER_EXIT = 24 ;
122 SQLF_DBTN_AUTO_RESTART = 25 ;
123 SQLF_DBTN_INDEXREC = 30 ;
124 SQLF_DBTN_COUNTRY = 100 ;
125 SQLF_DBTN_CODEPAGE = 101 ;
126 SQLF_DBTN_RELEASE = 102 ;
127 SQLF_DBTN_LOGPATH = 103 ;
128 SQLF_DBTN_INTFLAGS = 104 ;
129 SQLF_DBTN_LOGHEAD = 105 ;
130 SQLF_DBTN_NEXTACTIVE = 107 ;
131 SQLF_DBTN_CONSISTENT = 111 ;
132 SQLF_DBTN_BACKUP_PENDING = 112 ;
133 SQLF_DBTN_ROLLFWD_PENDING = 113 ;
134 SQLF_DBTN_LOG_RETAIN_STATUS=114 ;
135 SQLF_DBTN_USER_EXIT_STATUS =115 ;
136
137
138 { You may manipulate the bits of SQLF_DBTN_DETS and SQLF_DBTN_INTFLAGS
139 ** or you can enable, disable, or query the current setting through
140 ** the individual tokens.
141 **
142 ** Defines for: SQLF_DBTN_COPY_PROTECT , SQLF_DBTN_LOG_RETAIN
143 ** SQLF_DBTN_USER_EXIT , SQLF_DBTN_AUTO_RESTART
144 ** SQLF_DBTN_CONSISTENT , SQLF_DBTN_BACKUP_PENDING
145 ** SQLF_DBTN_ROLLFWD_PENDING , SQLF_DBTN_LOG_RETAIN_STATUS
146 ** SQLF_DBTN_USER_EXIT_STATUS
147 }
148
149 SQLF_DISABLE =0 ;
150 SQLF_ENABLE =1 ;
151
152
153 {
154 ** Defines for Database Details - SQLF_DBTN_DETS
155 **
156 ** The following meanings apply when the bits are set on.
157 **
158 ** SQLF_COPY_PROTECT - Database is copy protected.
159 ** SQLF_ENABLE_LOG_RETAIN - Next time database is started in normal
160 ** conditions, the log files will be retained
161 ** for the purpose of roll-forward recovery.
162 ** SQLF_ENABLE_USER_EXIT - Next time database is started in normal
163 ** conditions, the user log exit will be enabled
164 ** for the purpose of roll-forward recovery.
165 ** SQLF_ENABLE_AUTO_RESTART- The RESTART DATABASE function will be
166 ** invoked when needed.
167 }
168
169 SQLF_COPY_NOPROT =$00 ; { xxxx xxxx xxxx xxx0 }
170 SQLF_COPY_PROTECT =$01 ; { xxxx xxxx xxxx xxx1 }
171 SQLF_ENABLE_LOG_RETAIN =$02 ; { xxxx xxxx xxxx xx1x }
172 SQLF_ENABLE_USER_EXIT =$04 ; { xxxx xxxx xxxx x1xx }
173 SQLF_ENABLE_AUTO_RESTART =$08 ; { xxxx xxxx xxxx 1xxx }
174
175 {
176 ** Defines for Logging Flags - SQLF_DBTN_INTFLAGS
177 **
178 ** The following meanings apply when the bits are set on.
179 **
180 ** SQLF_CONSISTENT - Database is in a consistent state.
181 ** SQLF_BACKUP_PENDING - User is required to take a backup of the
182 ** database before the system will allow the
183 ** database to be opened for normal processing.
184 ** SQLF_ROLLFWD_PENDING - User is required to roll forward the database
185 ** before the system will allow the database to
186 ** be opened for normal processing.
187 ** SQLF_LOG_RETAIN - Log files are retained so that a database can be
188 ** rolled forward after it has been restored from
189 ** a backup copy.
190 ** SQLF_USER_EXIT - User exit is taken when log files are filled and
191 ** when log files are needed and not found.
192 }
193
194 SQLF_CONSISTENT =$0001 ;{ xxxx xxxx xxxx xxx1 }
195 SQLF_BACKUP_PENDING =$0004 ;{ xxxx xxxx xxxx x1xx }
196 SQLF_ROLLFWD_PENDING =$0008 ;{ xxxx xxxx xxxx 1xxx }
197 SQLF_LOG_RETAIN =$0010 ;{ xxxx xxxx xxx1 xxxx }
198 SQLF_USER_EXIT =$0020 ;{ xxxx xxxx xx1x xxxx }
199
200
201TYPE
202
203TYPE
204 sqldcol=RECORD
205 dcolmeth:SHORT;
206 dcolnum:SHORT;
207 dcolname:ARRAY[0..1] OF RECORD
208 dcolnlen:SHORT;
209 dcolnptr:PChar;
210 END;
211 END;
212
213 {************************************************}
214 { Structure for Pairs of Locations for ASC files }
215 {************************************************}
216
217 sqlloctab=RECORD
218 locpair:ARRAY[0..1] OF RECORD
219 begin_loc:SHORT;
220 end_loc:SHORT;
221 END;
222 END;
223
224 {************************************************}
225 { Structures for Configuration Utility APIs. }
226 {************************************************}
227
228 sqlfupd=RECORD
229 token:WORD;
230 ptrvalue:PChar;
231 END;
232
233{
234** Constants and structure used by SQLGADAU and sqluadau.
235}
236CONST
237 SQL_USER_AUTHORIZED = 1 ;
238 SQL_USER_UNAUTHORIZED = 0 ;
239 SQL_AUTHORIZATION_SIZE= 22 ;
240
241TYPE
242 sql_authorizations=RECORD
243 sql_authorizations_len:SHORT;
244 sql_sysadm_auth:SHORT;
245 sql_dbadm_auth:SHORT;
246 sql_createtab_auth:SHORT;
247 sql_bindadd_auth:SHORT;
248 sql_connect_auth:SHORT;
249 sql_sysadm_grp_auth:SHORT;
250 sql_dbadm_grp_auth:SHORT;
251 sql_createtab_grp_auth:SHORT;
252 sql_bindadd_grp_auth:SHORT;
253 sql_connect_grp_auth:SHORT;
254 END;
255
256
257CONST
258 { Values for CALLERAC parameter in RESTORE }
259
260 SQLUD_RESTORE = 0 ; { Restore database }
261 SQLUD_CONTINUE = 1 ; { Continue after a warning occurred }
262 SQLUD_TERMINATE = 2 ; { Terminate after a warning occurred }
263 SQLUD_RST_NOROLLFWD = 3 ; { Restore database, turn off the }
264 { ROLL FORWARD PENDING flag }
265
266 { Roll Forward Return Codes }
267
268 SQLU_RC_NOLFH = -1258; { Log Control file not found. }
269 SQLU_RC_IOELFH = -1259; { I/O Error accessing LFH. }
270 SQLU_RC_RFNOTEN = -1260; { DB not enabled for Roll Fwd }
271 SQLU_RC_RFNOTP = -1261; { Roll Forward is not Pending }
272 SQLU_RC_BADPIT = -1262; { Bad Point in Time specified }
273 SQLU_RC_INVEXT = -1263; { Invalid Log Extent file }
274 SQLU_RC_NOTEXT = -1264; { Log Extent file does not }
275 { belong to DB }
276 SQLU_RC_IVREXT = -1265; { Log extent file is incorrect }
277 { version }
278 SQLU_RC_PRTIME = -1266; { Time specified is before }
279 { previous roll-forward time }
280
281 SQLU_RC_UEXIT_ERR = -1268; { User exit encountered an }
282 { error (other than retry) }
283 { while attempting to retrieve }
284 { a log extent file for roll }
285 { forward }
286
287 { General Utility Return Codes }
288 SQLU_BAD_DRIVE = -2000;{ invalid output drive }
289 SQLU_USER_TERM = -2001;{ Backup terminated by user }
290 SQLU_NOT_LOCAL = -2002;{ database not local }
291 SQLU_DOS_ERROR = -2003;{ base operating system error }
292 SQLU_SQL_ERROR = -2004;{ SQL error occurred }
293 SQLU_READ_ERROR = -2005;{ read wrong # of bytes }
294 SQLU_WRITE_ERROR = -2006;{ wrote wrong # of bytes }
295 SQLU_INVALID_ACTION = -2008;{ call out of sequence }
296 SQLU_INSUFF_MEMORY = -2009;{ insufficient memory }
297 SQLU_STRD_ERROR = -2010;{ error in Start Using }
298 SQLU_STPD_ERROR = -2011;{ error in Stop Using }
299 SQLU_INT_ERROR = -2012;{ error in ints }
300 SQLU_DIR_ERROR = -2013;{ directory Scan error }
301 SQLU_DBM_ERROR = -2014;{ pause or Continue or migration }
302 { error }
303 SQLU_INVALID_DBNAME = -2015;{ invalid database name }
304 SQLU_INVALID_PATH = -2016;{ invalid path in environment }
305 SQLU_START_SESSION = -2017;{ Start Session failed }
306 SQLU_INVALID_AUTHS = -2018;{ invalid authorizations }
307 SQLU_AUTOBIND = -2019;{ auto-binding failed }
308 SQLU_TIMESTAMP = -2020;{ conflict after auto-bind }
309 SQLU_WRONG_DISKETTE = -2021;{ Wrong diskette inserted }
310 SQLU_IO_ERROR_LFH = -2023;{ I/O error in accessing the log }
311 { control file }
312 SQLU_IO_ERROR_BRG = -2024;{ I/O error in accessing the }
313 { Backup/Restore flag file }
314 SQLU_IO_ERROR = -2025;{ System I/O error occurred }
315 SQLU_PAUSE_ERROR = -2026;{ error in PAUSE the started DB }
316 SQLU_CONT_ERROR = -2027;{ error in CONTINUE the stoped DB }
317 SQLU_INT_INST_ERR = -2028;{ interruption installing error }
318 SQLU_UEXIT_RC = -2029;{ user exit returned non-zero rc }
319 SQLU_DISK_FULL = -2030;{ a specific fixed disk is full }
320
321 { Reorganize Table Return Codes }
322 SQLUR_INVALID_AUTHID = -2200;{ invalid authid on index name }
323 SQLUR_INVALID_TABLENAME = -2203;{ invalid tablename syntax }
324 SQLUR_INVALID_INDEXNAME = -2204;{ invalid tablename syntax }
325 SQLUR_INDEX_NOT_FOUND = -2205;{ index doesn't exist }
326 SQLUR_INVALID_FILEPATH = -2207;{ invalid filepath pointer }
327 SQLUR_TABLE_NOT_FOUND = -2211;{ table does not exist }
328 SQLUR_VIEW_ERROR = -2212;{ cannot reorg a view }
329 SQLUR_INSAUTH = -2214;{ insuffic authority }
330 SQLUR_SQLERR_COMPREV = -2215;{ SQL error commiting prev work }
331 SQLUR_SQLERR_REORG = -2216;{ SQL error during reorganization }
332
333 { Run Statistics Return Codes }
334 SQLUS_INVALID_AUTHID = -2300;{ invalid authid }
335 SQLUS_INVALID_TABLE_NAME = -2301;{ invalid table name }
336 SQLUS_INVALID_INDEX_LIST = -2302;{ invalid index pointer }
337 SQLUS_INVALID_STATS_OPT = -2303;{ statsopt parameter invalid }
338 SQLUS_INVALID_SHARE_LEV = -2304;{ sharelev parameter invalid }
339 SQLUS_VIEWS_NOT_ALLOWED = -2305;{ table specified is a view }
340 SQLUS_OBJ_DOES_NOT_EXIST = -2306;{ object doesn't exist }
341 SQLUS_SYS_TABLE_NOT_ALLOWED=-2307;{ system table not allowed }
342 SQLUS_INVALID_INDEX_AUTHID= -2308;{ index authid invalid }
343 SQLUS_INVALID_INDEX_NAME = -2309;{ index name invalid }
344 SQLUS_ERROR_STAT = -2310;{ error running statistics }
345 SQLUS_INSAUTH = -2311;{ insuffic authority for runstats }
346
347 { Backup Return Codes }
348 SQLUB_BAD_TYPE = -2400;{ invalid type }
349 SQLUB_TYPE_MUSTBE_DB = -2401;{ type must be database }
350 SQLUB_USER_NOT_AUTH = -2403;{ insufficient auth for backup }
351 SQLUB_MEDIA_FULL = -2404;{ The target disk/diskette is full}
352 SQLUB_RST_IN_PROG = -2405;{ The backup can't run because }
353 { the Restore is in progress }
354 SQLUB_ROLLFWD_PENDING = -2406;{ The Backup can't run because }
355 { roll forward is pending }
356 SQLUB_BR_INPROG = -2407;{ The Backup can't run because }
357 { B/R flag file existed and read }
358 { I/O error occurred }
359 SQLUB_DEL_BRG_ERR = 2408;{ Backup process is successful, }
360 { but unable to delete BRG file }
361 SQLUB_WRONG_BASE_IMAGE = -2409;{ 'change-only' is only applied }
362 { to the most recent base image }
363 SQLUB_NO_CHG_NSD = -2410;{ change only, backup not allowed }
364 { to user exit }
365 SQLUB_IO_ERROR = -2411;{ I/O error during backup }
366
367 { Restore Return Codes }
368 SQLUD_CANNOT_RESTORE = -2501;{ can't read restored database }
369 SQLUD_DISKETTE_ERROR = -2502;{ error reading backup diskette }
370 SQLUD_WRONG_DATABASE = -2503;{ wrong backup diskette }
371 SQLUD_DISKETTE_PROMPT = 2504;{ prompt for backup diskette }
372 SQLUD_DROP_WARNING = 2505;{ warn that drop will be done }
373 SQLUD_DATABASE_WARNING = 2506;{ Restore worked, but not cleanup }
374 SQLUD_BIND_WARNING = 2507;{ Restore utility not bound }
375 SQLUD_INVALID_DBDRV = -2509;{ invalid database drive }
376 SQLUD_SEM_ERROR = -2510;{ semaphore error }
377 SQLUD_DROP_ERROR = -2511;{ error dropping database }
378 SQLUD_CREATE_ERROR = -2512;{ error creating database }
379 SQLUD_REN_ERROR = -2513;{ error renaming database }
380 SQLUD_BAD_VERSION = -2514;{ restored database wrong version }
381 SQLUD_INSAUTH = -2515;{ insuffic authority to restore }
382 SQLUD_DBACT = -2516;{ a database active }
383 SQLUD_MIGRATED = 2517;{ database migrated }
384 SQLUD_RST_DBCONG_ERR = -2518;{ error in restoring DB config. }
385 { file }
386 SQLUD_MIGRATE_ERROR = -2519;{ error in migrating the database }
387 SQLUD_DBCON_WARN = 2520;{ DBCON file is restored using the}
388 { backup version }
389 SQLUD_DEL_BRG_ERR = 2521;{ Restore process is successful, }
390 { but unable to delete BRG file }
391
392 { SQLGAUAD and sqluadau Return codes }
393 SQLUA_BAD_INPUT_PARAMETER = -2600;{ sql_authorizations parameter bad}
394
395 { IMPORT/EXPORT Return codes }
396 SQLUE_DFO = -3001;{ error opening output file }
397 SQLUE_IOE = -3002;{ i/o error writing output file }
398 SQLUE_CLS = -3003;{ i/o error closing output file }
399 SQLUE_IFT = -3004;{ invalid filetype parameter }
400 SQLUE_CBI = -3005;{ function interrupted }
401 SQLUE_MFO = -3006;{ i/o error opening message file }
402 SQLUE_MFW = -3007;{ i/o error writing message file }
403 SQLUE_STA = -3008;{ start using database failed }
404 SQLUE_STR = -3009;{ invalid tcolstrg }
405 SQLUE_COL = -3010;{ invalid dcoldata }
406
407 SQLUE_MEM = -3011;{ memory allocation error }
408 SQLUE_SYSERR = -3012;{ system error }
409 SQLUE_FTMOD = -3013;{ invalid filetmod }
410 SQLUE_MFC = -3014;{ failure on closing message file }
411 SQLUE_SQLERR = -3015;{ SQL error occurred }
412 SQLUE_FMODNK = -3016;{ no keywords found }
413 SQLUE_FMODID = -3017;{ invalid delimiter or duplicate }
414 SQLUE_FMODDEC = -3018;{ decimal used for char delimiter }
415 SQLUE_NTS = -3019;{ no tcolstrg }
416 SQLUE_RC_INSAUTH = -3020;{ insufficient authority for exp. }
417
418 SQLUI_RC_INSAUTH = -3021;{ insufficient authority for imp. }
419 SQLUE_SQL_PREP_ERR = -3022;{ SQL error on input string }
420 SQLUE_DATABASE = -3023;{ invalid database name }
421 SQLUE_DATAFILE = -3025;{ invalid datafile }
422 SQLUE_MSGFILE = -3026;{ invalid msgfile }
423 SQLUE_DCOLMETH = -3028;{ Export method indicator not n/d }
424 SQLUE_NUL_FTYPE = -3029;{ filetype is null }
425
426 SQLUI_DFO = -3030;{ error opening input data file }
427 SQLUI_IOE = -3031;{ i/o error reading input file }
428 SQLUI_DCOLMETH = -3032;{ Import method not n/d/p }
429 SQLUI_TINSERT = -3033;{ invalid insert in tcolstrg }
430 SLQUI_TINTO = -3034;{ invalid into in tcolstrg }
431 SQLUI_TABLENAME = -3035;{ invalid tablename in tcolstrg }
432 SQLUI_CPAREN = -3036;{ close paren not in tcolstrg }
433 SQLUE_SQL_PREP_INSERT = -3037;{ SQL error on insert string }
434 SQLUI_TCOLJUNK = -3038;{ tcolstrg invalid }
435
436 SQLUIC_BAD_DCOL_POS = -3045;{ invalid dcol position for CSV }
437 SQLUI_NONDEF_DCOL_NOCOLS = -3046;{ non-default dcol and no cols }
438 SQLUI_BAD_DCOL_METH = -3047;{ dcolinfo has invalid method }
439 SQLUI_NODCOL_FOR_NONNULL_DBCOL=-3048;{ non nullable column }
440 SQLUIC_UNSUPTYP_NONULLS = -3049;{ unsupported column type }
441
442 SQLUE_ROWCT_TOOBIG = -3053;{ too many rows for WSF export }
443 SQLUII_HEOF = -3054;{ eof reading first rec in IXF }
444 SQLUII_HLEN_CONV = -3055;{ length of 'H' rec not numeric }
445 SQLUII_HLEN_SHORT = -3056;{ first record too short }
446 SQLUII_HTYP = -3057;{ first IXF rec is not 'H' }
447 SQLUII_HID = -3058;{ no 'IXF' }
448 SQLUII_HVERS = -3059;{ invalid version field in 'H' }
449
450 SQLUII_HCNT = -3060;{ HCNT in 'H' not numeric }
451 SQLUII_HSBCP_BAD = -3061;{ SBCP in 'H' not numeric }
452 SQLUII_HDBCP_BAD = -3062;{ DBCP in 'H' not numeric }
453 SQLUII_HSBCP_CMP = -3063;{ 'H' SBCP not compat w/data SBCP }
454 SQLUII_HDBCP_CMP = -3064;{ 'H' DBCP not compat w/data DBCP }
455 SQLUII_DB_CODEPG = -3065;{ can't get codepages }
456 SQLUII_TEOF = -3066;{ eof reading/looking for 'T' rec }
457 SQLUII_TLEN_CONV = -3067;{ length of 'T' rec not numeric }
458 SQLUII_TLEN_SHORT = -3068;{ 'T' record is too short }
459 SQLUII_TTYP = -3069;{ first non-'A' rec not 'T' rec }
460
461 SQLUII_ALEN_BAD = -3070;{ invalid rec length of 'A' rec }
462 SQLUII_TCONV = -3071;{ invalid data convention in 'T' }
463 SQLUII_TFORM = -3072;{ invalid data format in 'T' }
464 SQLUII_TMFRM = -3073;{ invalid machine form in 'T' }
465 SQLUII_TLOC = -3074;{ invalid data location in 'T' }
466 SQLUII_TCCNT = -3075;{ 'C' rec cnt in 'T' not numeric }
467 SQLUII_TNAML = -3076;{ name len fld in 'T' not numeric }
468 SQLUII_CCNT_HIGH = -3077;{ too many 'C' records }
469 SQLUII_ALEN_CONV = -3078;{ length of 'A' rec not numeric }
470 SQLUII_CLEN_CONV = -3079;{ length of 'C' rec not numeric }
471
472 SQLUII_CLEN_SHORT = -3080;{ 'C' record is too short }
473 SQLUII_CTYP = -3081;{ wrong rec type / 'C' expected }
474 SQLUII_CEOF = -3082;{ EOF while processing 'C' recs }
475 SQLUII_CDRID = -3083;{ 'D' rec id field not numeric }
476 SQLUII_CPOSN = -3084;{ 'D' rec posn field not numeric }
477 SQLUII_CIDPOS = -3085;{ 'D' id/position not consistent }
478 SQLUII_NOCREC_FOR_NONNULL_DBCOL=-3086;{ IXF column does not exist }
479 SQLUII_INVCREC_NONNULL_DBCOL = -3087;{ IXF column not valid }
480 SQLUII_CRECCOMP_NONNULL_DBCOL = -3088;{ IXF column not compatible }
481 SQLUII_DTYP = -3089;{ wrong rec type / 'D' expected }
482
483 SQLUII_DLEN_CONV = -3090;{ length of 'D' rec not numeric }
484 SQLUII_DLEN_RANGE = -3091;{ length of 'D' rec not valid }
485 SQLUII_DID = -3092;{ invalid id field in 'D' rec }
486 SQLUIW_IFILE_INV = -3093;{ import file not valid WSF }
487 SQLUIW_NNCOL_LOST = -3094;{ DOS non-nullable name not found }
488 SQLUIW_PCOL_INV = -3095;{ col position out of range }
489 SQLUIW_UCOLTYP_NONUL = -3096;{ unsup col type - not nullable }
490 SQLUIW_RECLEN_INV = -3097;{ record length invalid }
491 SQLUIW_INROW_INV = -3098;{ row number out of range }
492 SQLUIW_INCOL_INV = -3099;{ col number out of range }
493
494 SQLUE_COL_TOOBIG = 3100;{ column longer than 254 chars }
495 SQLUE_DATA_CHARDEL = 3101;{ column has char delimiter }
496 SQLUE_DCNUM_HIGH = 3102;{ dcol column nbr > tcol number }
497 SQLUE_DCNUM_LOW = 3103;{ dcol column nbr < tcol number }
498 SQLUE_WARNING = 3107;{ warning message issued }
499
500 SQLUI_FEWER_DCOLS_DBCOLS_NULLED = 3112;{ extra database cols }
501 SQLUIC_UNSUPTYP_NULLABLE = 3113;{ column will be nulled }
502 SQLUIC_IGNORED_CHAR = 3114;{ character ignored }
503 SQLUIC_FIELD_TOO_LONG = 3115;{ input CSV field too long }
504 SQLUIC_CF_REQFIELD_MISSING = 3116;{ field value missing }
505 SQLUIC_CFINT2_NULLED = 3117;{ smallint field nulled }
506 SQLUIC_CFINT2_ROWREJ = 3118;{ smallint field error }
507 SQLUIC_CFINT4_NULLED = 3119;{ int field nulled }
508
509 SQLUIC_CFINT4_ROWREJ = 3120;{ int field error }
510 SQLUIC_CFFLOAT_NULLED = 3121;{ float field nulled }
511 SQLUIC_CFFLOAT_ROWREJ = 3122;{ float field error }
512 SQLUIC_CFDEC_NULLED = 3123;{ decimal field nulled }
513 SQLUIC_CFDEC_ROWREJ = 3124;{ decimal field error }
514 SQLUIC_CFTRUNC = 3125;{ char field truncated }
515
516 SQLUIC_CFCHAR_NULLED = 3126;{ char field nulled }
517 SQLUIC_CFCHAR_ROWREJ = 3127;{ char field error }
518 SQLUIC_CFDATETRUNC = 3128;{ date field truncated }
519 SQLUIC_CFDTPAD = 3129;{ date/time/stamp field padded }
520
521 SQLUIC_CFTIMETRUNC = 3130;{ time field truncated }
522 SQLUIC_CFSTAMPTRUNC = 3131;{ stamp field truncated }
523 SQLUIC_ROWTOOSHORT = 3137;{ not enough columns }
524 SQLUIC_EOF_IN_CHARDELS = 3138;{ end of input data file }
525 SQLUE_SQLSTPDB_ERR = 3139;{ stop using database failed }
526
527 SQLUE_WSFLAB_LEN = 3142;{ WSF label too big }
528 SQLUE_CHAR_MTRUNC = 3143;{ WSF char type length too long }
529 SQLUE_CHAR_WTRUNC = 3144;{ WSF char type length too long }
530 SQLUE_CHAR_ITRUNC = 3145;{ WSF char truncated at 240 }
531 SQLUE_ROWCT_LARGE = 3147;{ row count exceeds 2048 }
532 SQLUE_3148 = 3148;{ row not inserted }
533
534 SQLUII_TCNTCMP = 3154;{ 'H' hcnt not equal 'T' rec ccnt }
535 SQLUII_CNAML = 3155;{ invalid name length in 'C' rec }
536 SQLUII_CNULL = 3156;{ invalid null field in 'C' rec }
537 SQLUII_CTYPE = 3157;{ invalid type field in 'C' rec }
538 SQLUII_CSBCP = 3158;{ invalid SBCP field in 'C' rec }
539 SQLUII_CDBCP = 3159;{ invalid DBCP field in 'C' rec }
540
541 SQLUII_CLENG = 3160;{ invalid col len fld in 'C' rec }
542 SQLUII_CPREC = 3161;{ invalid precision in 'C' rec }
543 SQLUII_CSCAL = 3162;{ invalid scale field in 'C' rec }
544 SQLUII_CFLOAT_BLANKLENG = 3163;{ use 00008 for float col length }
545 SQLUII_CFLOAT_BADLENG = 3164;{ invalid float col len in 'C' }
546 SQLUII_CUTYPE = 3165;{ 'C' record has invalid type }
547 SQLUII_NOCREC_FOR_NULL_DBCOL = 3166;{ IXF col does not exist }
548 SQLUII_INVCREC_FOR_NULL_DBCOL = 3167;{ IXF col is invalid }
549 SQLUII_CRECCOMP_NULL_DBCOL = 3168;{ IXF col not compatible }
550
551 SQLUII_DEOF_INROW = 3170;{ EOF found in row of data }
552 SQLUIW_NONLAB_HDR = 3171;{ non-label cell in hdr row }
553 SQLUIW_NCOL_LOST = 3172;{ nullable colnam not found }
554 SQLUIW_UCOLTYP_NULL = 3174;{ unsup col type - nullable }
555 SQLUIW_INTYPE_INV = 3175;{ wrong rec type for db col }
556 SQLUIW_DATE_INV = 3176;{ date value out of range }
557 SQLUIW_TIME_INV = 3177;{ time value out of range }
558 SQLUIW_INTIME_INV = 3178;{ int rec for time invalid }
559 SQLUIW_NODATA_NNULL = 3179;{ no data / non nullable col}
560
561 SQLUE_INSERT_DISK = 3180;{ insert diskette request }
562 SQLUII_AE_NOTFOUND = 3181;{ file ended before AE rec }
563 SQLUII_INSERT_DISK_RETRY = 3182;{ retry to insert diskette }
564 SQLUEC_NOBLANK_B4KW = 3183;{ mult del o'rides/no blanks }
565 SQLUI_PREVMESG_ROWNO = 3185;{ row of previous warning }
566 SQLUI_LOGFULL_INSWARN = 3186;{ log full inserting row }
567 SQLUI_INDEX_WARN = 3187;{ error creating index }
568 SQLUI_TRUNCATE_TABLE = -3188;{ error truncating table }
569
570 SQLUI_INDEXIXF = -3190;{ invalid INDEXIXF option }
571 SQLUI_VIEW_ERROR = -3193;{ cannot import to this view }
572 SQLUI_SYSTBL_ERROR = -3194;{ cannot import system table }
573 SQLUE_RETRY_DISK = 3195;{ not enough space }
574 SQLUI_IN_NOTFD = -3196;{ input file not found }
575
576 SQLUI_REPL_PAR = -3201;{ cant replace parent table }
577 SQLUI_IUOPT_NOPK = -3203;{ cant update without PK's }
578 SQLUI_IUOPT_NOVIEW = -3204;{ cant update views }
579 SQLUI_VIEW_REF = -3205;{ cant replace ref cons view }
580 SQLUI_VIEW_SQUERY = -3206;{ cant replace subquery view }
581
582 SQLUIW_RCSEQ_INV = -3300;{ row/col sequence invalid }
583 SQLUIW_BOF_INV = -3301;{ BOF in middle of WSF file }
584 SQLUIW_EARLY_EOF = -3302;{ unexpected EOF }
585 SQLUI_IXFONLY = -3303;{ filetype not ixf }
586 SQLUI_DELTABLE = -3304;{ table does not exist }
587 SQLUI_CREATE_ERR = -3305;{ table already exists }
588 SQLUI_EXECUTE_ERR = -3306;{ SQL error during insert }
589 SQLUI_INC_COL = -3307;{ incomplete col info }
590 SQLUI_CP_MISMATCH = -3308;{ codepage mismatch }
591 SQLUI_DBLDATA = -3309;{ double byte data found }
592
593 SQLUI_UNREC_CTYPE = -3310;{ unrec col type }
594 SQLUI_INVCREC_FOR_CREATE = -3310;{ invalid IXF column }
595 SQLUE_DISK_FULL = -3313;{ disk full }
596 SQLUII_ASTAMP_NOMATCH = -3314;{ 'A' data/ time not as 'H' }
597 SQLUII_ACREC_BADVOL = -3315;{ invalid volume info }
598 SQLUII_CLOSE_NOTLAST = -3316;{ error closing IXF file }
599 SQLUW_FTMOD_INV = -3317;{ conflict in filetmod }
600 SQLUEC_DUP_KEYWORD = -3318;{ keyword repeated/filetmod }
601 SQLUI_ERR_CREATETAB = -3319;{ error creating table }
602
603 SQLUEC_NOROOM_AFTERKW = -3320;{ keyword at end of filetmod }
604 SQLUI_LOGFULL_INSERR = -3321;{ circular log full }
605 SQLUE_SEM_ERROR = -3322;{ semaphore error }
606 SQLUE_INVCOLTYPE = -3324;{ column type invalid }
607 SQLUEI_SYSERROR = -3327;{ system error }
608
609 SQLUII_ODD2GRAPH = 3330;{ odd leng char -> graphic }
610 SQLUE_OEACCESS = -3331;{ permission denied }
611 SQLUE_OEMFILE = -3332;{ too many files open }
612 SQLUE_OENOENT = -3333;{ no such file or directory }
613 SQLUE_OENOMEM = -3334;{ not enough memory }
614 SQLUE_OENOSPC = -3335;{ no space left }
615
616 SQLUIA_BAD_DCOL_METH = -3400;{ invalid method for ASC }
617 SQLUI_DCOLM_ALL = -3401;{ invalid import method }
618 SQLUIA_NULLLOC = -3402;{ zeroes as begin/end }
619 SQLUIA_LOCPAIR = -3403;{ invalid pair }
620 SQLUIA_LOCNUM = -3404;{ invalid pair for number }
621 SQLUIA_LOCDATE = -3405;{ invalid pair for date }
622 SQLUIA_LOCTIME = -3406;{ invalid pair for time }
623 SQLUIA_LOCSTAMP = -3407;{ invalid pair for timestamp }
624 SQLUIA_LOCLONG = 3408;{ pair defines long field }
625 SQLUIA_LOCSHORT = 3409;{ pair defines short field }
626 SQLUIA_LOCODD = -3410;{ invalid pair for graphic }
627 SQLUIA_CFGRAPH_NULLED = 3411;{ value not graphic--null }
628 SQLUIA_CFGRAPH_ROWREJ = 3412;{ value not graphic--not null}
629 SQLUIA_SHORTFLDNULLED = 3413;{ field too short--nulled }
630
631 SQLUE_MSG = -3999;{ Export message }
632
633 { Roll-Forward Recovery SQLCODES }
634
635 SQLU_INVALID_PARAM = -4904;{ invalid parameter }
636 SQLU_INVALID_RANGE = -4905;{ invalid parameter range }
637
638
639 { Configuration SQLCODES }
640
641 SQLF_RC_SYSAUTH = -5001;{ only sysadm can chg Database
642 Manager Config file }
643 SQLF_RC_DBAUTH = -5002;{ only sysadm can chg Database
644 Configuration file }
645 SQLF_RC_SYSERR = -5005;{ system error }
646 SQLF_RC_PATHNAME = -5010;{ path name error }
647 SQLF_RC_INVNDB = -5011;{ invalid # of concurrent db }
648 SQLF_RC_INVNSS = -5012;{ invalid # of shared seg }
649 SQLF_RC_INVRIO = -5013;{ invalid req I/O blk size }
650 SQLF_RC_INVSIO = -5015;{ invalid serv I/O blk size }
651 SQLF_RC_INVCHEAP = -5016;{ invalid communication heap }
652 SQLF_RC_INVRSHEAP = -5017;{ invalid remote service heap}
653 SQLF_RC_INVNUMRC = -5018;{ invalid max # remote connct}
654 SQLF_RC_INVNODENAME = -5020;{ invalid node name }
655 SQLF_RC_INVSYSIDX = -5021; {Invalid system flag }
656 SQLF_RC_INVDBIDX = -5022; {Invalid database flag }
657 SQLF_RC_KCON = -5025;{ not current sys config }
658 SQLF_RC_INVSHPTHR = -5027;{ invalid sort heap threshold}
659 SQLF_RC_REL = -5030;{ invalid release nbr }
660 SQLF_RC_NEEDMIG = -5035;{ database needs migration;
661 Release number is a back
662 level. }
663 SQLF_RC_DBSYSTM = -5045;{ incompatible sys/db config
664 (standalone) }
665 SQLF_RC_DBSYS2 = -5046;{ incompatible sys/db config
666 (concurrent dbs) }
667 SQLF_RC_INSMEM = -5047;{ insufficient memory to
668 support stack switching }
669 SQLF_RC_SYSCSUM = -5050;{ invalid sys config file }
670 SQLF_RC_DBCSUM = -5055;{ invalid db config file }
671 SQLF_RC_INVTKN = -5060;{ invalid token parameter }
672 SQLF_RC_INVNT = -5065;{ invalid node type }
673 SQLF_RC_CNTINV = -5070;{ invalid count parameter }
674 SQLF_RC_CNTBRK = -5075;{ interrupt received }
675 SQLF_RC_INVNLL = -5080;{ invalid # of locklist }
676 SQLF_RC_INVNBP = -5081;{ invalid # bufr pool pages }
677 SQLF_RC_INVNDBF = -5082;{ invalid # of DB files open }
678 SQLF_RC_INVILF = -5083;{ invalid initial log size }
679 SQLF_RC_INVSCP = -5084;{ invalid soft check pt val }
680 SQLF_RC_INVNAP = -5085;{ invalid # of active appls }
681 SQLF_RC_INVAHP = -5086;{ invalid application heapsz }
682 SQLF_RC_INVDHP = -5087;{ invalid database heap size }
683 SQLF_RC_INVDLT = -5088;{ invalid deadlock detection }
684 SQLF_RC_INVTAF = -5089;{ invalid # of total files open
685 per application }
686 SQLF_RC_INVSHP = -5090;{ invalid sortlist heap }
687 SQLF_RC_INVLFE = -5091;{ invalid logfile extention }
688 SQLF_RC_INVNLE = -5092;{ invalid # of log extention }
689 SQLF_RC_INVAGHP = -5093;{ invalid Sapphire agent heap}
690 SQLF_RC_INVMAL = -5094;{ invalid maxlocks per applic}
691 SQLF_RC_INVSTMHP = -5095;{ invalid statement heap }
692 SQLF_RC_INVLOGPRIM = -5096;{ invalid number primary
693 log files }
694 SQLF_RC_INVLOG2ND = -5097;{ invalid number of secondary
695 log files }
696 SQLF_RC_INVLOGFSZ = -5098;{ invalid log file size }
697 SQLF_RC_INVNEWLOGP = -5099;{ invalid new log path }
698
699 SQLF_RC_INVK1 = -5100;{ shared segs/# databases }
700 SQLF_RC_INVDB1 = -5101;{ incompatible logfile param }
701 SQLF_RC_INVDB2 = -5102;{ incompatible file open par }
702 SQLF_RC_INVDB3 = -5103;{ incompatible buffer pool and
703 maximum # of appls }
704 SQLF_RC_INVK2 = -5104;{ no DB's / req only }
705 SQLF_RC_INVK3 = -5105;{ standalone nodetype does not
706 support nodename }
707
708 SQLF_RC_RWS_EXIST = -5106;{ remote workstation has
709 already been configured }
710 SQLF_RC_RWS_SYSADM = -5107;{ <authid> does not have
711 authority to add or drop
712 a remote workstation }
713 SQLF_RC_RWS_NOT_EXIST = -5108;{ remote workstation has not
714 been previously setup using
715 sqlarws }
716 SQLF_RC_RWS_MACHINENAME = -5109;{ machine name is missing or
717 is too long. }
718 SQLF_RC_RWS_INV_OPT = -5110;{ configuration option is
719 not valid }
720 SQLF_RC_ENV_VAR_NOTDEF = -5111;{ Environment variable
721 WKSTPROF is not defined }
722 SQLF_RC_INV_BIT_VALUE = -5112;{ Invalid bit value
723 must be 0 or 1 }
724 SQLF_RC_LF_1_3 = -5120;{ Both R1 & R3 Log parameters
725 may not be modified }
726 SQLF_RC_INVDETS = -5121;{ Invalid DB config details }
727 SQLF_RC_PROTECT = -5122;{ Database is copied protect }
728 SQLF_RC_LOGIO = -5123;{ I/O Error with log header }
729 SQLF_RC_INV_DBMENT = -5126;{ Invalid DBM Cfg file entry }
730 SQLF_RC_INVTOUT = -5130; {Invalid timeout value }
731 SQLF_RC_INVAGT = -5131; {Invalid agent init range }
732 SQLF_RC_INVDBAGT = -5132; {Invalid number of agents }
733 SQLF_RC_INV_SHMEMSZ = -5133; {Invalid sz for shared mem }
734 SQLF_RC_INVSQL = -5134; {Invalid SQL stmt size }
735
736
737{ Database Utility Commands -- Function Prototypes }
738
739IMPORTS
740 { GET ADMINISTRATIVE AUTHORIZATIONS }
741 FUNCTION sqluadau (VAR a:sql_authorizations;
742 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
743 APIENTRY; 'SQLAPI32' name 'sqluadau';
744 { GET AUTHORIZATIONS }
745 FUNCTION sqluauth_api (VAR asqlca:TSQLCA):INTEGER; { SQLCA }
746 APIENTRY; 'SQLE32' name 'sqluauth_api';
747 { BACKUP }
748 FUNCTION sqluback_api (database:CSTRING; { database }
749 passwd:CSTRING; { spare, was password }
750 typ:LONGINT; { type }
751 drive:LONGWORD; { drive }
752 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
753 APIENTRY; 'SQLUB32' name 'sqluback_api';
754 { RESTORE }
755 FUNCTION sqludres_api (database:CSTRING; { database }
756 drive:LONGWORD; { database drive }
757 passwd:CSTRING; { spare, was password }
758 inputdrive:LONGWORD; { input drive }
759 callerac:LONGINT; { callerac }
760 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
761 APIENTRY; 'SQLUB32' name 'sqludres_api';
762 { EXPORT FROM }
763 FUNCTION sqluexp_api (database:CSTRING; { database }
764 passwd:CSTRING; { spare, was password }
765 datafile:CSTRING; { datafile }
766 VAR asqldcol:SQLDCOL; { dcoldata }
767 VAR asqlchar:TSQLCHAR; { tcolstrg }
768 VAR filetype; { filetype }
769 VAR asqlchar2:TSQLCHAR; { filetmod }
770 msgfile:CSTRING; { msgfile }
771 caction:LONGINT; { caller action }
772 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
773 APIENTRY; 'SQLUB32' name 'sqluexp_api';
774 FUNCTION sqlufrol_api (database:CSTRING; { database name }
775 action:LONGWORD; { action }
776 Stop:CSTRING; { Stop Timestamp }
777 NFile:CSTRING; { Next Archive File needed }
778 FFile:CSTRING; { First Archive File to be deleted}
779 LFile:CSTRING; { Last Archive File to be deleted }
780 RetStamp:CSTRING; { Returned Timestamp }
781 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
782 APIENTRY; 'SQLUB32' name 'sqlufrol_api';
783 { IMPORT TO }
784 FUNCTION sqluimp_api (database:CSTRING; { database }
785 passwd:CSTRING; { spare, was password }
786 datafile:CSTRING; { datafile }
787 VAR asqldcol:SQLDCOL; { dcoldata }
788 VAR asqlchar:TSQLCHAR; { tcolstrg }
789 VAR filetype; { filetype }
790 VAR asqlchar2:TSQLCHAR;{ filetmod }
791 msgfile:CSTRING; { msgfile }
792 action:LONGINT; { caller action }
793 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
794 APIENTRY; 'SQLUB32' name 'sqluimp_api';
795 { REORG }
796 FUNCTION sqlureor_api (database:CSTRING; { database }
797 passwd:CSTRING; { spare, was password }
798 table:CSTRING; { table name }
799 iname:CSTRING; { iname }
800 filepath:CSTRING; { filepath }
801 action:LONGINT; { spare, was callerac }
802 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
803 APIENTRY; 'SQLUB32' name 'sqlureor_api';
804 { RUNSTATS }
805 FUNCTION sqlustat_api (table:CSTRING; { table name }
806 nbr:LONGWORD; { nbr indexes }
807 ilist:CSTRING; { indexlist }
808 opt:CSTRING; { statsopt }
809 lvl:CSTRING; { sharelvl }
810 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
811 APIENTRY; 'SQLUB32' name 'sqlustat_api';
812 { GET TABLE AUTH's }
813 FUNCTION sqlutbau (table:CSTRING; { fully-qualified table name }
814 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
815 APIENTRY; 'SQLUB32' name 'sqlutbau';
816 { GET ADMINISTRATIVE AUTHORIZATIONS }
817 FUNCTION SQLGADAU (VAR a:sql_authorizations;
818 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
819 APIENTRY; 'SQLAPI32' name 'SQLGADAU';
820 { BACKUP }
821 FUNCTION SQLGBACK (spare:LONGWORD; { Spare1 }
822 dlen:LONGWORD; { Database name length }
823 Typ:LONGINT; { Type }
824 drive:LONGWORD; { Drive }
825 VAR asqlca:TSQLCA;{ SQLCA }
826 Spare2:CSTRING; { Spare2 }
827 Database:CSTRING):INTEGER; { Database }
828 APIENTRY; 'SQLAPI32' name 'SQLGBACK';
829 { RESTORE }
830 FUNCTION SQLGDRES (Spare1:LONGWORD; { Spare1 }
831 dlen:LONGWORD; { Database length }
832 action:LONGINT; { Caller action }
833 Drive:LONGWORD; { Drive }
834 ddrive:LONGWORD; { Database drive }
835 VAR asqlca:TSQLCA; { Sqlca }
836 Spare2:CSTRING; { Spare2 }
837 DataBase:CSTRING):INTEGER; { Database }
838 APIENTRY; 'SQLAPI32' name 'SQLGRES';
839 { EXPORT FROM }
840 FUNCTION SQLGEXP (mlen:LONGWORD; { Message file name length }
841 ftlen:LONGWORD; { File type length }
842 dlen:LONGWORD; { Data file name length }
843 Spare1:LONGWORD; { Spare1 }
844 dblen:LONGWORD; { Database name length }
845 action:LONGWORD; { Caller action }
846 VAR asqlca:TSQLCA; { SQLCA }
847 msgfile:CSTRING;{ Message file }
848 VAR asqlchar:TSQLCHAR; { File mode }
849 FileType:CSTRING; { File type }
850 VAR asqlchar2:TSQLCHAR; { tcolstrg }
851 VAR asqldcol:SQLDCOL; { dcoldata }
852 datafile:CSTRING; { datafile }
853 Spare2:CSTRING; { Spare2 }
854 Database:CSTRING):INTEGER; { Database }
855 APIENTRY; 'SQLAPI32' name 'SQLGEXP';
856 { IMPORT TO }
857 FUNCTION SQLGIMP (mlen:LONGWORD; { Message file name length }
858 ftlen:LONGWORD; { File type length }
859 dlen:LONGWORD; { Data file name length }
860 Spare1:LONGWORD; { Spare1 }
861 dblen:LONGWORD; { Database name length }
862 action:LONGINT; { Caller action }
863 VAR asqlca:TSQLCA; { Sqlca }
864 mfile:CSTRING; { Message file }
865 VAR asqlchar:TSQLCHAR; { File mode }
866 FileType:CSTRING; { File type }
867 VAR asqlchar2:TSQLCHAR; { tcolstrg }
868 VAR asqldcol:SQLDCOL; { dcoldata }
869 datafile:CSTRING; { datafile }
870 spare2:CSTRING; { Spare2 }
871 database:CSTRING):INTEGER; { Database }
872 APIENTRY; 'SQLAPI32' name 'SQLGIMP';
873 { REORG }
874 FUNCTION SQLGREOR (fplen:LONGWORD; { Filepath length }
875 tlen:LONGWORD; { Table name length }
876 ilen:LONGWORD; { inname length }
877 spare1:LONGWORD; { Spare1 }
878 dlen:LONGWORD; { database length }
879 spare3:LONGINT; { Spare3 }
880 VAR asqlca:TSQLCA;{ SQLCA }
881 filepath:CSTRING;{ filepath }
882 table:CSTRING; { table name }
883 iname:CSTRING; { inname }
884 spare2:CSTRING; { Spare2 }
885 database:CSTRING):INTEGER; { Database }
886 APIENTRY; 'SQLAPI32' name 'SQLGREOR';
887 { RUNSTATS }
888 FUNCTION SQLGSTAT (tlen:LONGWORD; { table name length }
889 count:LONGWORD; { number of indices }
890 option:LONGWORD; { stats option }
891 slevel:LONGWORD; { share level }
892 VAR ilen:LONGWORD; { index lengths }
893 VAR asqlca:TSQLCA;{ SQLCA }
894 VAR list:PChar; { index list }
895 table:CSTRING):INTEGER; { table name }
896 APIENTRY; 'SQLAPI32' name 'SQLGSTAT';
897 FUNCTION SQLGFROL ( dbnamel:LONGWORD;
898 pointInTimel :LONGWORD;
899 action :LONGWORD;
900 VAR asqlca:TSQLCA;
901 dbname:CSTRING;
902 pointInTime:CSTRING;
903 VAR nextArcFilel:WORD;
904 VAR nextArcFile:CSTRING;
905 VAR firstDeleteArcl:WORD;
906 VAR firstDeleteArc:CSTRING;
907 VAR lastDeleteArcl:WORD;
908 VAR lastDeleteArc:CSTRING;
909 VAR lastCommitTimel:WORD;
910 VAR lastCommitTime:CSTRING):INTEGER;
911 APIENTRY; 'SQLAPI32' name 'SQLGFROL';
912 FUNCTION SQLGDREF ( data_length:LONGWORD;
913 VAR target_buffer;
914 VAR source_buffer:POINTER):INTEGER;
915 APIENTRY; 'SQLAPI32' name 'SQLGDREF';
916 FUNCTION SQLGADDR ( VAR inptr;
917 VAR outptr:POINTER):INTEGER;
918 APIENTRY; 'SQLAPI32' name 'SQLGADDR';
919 { Configuration Utility Commands }
920 { RESET DM CONFIGURATION }
921 FUNCTION sqlfrsys (VAR asqlca:TSQLCA):INTEGER; { SQLCA }
922 APIENTRY; 'SQLF32' name 'sqlfrsys';
923 { RESET DATABASE CONFIGURATION }
924 FUNCTION sqlfrdbc (database:CSTRING; { database }
925 passwd:CSTRING; { password }
926 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
927 APIENTRY; 'SQLF32' name 'sqlfrdbc';
928 { UPDATE DM CONFIGURATION }
929 FUNCTION sqlfusys (count:LONGWORD; { count }
930 VAR asqlfupd:SQLFUPD; { list of items }
931 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
932 APIENTRY; 'SQLF32' name 'sqlfusys';
933 { UPDATE DATABASE CONFIGURATION }
934 FUNCTION sqlfeudb (database:CSTRING; { database }
935 passwd:CSTRING; { password }
936 count:LONGWORD; { count }
937 VAR asqlfupd:SQLFUPD;{ list of items }
938 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
939 APIENTRY; 'SQLF32' name 'sqlfeudb';
940 { RETURN DM CONFIGURATION }
941 FUNCTION sqlfxsys (count:LONGWORD; { count }
942 VAR asqlfupd:SQLFUPD; { list of items }
943 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
944 APIENTRY; 'SQLF32' name 'sqlfxsys';
945 { RETURN DATABASE CONFIGURATION }
946 FUNCTION sqlfxdbc (database:CSTRING; { database }
947 passwd:CSTRING; { password }
948 count:LONGWORD; { count }
949 VAR asqlfupd:SQLFUPD;{ list of items }
950 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
951 APIENTRY; 'SQLF32' name 'sqlfxdbc';
952 { RESET DM CONFIGURATION }
953 FUNCTION SQLGRSYS (VAR asqlca:TSQLCA):INTEGER; { SQLCA }
954 APIENTRY; 'SQLAPI32' name 'SQLGRSYS';
955 { RESET DATABASE CONFIGURATION }
956 FUNCTION SQLGRDBC (spare1:LONGWORD; { Spare1 }
957 dlen:LONGWORD; { Database name length }
958 VAR asqlca:TSQLCA; { SQLCA }
959 spare2:CSTRING; { Spare2 }
960 database:CSTRING):INTEGER; { database }
961 APIENTRY; 'SQLAPI32' name 'SQLGRDBC';
962 { UPDATE DM CONFIGURATION }
963 FUNCTION SQLGUSYS (count:LONGWORD; { count }
964 VAR llen:WORD; { List of item lengths }
965 VAR asqlfupd:SQLFUPD; { list of items }
966 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
967 APIENTRY; 'SQLAPI32' name 'SQLGUSYS';
968 { UPDATE DATABASE CONFIGURATION }
969 FUNCTION SQLGEUDB (spare1:LONGWORD; { Spare1 }
970 dlen:LONGWORD; { Database name length }
971 count:LONGWORD; { count }
972 VAR llen:WORD; { List of item lengths }
973 VAR asqlfupd:SQLFUPD; { list of items }
974 VAR asqlca:TSQLCA; { SQLCA }
975 Spare2:CSTRING; { Spare2 }
976 Database:CSTRING):INTEGER;{ database }
977 APIENTRY; 'SQLAPI32' name 'SQLGEUDB';
978 { RETURN DM CONFIGURATION }
979 FUNCTION SQLGXSYS (count:LONGWORD; { count }
980 VAR asqlfupd:SQLFUPD; { list of items }
981 VAR asqlca:TSQLCA):INTEGER; { SQLCA }
982 APIENTRY; 'SQLAPI32' name 'SQLGXSYS';
983 { RETURN DATABASE CONFIGURATION }
984 FUNCTION SQLGXDBC (Spare1:LONGWORD; { Spare1}
985 dlen:LONGWORD; { Database name length }
986 count:LONGWORD; { count }
987 VAR asqlfupd:SQLFUPD; { list of items }
988 VAR asqlca:TSQLCA; { SQLCA }
989 spare2:CSTRING; { Spare2 }
990 database:CSTRING):INTEGER; { database }
991 APIENTRY; 'SQLAPI32' name 'SQLGXDBC';
992END;
993
994IMPLEMENTATION
995
996END.
Note: See TracBrowser for help on using the repository browser.