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