D_CMTYPE

SUMMARY
   d_cmtype(SET,rectype)
   int SET;
   int *rectype;

ARGUMENTS
   SET         Set type for which the current member record type is to be
               returned.
   rectype     Pointer to an integer variable to contained the returned record
               type.

DESCRIPTION
   This function copies the record type of the current membeer of SET into the
   integer variable pointer to be rectype. It is particularly in determining
   the type of the current member of multiple member sets.

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_NOCM        The current member for the specified set is null.

EXAMPLE
   int rtype;      /* record type */
   long fld;       /* field type */
   char txt[80];   /* comment text */
   ..
   d_cmtype(COMMENTS,&rtype);
   switch(rtype){
    case TEXT30:
           fld = T30_line;
           break;
    case TEXT55:
           fld = T55_line;
           break;
    case TEXT80:
           fld = T80_line;
           break;
   }
   d_csmread(COMMENTS,fld,&txt);