Technical data

2.2.3 DB-CURRENT-RECORD-ID

The reserved word DB-CURRENT-RECORD-ID names a database register. It

consists of a word COMP item represented by PIC S9(4) USAGE IS COMP. The

execution of COBOL data manipulation language (DML) statements that alter

currency indicators causes the Database Control System (DBCS) to place a value

in this register.

If the currency indicator for the run unit is not null, the register contains the

subschema User ID number (UID) of the record type of the current record of the

run unit. If the currency indicator for the run unit is null, the register contains

zero. Procedure Division statements can access the values in this register;

however, only the DBCS can change the value.

2.2.4 DB-KEY

The reserved word DB-KEY names a database register. It consists of a quadword

COMP item represented by PIC S9(18) USAGE IS COMP. The execution of the

COBOL data manipulation language (DML) statements FETCH, FIND, and

STORE causes the Database Control System (DBCS) to place a value in this

The DB-KEY special register contains three values. To access the individual

values, move the DB-KEY register to a record as follows:

01 DATABASE-KEY

02 LINE-NUMBER PIC 9(4) USAGE IS COMP.

02 PAGE-NUMBER PIC 9(9) USAGE IS COMP.

02 AREA-NUMBER PIC 9(4) USAGE IS COMP.

2.2.5 DB-UWA

The reserved word DB-UWA names a database register. It consists of 108

alphanumeric characters represented by PIC X(108) USAGE IS DISPLAY. The

Database Control System (DBCS) makes data items available to your program

through the DB-UWA record delivery area. The DB-UWA register can be used

with callable DBQ routines. Procedure Division statements can access the

values in this register; however, only the DBCS can change the value. For more

information, refer to the the discussion of the DBO/WORK_AREA command in

the Oracle CODASYL DBMS documentation set.

Database Programming Elements of HP COBOL 2–3