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$!
21