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