/********************************************************
 *                                                       *
 *   This subroutine sets the appropriate return         *
 *   code if conversation is ether in END or abnormal    *
 *   state.                                              *
 *                                                       *
 *   Input : ptr - pointer to the control record,        *
 *           p_rcb - pointer to RCB                      *
 *   Output: prim_rc & sec_rc fields in control          *
 *           record.                                     *
 *                                                       *
 * CopyRight 1995. Nicholas Poljakov all rights reserved.*
 *                                                       *
 ********************************************************/
#include <rcb.h>
#include <common.h>
#include <state1.h>

setrc(ptr, p_rcb)
struct com *ptr;
struct rcb *p_rcb;
{
   if (p_rcb -> sense == 0x08640000) {
      ptr -> prim_rc = deallocate_abend_prog;
      return (0);
   }
   if (p_rcb -> sense == 0x08640001) {
      ptr -> prim_rc = deallocate_abend_svc;
      return (0);
   }
   if (p_rcb -> sense == 0x08640002) {
      ptr -> prim_rc = deallocate_abend_timer;
      return (0);
   }
   return (0);
}