*DECK TXOUTAA 
PROC TXOUTAA; 
# TITLE TXOUTAA- SYMPL TEXT FOR MULTI HOST A-A ROUTINES. #
# DATE  82/09/20. # 
# 
*     DATE              82/09/20. 
# 
CONTROL STEXT;
  
      BEGIN # TXOUTAA#
  
      COMMON NVFOUT;
      BEGIN 
  
# 
**    OUTREC - DEFINITION FOR THE OUTCALL RECORD. 
# 
  
      BASED ARRAY OUTREC [00:00] S(1);
        BEGIN 
        ITEM OUTR$WRD   U(00,00,60);     # WORD REFERENCE # 
        END 
  
# 
**    OUTRECL - OUTCALL RECORD LENGTH.
# 
  
      ITEM OUTRECL; 
  
  
      END #NVFOUT#
  
      END # TXOUTAA#
 TERM 
*ENDIF
