D_COTYPE

SUMMARY
   d_cotype(SET,rectype [,dbn])
   int SET;
   int *rectype;
   int dbn;

ARGUMENTS
   SET         Set type which the current owner record type is to be returned.
   rectype     Pointer to an integer variable to contained the returned record
               type.
   dbn         (optional)The number of the database containing the record

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

CURRENCY CHANGES
    None

RETURN CODES
   -2    S_INVSET      Invalid set type.Probably passed a record or field type
                       instead of a SET type.

   -9    S_NOCO        The current owner for the specified set is null.

EXAMPLE
   int rtype;
   ..
   /* check consistency of database */
   d_cotype(HAS_PUBLISHED,&rtype);
   if (rtype != AUTHOR)
     pr_dberror();
     ..