*DECK     TXTAPSS 
PROC TXTAPSS; 
# TITLE TXTAPSS - APPLICATION DEFINITIONS AND SUPERVISORY MESSAGES. # 
# 
*     DATE              82/06/04. 
# 
      CONTROL    STEXT; 
  
      BEGIN # TXTAPSS # 
# 
**        TXTAPSS - APPLICATION DEFINITIONS AND SUPERVISORY MESSAGES. 
* 
*         S. H. FISCHER.     81/08/05.
* 
*         THIS SYMPL TEXT PROVIDES APPLICATION DEFINITIONS AND
*         SUPERVISORY MESSAGES. 
* 
*         PROC TXTAPSS
* 
# 
  
      DEF MSBFAPL # 100 #;   # THIS IS ONE HALF OF MSGBUF IN TEXTSS    #
  
  
*CALL     SMAPPFC 
  
*CALL     SMAPDEF 
  
*CALL     MISCOM
  
  
      COMMON BAAP;
        BEGIN 
            BASED ARRAY ABH[00:01] S(1); # APPLICATION BLOCK HEADER    #
            BEGIN 
*CALL     HEADER
            END 
  
            BASED ARRAY APSM[00:01] S(MSBFAPL); 
            BEGIN 
*CALL     SUPMSG
*CALL     SMAPPL
            END 
  
      END 
  
          END  # TXTAPSS #
          TERM
