D_CRTYPE

SUMMARY
   d_crtype(rectype[,dbn])
   int *rectype;
   int dbn;

ARGUMENTS
   rectype     Pointer to an integer variable to contain the returned record
               type.

DESCRIPTION
   This function copies the record type of the current record into the
   integer variable pointer to be rectype.

CURRENCY CHANGES
    None

RETURN CODES
    -7      S_NOCR         The current record is null.

EXAMPLE
   int rtype;      /* record type */
   ..
   d_crtype(&rtype);
   if (rtype==AUTHOR)
     pr_author();
   else if (rtype==INFO)
     pr_info();