TurboIMAGE/XL Database Management System Reference Manual (30391-90012)

Table Of Contents
Contents
9
Obtaining Database Information . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 260
Obtaining Error Messages and Explanations . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 261
Closing the Database . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 261
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 262
Defining Data Types, Variables, and Intrinsics. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 262
Main Body of Program . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 263
Obtaining Error Messages and Explanations . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 264
Opening the Database. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 265
Retrieving All the Records on a Chain (with Item Level Locking). . . . . . . . . . . . . . . . . . . 265
COBOL II . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 268
Defining Data Types, Variables, and Intrinsics. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 269
Main Body of Program . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 272
Opening the Database. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 273
Retrieving All the Records on a Chain (with Item Level Locking). . . . . . . . . . . . . . . . . . . 273
Retrieving a Data Entry Using a Record Number . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 275
Retrieving Master Data Using a Key Value . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 277
Retrieving Data Serially (with Set Level Locking) . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 278
Adding an Entry . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 279
Updating an Entry . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 281
Deleting an Entry . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 284
Rewinding a Data Set. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 286
Obtaining Database Information . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 286
Obtaining Error Messages and Explanations . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 287
Closing the Database . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 288
FORTRAN 77 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 289
Defining Data Types, Variables, and Intrinsics. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 289
Main Body of Program . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 291
Obtaining Error Messages and Explanations . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 291
Opening the Database. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 292
Retrieving All the Records on a Chain (with Item Level Locking). . . . . . . . . . . . . . . . . . . 293
Pascal . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 296
Defining Data Types, Variables, and Intrinsics. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 296
Obtaining Error Messages and Explanations . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 298
Opening the Database. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 299
Retrieving All the Records on a Chain (with Item Level Locking). . . . . . . . . . . . . . . . . . . 300
RPG. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 303
Defining Data Types, Variables, and Intrinsics. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 303
Main Body of Program . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 304
Retrieving All the Records on a Chain (with Item Level Locking). . . . . . . . . . . . . . . . . . . 304
Obtaining Error Messages and Explanations . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 306
Defining Output . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 306