*DECK TXINAA
PROC TXINAA;
# TITLE TXINAA - SYMPL TEXT FOR MULTI HOST A-A ROUTINES. #
# DATE  82/09/20. # 
# 
*     DATE              82/09/20. 
# 
CONTROL STEXT;
  
      BEGIN # TXINAA #
  
      COMMON NVFIN; 
      BEGIN 
  
# 
**    INREC - INCALL RECORD.
# 
  
      BASED ARRAY INREC [00:00] S(1); 
        BEGIN 
        ITEM INR$WORD   U(00,00,60);
        END 
  
# 
**    INRECL - INCALL RECORD LENGTH.
# 
  
      ITEM INRECL;
  
      END #NVFIN# 
  
  
  
      END # TEXTAA #
 TERM 
*ENDIF
