*DECK     TXTSMCS 
PROC TXTSMCS; 
# TITLE TXTSMCS - SUPERVISORY MESSAGES FOR CS.  # 
      CONTROL    STEXT; 
  
      BEGIN # TXTSMCS # 
# 
**    TXTSMCS - SUPERVISORY MESSAGES FOR CS.
* 
*     S. H. FISCHER.         81/08/05.
*     C. J. BRION            82/04/08.
* 
*     THIS SYMPL TEXT PROVIDES THE SUPERVISORY MESSAGE DEFINITIONS
*     NEEDED BY CS WHEN COMMUNICATING WITH NPU S. 
* 
*     PROC TXTSMCS
* 
# 
  
      DEF MSBFCSL  # 100 #;  # THIS IS ONE HALF OF *MSGBUF* IN TEXTSS  #
      DEF ACTCSNP$ # 2 #;    # ACT VALUE FOR SMS CS TO NPU #
  
  
*CALL SMCSDEF 
  
  
  
  
      COMMON BACSSM;
  
      BEGIN  # BACSSM # 
  
  
      BASED ARRAY CSSM [00:01] S(MSBFCSL);
  
      BEGIN  # CSSM # 
*CALL SMCS
      END  # CSSM # 
  
  
      END  # BACSSM # 
  
      END  # TXTSMCS #
      TERM
