*DECK FCSNWSM 
USETEXT TEXTFCS;
      PROC FCSNWSM; 
*CALL COPYRITE
# TITLE FCSNWSM - WAIT FOR SUPERVISORY MESSAGE.                        #
  
      BEGIN                            # FCSNWSM                       #
  
# 
**    FCSNWSM - WAIT FOR SUPERVISORY MESSAGE. 
* 
*     C. J. RAMSAY                     87/11/03 
* 
*     THIS PROCEDURE WAITS FOR THE NEXT SUPERVISORY MESSAGE FROM THE
*     NETWORK.
* 
*     PROC FCSNWSM
* 
*     ENTRY   PREVIOUS SUPERVISORY MESSAGE SENT.
* 
*     EXIT    INPBUF     = BUFFER CONTAINING SUPERVISORY MESSAGE. 
*             P<APSM>    = PTR TO INPUT BUFFER (INPBUF).
*             P<ABH>     = PTR TO INPUT APPLICATION BLOCK HEADER (IABH).
* 
*     METHOD  WAIT FOR NETWORK TRAFFIC. 
*             IF DATA BLOCK RECEIVED THEN TREAT AS AN ERROR ELSE RETURN 
*             THE SUPERVISORY MESSAGE TO THE CALLER.
* 
# 
  
# 
****  PROC FCSNWSM - XREF LIST
# 
      XREF
        BEGIN 
        PROC ABORT;                    # ABORT JOB                     #
        PROC FCSNWNT;                  # WAIT FOR NETWORK TRAFFIC      #
        END 
# 
****
# 
      CONTROL EJECT;
# 
*     START MAIN PROCEDURE
# 
      FCSNWNT;                         # WAIT FOR NETWORK TRAFFIC      #
  
      IF ABHADR[0] NQ 0 
      THEN
        BEGIN                          # DATA BLOCK RECEIVED           #
        FTPABORT = EUNEXDB;            # SET UP ABORT CODE             #
        ABORT;                         # ABORT JOB                     #
        END 
  
      RETURN;                          # RETURN TO CALLER              #
  
      END                              # FCSNWSM                       #
  
      TERM
