Retro1.org codex

*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