COMBSNS 
COMMON
  
#     COMBSNS - M860 SENSE RECORD.                                     #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL FI;
      BEGIN  # COMDECK SNS DESCRIPTION #
  
# 
***   COMBSNS - M860 SENSE RECORD.
* 
*     THE SENSE RECORD IS RETURNED BY THE M860 HARDWARE AS A RESULT OF A
*     READ SENSE OF A UNIT. 
# 
  
  
      DEF MST$SREADY #O"37"#;        # VALUE OF *MST$RSTATE[0]* IF ALL
                                       STATIONS ARE READY # 
      DEF SNSLEN     #8#;            # LENGTH OF SENSE RECORD # 
  
      COMMON BSNSCOM; 
  
        BEGIN  # BSNSCOM #
  
        BASED 
        ARRAY SNS [0:0] S(SNSLEN);
          BEGIN  # ARRAY SNS #
          ITEM MSA$CREJ   B(01,20,01);  # COMMAND REJECT #
          END  # ARRAY SNS #
  
        END  # BSNSCOM #
  
      END  # COMDECK SNS DESCRIPTION #
  
                                               CONTROL LIST;
