*DECK FFSURAE 
USETEXT TEXTFFS 
      PROC FFSURAE; 
*CALL COPYRITE
# TITLE FFSURAE - RESET NAM PORTION OF AN ACN ENTRY.                   #
  
      BEGIN                            # FFSURAE                       #
# 
**    FFSURAE  RESET NAM PORTION OF AN ACN ENTRY. 
* 
*     A. LIM                           88/01/15 
* 
*     THIS PROCEDURE RESETS THE NAM PORTION OF AN ACN ENTRY TO
*     THE REQUIRED INITIAL VALUES.
* 
*     PROC FFSURAE
* 
*     ENTRY    ACNX = INDEX INTO CURRENT ACN ENTRY. 
* 
*     EXIT     ACN ENTRY SET TO THE REQUIRED VALUES.
* 
# 
  
      CONTROL EJECT;
  
#     START MAIN PROCEDURE                                             #
  
      ACN$STATE[ACNX] = NULL;          # RESET C/N STATE               #
      ACN$ACN[ACNX]   = 0;             # RESET APPLICATION C/N NUMBER  #
      ACN$ABN[ACNX]   = 0;             # RESET APPLICATION BLK NUMBER  #
      ACN$WBC[ACNX]   = 0;             # RESET WAITING BLOCK COUNT     #
      ACN$OBC[ACNX]   = 0;             # RESET OUTSTANDING BLOCK COUNT #
      ACN$FCR[ACNX]   = TRUE;          # RESET FLOW CONTROL            #
      ACN$SNODR[ACNX] = FALSE;         # RESET SEND NO O/S DATA INDICAT#
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FFSURAE                       #
  
      TERM
