VMS/openssl_undo.com

   1 $!
   2 $! Deassign OpenSSL logical names.
   3 $!
   4 $ call deass "OPENSSL" "''p1'"
   5 $ call deass "SSLCERTS" "''p1'"
   6 $ call deass "SSLEXE" "''p1'"
   7 $ call deass "SSLINCLUDE" "''p1'"
   8 $ call deass "SSLLIB" "''p1'"
   9 $ call deass "SSLPRIVATE" "''p1'"
  10 $ call deass "SSLROOT" "''p1'"
  11 $!
  12 $ exit
  13 $!
  14 $deass: subroutine
  15 $ if (f$trnlnm( p1) .nes. "")
  16 $ then
  17 $    deassign 'p2' 'p1'
  18 $ endif
  19 $ endsubroutine
  20 $!