TurboIMAGE/XL Database Management System Reference Manual MPE/iX V6.5 (30391-90011)
Contents
9
Obtaining Database Information . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 258
Obtaining Error Messages and Explanations . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 259
Closing the Database . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 259
C . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 260
Defining Data Types, Variables, and Intrinsics. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 260
Main Body of Program . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 261
Obtaining Error Messages and Explanations . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 262
Opening the Database. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 263
Retrieving All the Records on a Chain (with Item Level Locking). . . . . . . . . . . . . . . . . . . 263
COBOL II . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 266
Defining Data Types, Variables, and Intrinsics. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 267
Main Body of Program . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 270
Opening the Database. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 271
Retrieving All the Records on a Chain (with Item Level Locking). . . . . . . . . . . . . . . . . . . 271
Retrieving a Data Entry Using a Record Number . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 273
Retrieving Master Data Using a Key Value . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 275
Retrieving Data Serially (with Set Level Locking) . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 276
Adding an Entry . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 277
Updating an Entry . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 279
Deleting an Entry . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 282
Rewinding a Data Set. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 284
Obtaining Database Information . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 284
Obtaining Error Messages and Explanations . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 285
Closing the Database . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 286
FORTRAN 77 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 287
Defining Data Types, Variables, and Intrinsics. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 287
Main Body of Program . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 289
Obtaining Error Messages and Explanations . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 289
Opening the Database. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 290
Retrieving All the Records on a Chain (with Item Level Locking). . . . . . . . . . . . . . . . . . . 291
Pascal . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 294
Defining Data Types, Variables, and Intrinsics. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 294
Obtaining Error Messages and Explanations . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 296
Opening the Database. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 297
Retrieving All the Records on a Chain (with Item Level Locking). . . . . . . . . . . . . . . . . . . 298
RPG. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 301
Defining Data Types, Variables, and Intrinsics. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 301
Main Body of Program . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 302
Retrieving All the Records on a Chain (with Item Level Locking). . . . . . . . . . . . . . . . . . . 302
Obtaining Error Messages and Explanations . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 304
Defining Output . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 304