Retro1.org codex

*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