*DECK NS$STD
PROC NS$STD;
  
      BEGIN    # NS$STD # 
# 
**    THIS IS DUMMY AT THE MOMENT.  IMS WILL BE FURTHER 
*     PROVIDED WHEN IT IS ENHANCED. 
# 
  
      $BEGIN
      XREF
        BEGIN 
        PROC NS$DBG;
        END 
      $END
  
      XREF
        BEGIN 
        PROC NETOFF;         # AIP NETOFF PROCEDURE                    #
        END 
  
CONTROL EJECT;
  
      $BEGIN
      NS$DBG("STD");         # TRACE CALL                              #
      $END
  
      RETURN; 
      END   # NS$STD #
      TERM
