VMS Help — COBOL miscellaneous_topics, special_registers, 2 DB-CURRENT-RECORD-ID
A database special register containing the subschema user ID number
(UID) of the record type of the current record of the run unit. It
contains zero if there is no current record of the run unit.