*DECK SSIIATS 
USETEXT TEXTATS 
      PROC SSIIATS (COMPLETE);
*CALL COPYRITE
# TITLE SSIIATS - INITIALIZE ATS.                                      #
  
      BEGIN                            # SSIIATS                       #
# 
****  SSIIATS - INITIALIZE ATS. 
* 
*     THIS PROCEDURE INITIALIZES ALL SOCKETS/HANDLES NEEDED TO ACTIVATE 
*     THE *ATF* APPLICATION.
* 
*     ENTRY 
* 
*     EXIT     COMPLETE = INDICATES ANY ERROR STATUS ENCOUNTERED AND
*                         CAN BE GIVEN TO SSIAEPR TO DETERMINE IF ANY 
*                         ACTION IS REQUIRED. 
* 
*     METHOD   DELETE ANY OPEN SOCKETS OR HANDLES.  ACTIVATE PORTMAPPER,
*              ACTIVATE THE SERVER HANDLE, AND ACTIVATE  THE CLIENT 
*              SOCKET.  ISSUE A QUERY SERVER REQUEST TO THE ACSLM SERVER
*              TO VERIFY IT AVAILABLE AND ACTIVE. 
# 
  
# 
****  PROC SSIIATS - XREF LIST. 
# 
  
      XREF
        BEGIN 
        PROC SSIAATS;    # ACTIVATE ATS CLIENT SOCKET                  #
        PROC SSIAASH;    # ACTIVATE ATS SERVER HANDLE                  #
        PROC SSIAPMC;    # ACTIVATE PORTMAPPER CONNECTIONS             #
        PROC SSIDAOC;    # DESTROY ALL OPEN CONNECTIONS                #
        PROC SSIQSWR;    # QUERY SERVER WORKSTATION READY              #
        END 
  
      ITEM COMPLETE                I;  # RETURN STATUS                 #
CONTROL EJECT;
  
# 
****  START MAIN PROCEDURE
# 
  
      SSIDAOC;                         # DELETE ALL OPEN CONNECTIONS   #
      SSIAPMC;                         # ACTIVATE PORTMAPPER CONNECTION#
      SSIAATS;                         # ACTIVATE ATS CLIENT SOCKET    #
      SSIAASH;                         # ACTIVATE ATS SERVER HANDLE    #
      SSIQSWR (COMPLETE);              # QUERY SERVER WORKSTATION RDY  #
  
      END                              # SSIIATS                       #
  
      TERM
