$! $! Deassign OpenSSL logical names. $! $ call deass "OPENSSL" "''p1'" $ call deass "SSLCERTS" "''p1'" $ call deass "SSLEXE" "''p1'" $ call deass "SSLINCLUDE" "''p1'" $ call deass "SSLLIB" "''p1'" $ call deass "SSLPRIVATE" "''p1'" $ call deass "SSLROOT" "''p1'" $! $ exit $! $deass: subroutine $ if (f$trnlnm( p1) .nes. "") $ then $ deassign 'p2' 'p1' $ endif $ endsubroutine $!