$!
$! File:	PORTSDEL.COM
$! Date:	January 24, 1986
$! Author:	Robin Miller.
$!
$! Description:
$!
$!	This command procedure is used to delete the global symbols used
$! to define the remote ports, speeds, and dialer information.
$!
$! Modification History:
$!
$! March 6, 1986 by Robin Miller.
$!   o	Delete the global symbol MODEM_NODE if it exists.  This symbol is
$!	used on a cluster system to point at the system with the modems.
$!   o	Deassign the logical name VAXNET$BATCH if it is defined.
$!
$! Input Parameters:
$!
$!	None
$!
$!------------------------------------------------------------------------------
$ if f$trnlnm("VAXNET$BATCH") .nes. "" then -
					  $ deassign VAXNET$BATCH
$ if f$type(MODEM_NODE) .nes. "" then	  $ delete/symbol/global MODEM_NODE
$ if f$type(MODEM_SLOT) .nes. "" then	  $ delete/symbol/global MODEM_SLOT
$ if f$type(REMOTE_PORT_0) .nes. "" then  $ delete/symbol/global REMOTE_PORT_0
$ if f$type(REMOTE_SPEED_0) .nes. "" then $ delete/symbol/global REMOTE_SPEED_0
$ if f$type(REMOTE_PORT_1) .nes. "" then  $ delete/symbol/global REMOTE_PORT_1
$ if f$type(REMOTE_SPEED_1) .nes. "" then $ delete/symbol/global REMOTE_SPEED_1
$ if f$type(REMOTE_PORT_2) .nes. "" then  $ delete/symbol/global REMOTE_PORT_2
$ if f$type(REMOTE_SPEED_2) .nes. "" then $ delete/symbol/global REMOTE_SPEED_2
$ if f$type(REMOTE_PORT_3) .nes. "" then  $ delete/symbol/global REMOTE_PORT_3
$ if f$type(REMOTE_SPEED_3) .nes. "" then $ delete/symbol/global REMOTE_SPEED_3
$ if f$type(REMOTE_PORT_4) .nes. "" then  $ delete/symbol/global REMOTE_PORT_4
$ if f$type(REMOTE_SPEED_4) .nes. "" then $ delete/symbol/global REMOTE_SPEED_4
$ if f$type(MODEM_TYPE) .nes. "" then	  $ delete/symbol/global MODEM_TYPE
$ if f$type(DIALER_PORT) .nes. "" then	  $ delete/symbol/global DIALER_PORT
$ if f$type(DIALER_SPEED) .nes. "" then	  $ delete/symbol/global DIALER_SPEED
$ EXIT