VMS Help
COBOL, miscellaneous_topics, special_registers, 2 DB-CURRENT-RECORD-ID
 *Conan The Librarian 

  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.
  Close     Help