$!
$!------------------------------------------------------------------------------
$! SSL3$REM_ENV.COM - Remove the SSL Initialize Environment
$!------------------------------------------------------------------------------
$!
$ Verify = F$VERIFY (0)
$ Set NoOn
$!
$!------------------------------------------------------------------------------
$! Description 
$!------------------------------------------------------------------------------
$!
$! This procedure deletes the SSL environment logicals & symbols set up by
$! SSL3$INIT_ENV.COM.
$!
$! P1 = Mode of the logicals (ie - "/SYSTEM/EXECUTIVE_MODE").
$!      Note - if P1 is not passed in, P1 will default to PROCESS.
$!
$!------------------------------------------------------------------------------
$! Initialization 
$!------------------------------------------------------------------------------
$!
$ IF F$TRNLNM("SSL3$ROOT") .EQS. ""
$ THEN
$    WRITE SYS$OUTPUT " "
$    WRITE SYS$OUTPUT " SSL-E-ERROR, SSL has not been started."
$    WRITE SYS$OUTPUT " "
$    WRITE SYS$OUTPUT " Execute the command procedure, SYS$STARTUP:SSL3$STARTUP.COM, and then try this procedure again."
$    WRITE SYS$OUTPUT " "
$    EXIT
$ ENDIF
$!
$ IF P1 .EQS. ""
$ THEN
$    P1 = "/PROCESS"
$ ENDIF
$!
$!------------------------------------------------------------------------------
$! Define logicals
$!------------------------------------------------------------------------------
$!
$ DEASSIGN := DEASSIGN	! Deassign logicals set by SSL3$INIT_ENV.COM
$ DEASSIGN 'P1	SSL3$CA_CONFIG
$ DEASSIGN 'P1	SSL3$CONFIG
$ DEASSIGN 'P1	SSL3$DB
$!
$!------------------------------------------------------------------------------
$! Define foreign symbols
$!------------------------------------------------------------------------------
$!
$ DELETE := DELETE	! Delete symbols defined by SSL3$INIT_ENV.COM
$! DELETE/SYMBOL/GLOBAL OPENSSL ! - Commented out, user may have run SSL3$UTILS
$ DELETE/SYMBOL/GLOBAL HOSTADDR
$ DELETE/SYMBOL/GLOBAL HOSTNAME
$!
$!------------------------------------------------------------------------------
$! Exit
$!------------------------------------------------------------------------------
$!
$ EXIT