*DECK PRNAKM
USETEXT COMCBEG 
USETEXT COMADEF 
USETEXT COMACBF 
USETEXT COMACBX 
USETEXT COMADFM 
USETEXT COMAMCB 
PROC PRNAKM;
# TITLE PRNAKM - PROCESS FC/NAK/R MESSAGE. #
  
      BEGIN  # PRNAKM # 
  
# 
**    PRNAKM - PROCESS FC/NAK/R MESSAGE.
* 
*     PRNAKM PROCESSES THE FC/NAK/R MESSAGE AND RECORDS THE 
*     NUMBER OF TIMES THE MESSAGE WAS RECEIVED. 
*     (IF THE RETRY DOES NOT EVENTUALLY SUCCEED, CHKTIME WILL TIME OUT THE
*     CONNECTION AND RETURN THE *BLOCK NOT SENT* ERROR.)
* 
*     PROC PRNAKM 
* 
*     ENTRY      <FTTENT> = FWA FTT ENTRY.
* 
*     EXIT       NONE.
* 
*     PROCESS    INCREMENT FTT RETRY COUNT. 
*                CALL PUTLEV7 TO REISSUE THE PREVIOUS LEVEL 7 COMMAND.
*                SET FTTSTATE = PREVIOUS STATE. 
* 
# 
  
      ITEM TEXTADDR  I;              # TEXT ADDRESS OF MESSAGE #
  
# 
****  PROC PRNAKM - XREF LIST BEGIN.
# 
  
      XREF
        BEGIN 
        PROC PUTLEV7;                # SEND LEVEL 7 COMMAND # 
        END 
  
# 
****  PROC PRNAKM - XREF LIST END.
# 
                                               CONTROL EJECT; 
      FTTOL7CNT = FTTOL7CNT + 1;
      IF FTTOL7CNT GT MAXSTATCNT
      THEN
        BEGIN  # TRY TO OUTPUT THE LAST LEVEL 7 COMMAND # 
        FTTOL7CNT = 0;
        IF FTTOL7RTRY LT O"3777"
        THEN
          BEGIN 
          FTTOL7RTRY = FTTOL7RTRY + 1;
          END 
  
        PUTLEV7(FTTLL7CMD,FTTLL7ATT);  # REISSUE #
        FTTSTATE = FTTPRESTAT;
        END 
  
      END  # PRNAKM # 
  
      TERM
