[0001]
[0002]
[0003]
[0004]
[0005]
[0006]
[0007]
[0008]
[0009]
[0010]
[0011]
[0012]
[0013]
[0014]
[0015]
[0016]
[0017]
[0018]
[0019]
[0020]
[0021]
[0022]
[0023]
[0024]
[0025]
[0026]
[0027]
[0028]
[0029]
[0030]
[0031]
[0032]
[0033]
[0034]
[0035]
[0036]
[0037]
[0038]
[0039]
[0040]
[0041]
[0042]
[0043]
[0044]
[0045]
[0046]
[0047]
[0048]
[0049]
[0050]
[0051]
[0052]
[0053]
[0054]
[0055]
[0056]
[0057]
[0058]
[0059]
[0060]
[0061]
[0062]
[0063]
[0064]
[0065]
[0066]
[0067]
[0068]
[0069]
[0070]
[0071]
[0072]
[0073]
[0074]
[0075]
[0076]
[0077]
[0078]
[0079]
[0080]
[0081]
[0082]
[0083]
[0084]
[0085]
[0086]
[0087]
[0088]
[0089]
[0090]
[0091]
[0092]
[0093]
[0094]
[0095]
[0096]
[0097]
[0098]
[0099]
[0100]
[0101]
[0102]
[0103]
[0104]
[0105]
[0106]
[0107]

$!-----------------------------------------------------------------------------
$! REMOVE_LOGNAM.COM
$!
$! P1 needs to be "LNM$SYSTEM" (default) or "WASD_TABLE" or "WASD_TABLE_n"
$! P2 can be the WASD environment number (2..15, provided P1 is "WASD_TABLE")
$!
$! Copyright (C) 1996-2021 Mark G.Daniel.
$!
$! Licensed under the Apache License, Version 2.0 (the "License");
$! you may not use this file except in compliance with the License.
$! You may obtain a copy of the License at
$!
$!    http://www.apache.org/licenses/LICENSE-2.0
$!
$! Unless required by applicable law or agreed to in writing, software
$! distributed under the License is distributed on an "AS IS" BASIS,
$! WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
$! See the License for the specific language governing permissions and
$! limitations under the License.
$!
$! VERSION HISTORY
$! ---------------
$! 26-FEB-2014  MGD  /NOLOG seems to barf on VAX V7.3
$! 11-JUL-2009  MGD  initial
$!-----------------------------------------------------------------------------
$ set noon
$ deassign = "deassign/executive"
$ if P1 .eqs. ""
$ then
$   P1 = "LNM$SYSTEM"
$ else
$   if f$integer(P2) .ge. 2 then P1 = P1 + "_" + P2
$ endif
$ wasd_env = f$integer(f$extract(11,999,P1))
$ deassign = deassign + "/table=" + P1
$!
$!(v10 and later)
$ deassign CGI-BIN
$ deassign CGI_BIN
$ deassign CGI_EXE
$ deassign WASD_CGI_AXP
$ deassign WASD_CGI_BIN
$ deassign WASD_CGI_EXE
$ deassign WASD_CGILIBSHR32
$ deassign WASD_CGI_IA64
$ deassign WASD_CGI_VAX
$ deassign WASD_CONFIG
$ deassign WASD_CONFIG_AUTH
$ deassign WASD_CONFIG_GLOBAL
$ deassign WASD_CONFIG_MAP
$ deassign WASD_CONFIG_MSG
$ deassign WASD_CONFIG_SERVICE
$ if wasd_env .ge. 2
$    then deassign WASD_FILE_DEV_'wasd_env' /table=LNM$SYSTEM
$    else deassign WASD_FILE_DEV /table=LNM$SYSTEM
$ endif
$ deassign WASD_ENV
$ deassign WASD_HTTPD_EXE
$ deassign WASD_SSL_CAFILE
$ deassign WASD_SSL_CERT
$ deassign WASD_STARTUP_SERVER
$ deassign WASD_AUTH
$ deassign WASD_AXP
$ deassign WASD_EXE
$ deassign WASD_IA64
$ deassign WASD_JAVA
$ deassign WASD_LOCAL
$ deassign WASD_LOGS
$ deassign WASD_ROOT
$ deassign WASD_SCRATCH
$ deassign WASD_SCRIPT
$ deassign WASD_SCRIPT_LOCAL
$ deassign WASD_SERVER_LOGS
$ deassign WASD_STARTUP
$ deassign WASD_VAX
$!
$!(pre-v10)
$ deassign CGI_AXP
$ deassign CGI_IA64
$ deassign CGI_VAX
$ deassign HTTPD$AUTH
$ deassign HTTPD$CONFIG
$ deassign HTTPD$EXE
$ deassign HTTPD$MAP
$ deassign HTTPD$MSG
$ deassign HTTPD$SERVICE
$ deassign HTTPD$SSL_CAFILE
$ deassign HTTPD$SSL_CERT
$ deassign HTTPD$STARTUP_SERVER
$ deassign HT_AUTH
$ deassign HT_AXP
$ deassign HT_EXE
$ deassign HT_IA64
$ deassign HT_JAVA
$ deassign HT_LOCAL
$ deassign HT_LOGS
$ deassign HT_ROOT
$ deassign HT_SCRATCH
$ deassign HT_SCRIPT
$ deassign HT_SCRIPT_LOCAL
$ deassign HT_SERVER_LOGS
$ deassign HT_STARTUP
$ deassign HT_VAX
$!
$ if P1 .nes. "LNM$SYSTEM" then -
$    deassign 'P1' /table=LNM$SYSTEM_DIRECTORY /executive
$!-----------------------------------------------------------------------------