|  |     The plot thickens...  The KITINSTAL.COM in CC055 has a bug!
    
    $ if loc .ne. f$length(line)
    $ then
    $       node_context = f$extract(loc+26,30,line)
    $       read/error=done infile other_nodes_disk
    $       other_nodes_disk = f$edit(other_nodes_disk,"TRIM,UPCASE")
    $       if other_nodes_disk .eqs. my_sysdisk
    $       then
    $               write sysman_file "set env /node=(''node_context')"
    $               write sysman_file sysman_c_line
    $               write sysman_file sysman_cxx_line
    $               write sys$output "Cluster member ''node_context' is
    affected by
    $       else
    $               write sys$output "Cluster member ''node_context' is not
    affecte
    $       endif
    $ endif
    $ goto more_lines
    
    "read/error=done" causes the %DCL-W-USGOTO errors as there is NO
    "done:" label!  Add a "done:" label in the appropriate place and
    no error.
    
    For my customer this failure was the result of SYSMAN not reporting
    information back correctly, in this case:
    
      SYSMAN> set env/cluster
      SYSMAN> do write sys$output
      f$parse("SYS$SYSDEVICE",,,"DEVICE","NO_CONCEAL")
      %SYSMAN-I-OUTPUT, command execution on node CHIC02
      $3$DIA6:
      %SYSMAN-I-OUTPUT, command execution on node CHIC01
      $1$DKA0:
      %SYSMAN-I-OUTPUT, command execution on node DCDEMO
      SYSMAN>
    
    You note on the last command execution nothing is returned!  It does
    not matter which command is issued or if you perform a "DO" command
    on just node DCDEMO, nothing is returned.
    
    To workaround the problem you have two options:
    
      Fix the SYSMAN reporting problem
    
      Modify KITINSTAL.COM, I did the following and did not verify
      if it is the correct change:
    
    $ endif
    $done:
    $ goto more_lines
    $done_nodes:
    
    I just added a "$done:" where I think it should be.
    
    Please let me know if a formal SPR is needed for this to be fixed
    in a future release of DEC C.
    
    Regards, Drew Sanford
    Customer Support Center
 | 
|  |   The files could not be deleted from the VMI$KWD: because the command
  procedure had them open!
  From SYSMAN which caused initial problem:
SYSMAN> do write sys$output f$parse("SYS$SYSDEVICE",,,"DEVICE","NO_CONCEAL")
%SYSMAN-I-OUTPUT, command execution on node CHIC02
$3$DIA6:
%SYSMAN-I-OUTPUT, command execution on node CHIC01
$1$DKA0:
%SYSMAN-I-OUTPUT, command execution on node DCDEMO
SYSMAN>
  Output from KITINSTAL.COM:
@sys$update:vmsinstal cc055 WCS_DATA_1:[SOFTWARE]
.
.
.
$!      Now figure out the nodes that share the same system disk
$!      with this node.  Then, deassign logicals on those nodes.
$!
$ my_sysdisk = f$edit(f$parse("SYS$SYSDEVICE",,,"DEVICE","NO_CONCEAL"),-
  "TRIM,UPCASE")
$ define/user sys$output vmi$kwd:sysdisks.txt
$!
$ mcr sysman
set env/cluster
do write sys$output f$parse("SYS$SYSDEVICE",,,"DEVICE","NO_CONCEAL")
exit
$!
$ open/read infile vmi$kwd:sysdisks.txt
$ open/write sysman_file vmi$kwd:sysman.com
$more_lines:
$ read/error=done_nodes infile line
$ loc = f$locate("command execution on node",line)
$ if loc .ne. f$length(line)
$ endif
$ goto more_lines
$more_lines:
$ read/error=done_nodes infile line
$ loc = f$locate("command execution on node",line)
$ if loc .ne. f$length(line)
$ endif
$ goto more_lines
$more_lines:
$ read/error=done_nodes infile line
$ loc = f$locate("command execution on node",line)
$ if loc .ne. f$length(line)
$ endif
$ goto more_lines
$more_lines:
$ read/error=done_nodes infile line
$ loc = f$locate("command execution on node",line)
$ if loc .ne. f$length(line)
$ endif
$ goto more_lines
$more_lines:
$ read/error=done_nodes infile line
$ loc = f$locate("command execution on node",line)
$ if loc .ne. f$length(line)
$ then
$       node_context = f$extract(loc+26,30,line)
$       read/error=done infile other_nodes_disk
$       other_nodes_disk = f$edit(other_nodes_disk,"TRIM,UPCASE")
$       if other_nodes_disk .eqs. my_sysdisk
$       else
$               write sys$output "Cluster member CHIC02 is not affected by
insta
llation"
Cluster member CHIC02 is not affected by installation
$       endif
$ endif
$ goto more_lines
$more_lines:
$ read/error=done_nodes infile line
$ loc = f$locate("command execution on node",line)
$ if loc .ne. f$length(line)
$ then
$       node_context = f$extract(loc+26,30,line)
$       read/error=done infile other_nodes_disk
$       other_nodes_disk = f$edit(other_nodes_disk,"TRIM,UPCASE")
$       if other_nodes_disk .eqs. my_sysdisk
$       else
$               write sys$output "Cluster member CHIC01 is not affected by
installation"
Cluster member CHIC01 is not affected by installation
$       endif
$ endif
$ goto more_lines
$more_lines:
$ read/error=done_nodes infile line
$ loc = f$locate("command execution on node",line)
$ if loc .ne. f$length(line)
$ then
$       node_context = f$extract(loc+26,30,line)
$       read/error=done infile other_nodes_disk
$       other_nodes_disk = f$edit(other_nodes_disk,"TRIM,UPCASE")
$       if other_nodes_disk .eqs. my_sysdisk
$       else
$               write sys$output "Cluster member CHIC01 is not affected by
installation"
Cluster member CHIC01 is not affected by installation
$       endif
$ endif
$ goto more_lines
$more_lines:
$ read/error=done_nodes infile line
$ loc = f$locate("command execution on node",line)
$ if loc .ne. f$length(line)
$ then
$       node_context = f$extract(loc+26,30,line)
$       read/error=done infile other_nodes_disk
%DCL-W-USGOTO, target of GOTO not found - check spelling and presence of label
%DCL-W-USGOTO, target of GOTO not found - check spelling and presence of label
%DCL-W-USGOTO, target of GOTO not found - check spelling and presence of label
$s = $status
$tmp = f$verify(vmi$debug)
%VMSINSTAL-E-INSFAIL, The installation of CC V0.G has failed.
%DELETE-W-FILNOTDEL, error deleting
$2$DKA300:[SYS0.SYSUPD.CCDIG]CCXX$STARTUP.CO
M;1
-RMS-E-FLK, file currently locked by another user
%DELETE-W-FILNOTDEL, error deleting $2$DKA300:[SYS0.SYSUPD.CCDIG]SYSMAN.COM;1
-RMS-E-FLK, file currently locked by another user
%DELETE-W-FILNOTDEL, error deleting $2$DKA300:[SYS0.SYSUPD]CCDIG.DIR;1
-RMS-E-MKD, ACP could not mark file for deletion
-SYSTEM-F-DIRNOTEMPTY, directory file is not empty
 |