*DECK PENDACK 
USETEXT COMCBEG 
USETEXT COMADEF 
USETEXT COMACBF 
USETEXT COMACBX 
PROC PENDACK; 
# TITLE PENDACK - PROCESS END-ACKNOWLEDGE LEVEL 7 COMMAND # 
  
      BEGIN  # PENDACK #
  
# 
**    PENDACK - PROCESS END-ACKNOWLEDGE LEVEL 7 COMMAND.
* 
*     PENDACK MUST DECIDE WHAT TO DO WITH AN END-ACKNOWLEDGE
*     LEVEL 7 COMMAND THAT HAS BEEN RECEIVED. 
* 
*     PROC PENDACK
* 
*     ENTRY      COMMAND IS IN ARRAY TAI7MSG. 
*                <FTTENT> = FWA FTT ENTRY.
* 
*     EXIT       NONE.
* 
*     PROCESS    IF THE PARAMETER TO THE COMMAND IS THE DATA-TRANSFER 
*                   PARAMETER AND IF THE STATE OF THE FILE TRANSFER 
*                   IS WAITING FOR THE ER COMMAND,
*                THEN:  
*                  CALL XFRCOMP TO COMPLETE THE FILE TRANSFER.
*                ELSE:  
*                  CALL PROTERR TO REPORT A PROTOCOL ERROR. 
* 
****  PROC PENDACK - XREF LIST BEGIN. 
# 
  
      XREF
        BEGIN 
        FUNC APFETCH I;              # FETCH APPLICATION CMD-PARAMETER #
        PROC XFRCOMP;                #  COMPLETE FILE TRANSFER #
        PROC PROTERR;                #  REPORT PROTOCOL ERROR # 
        END 
  
# 
****  PROC PENDACK XREF LIST END. 
# 
                                               CONTROL EJECT; 
      RTNFLAG = APFETCH (TAIHW7MSG,ATTR,QUAL,TEXTL,TEXTACP);
      IF RTNFLAG EQ ATR$DXFRP 
        AND FTTSTATE EQ S"WTFRERCMD"
      THEN
        BEGIN 
        XFRCOMP;                     # COMPLETE FILE TRANSFER # 
        END 
  
      ELSE
        BEGIN 
        PROTERR;                     # REPORT PROTOCOL ERROR #
        END 
  
      END    # PENDACK #
  
      TERM
