$!
$!------------------------------------------------------------------------------
$! SSL3$INIT_ENV.COM - SSL Initialize Environment
$!------------------------------------------------------------------------------
$!
$ Verify = F$VERIFY (0)
$ Set NoOn
$!
$!------------------------------------------------------------------------------
$! Description 
$!------------------------------------------------------------------------------
$!
$! This procedure sets up the SSL environment logicals & symbols.
$!
$! 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 " SSL3-E-ERROR, SSL3 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
$!------------------------------------------------------------------------------
$!
$ DEFINE 'P1	SSL3$CA_CONFIG	SSL3$ROOT:[DEMOCA.CONF]SSL3$CA.CNF
$ DEFINE 'P1	SSL3$CONFIG	SSL3$ROOT:[DEMOCA.CONF]SSL3$CERT.CNF
$ DEFINE 'P1	SSL3$DB		SSL3$ROOT:[DEMOCA]
$!
$!------------------------------------------------------------------------------
$! Define foreign symbols
$!------------------------------------------------------------------------------
$!
$ OPENSSL	:== $ SSL3$EXE:OPENSSL
$ HOSTADDR	:== $ SSL3$EXE:SSL3$HOSTADDR
$ HOSTNAME	:== $ SSL3$EXE:SSL3$HOSTNAME
$!
$!------------------------------------------------------------------------------
$! Exit
$!------------------------------------------------------------------------------
$!
$ EXIT