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