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