D_CRGET

SUMMARY
   d_crget(dba[,dbn]
   DB_ADDR *dba;
   int dbn;

ARGUMENTS
   dba         Pointer to a BD_ADRR variable to receive the database address
               of the current record.

DESCRIPTION
   This function copies the database address of the current record into the
   database address variable pointer to be dba. if the current record is null
   (NULL_DBA) error code S_NORC is returned as a status (i.e dberr is not
   called and *dba will be set to null. It is used in conjunction with the
   d_crset function for saving and restoring the current record.

──────────────────────────────────────────────────────────────────────────
Note:
   If the record type of the current record is timestamped, you should also
   call function d_gtscr to get its last access timestamp. When the current
   record is later restored by d_crset, function d_stscr should also be called
   to restore the last access timestamp associated with that current record.
──────────────────────────────────────────────────────────────────────────

CURRENCY CHANGES
   None

RETURN CODES
   -7    S_NOCR        The current record is null. Returned as a status code
                       rather than an error (i.e dberr is not called).

EXAMPLE
   DB_ADDR save_dba;
    ..
   /* save current record for later retrievial */
   d_crget(&save_bda)
    ..
   /* later, retrieve saved record */
   d_crset(&save_dba);
   d_recread(&irec);
    ..