NVSVCSS ;emc/maw,kjw-clusterwide system status (VMS/Cache); 1/26/04
;;2.0;EMC SYSTEM UTILITIES; January 26, 2004
;
; The procedure AXP$CLU_SS.COM called by this routine was authored by
; Kurt Wittman, OIFO Birmingham, AL.
;
; --- added check for file existence in [AXP] directory jls 1/21/06 NOON
; --- modified to work in a co-location environment wjw 10.17.05
;
I $G(DUZ)="" D
.S DUZ=.5
.D DT^DICRW
.D HOME^%ZIS
;
K NVSCHK,NVSFILE,NVSPEC S NVSPEC("AXP$CLU_SS.COM")="" S NVSCHK=$$LIST^%ZISH("USER$:[AXP]","NVSPEC","NVSFILE")
I NVSCHK=0 D K NVSCHK,NVSFILE,NVSPEC Q
.W !,"<<< The DCL file AXP$CLU_SS.COM is not found in the USER$:[AXP] directory. >>>",!
.W !,"This file can be retrieved from an FTP server at DOWNLOAD.VISTA.DOMAIN.EXT"
.W !,"in the [ANONYMOUS.AXP.CACHECONV] directory, or you can log a Remedy ticket for"
.W !,"assistance."
.H 2
.Q
;
W !!,"This uses the Fileman Browser for screen display, for online help for navigating"
W !,"through screen pages, enter <PF1>H for details. Do *not* use the RETURN key for"
W !,"paging, use the Up/Down Arrow keys instead."
K DIR S DIR(0)="E",DIR("A")="Press RETURN to continue" W ! D ^DIR K DIR
W !!,"Collecting system status from all nodes in the cluster...a moment please..."
S NVSCFG=$P($ZU(86),"*",2),NVSCFG=$P(NVSCFG,"A")
S X=$ZF(-1,"@USER$:[AXP]AXP$CLU_SS USER$:[TEMP]CLUSTER_SS.TXT "_NVSCFG)
K ^TMP("NVS")
S X=$$FTG^%ZISH("USER$:[TEMP]","CLUSTER_SS.TXT","^TMP(""NVS"",1)",2,"OVF")
I X'=1 D Q
.W !!,"Data collection failed."
.S X=$ZF(-1,"DEL USER$:[TEMP]CLUSTER_SS.TXT;*")
.S X=$ZF(-1,"DEL USER$:[AXP]sysman_cluss.tmp;*")
S X=$ZF(-1,"DEL USER$:[TEMP]CLUSTER_SS.TXT;*")
S X=$ZF(-1,"DEL USER$:[AXP]sysman_cluss.tmp;*")
S NVSHDR="CLUSTER SYSTEM STATUS : "_$G(^DD("SITE"))_" : "_$$FMTE^XLFDT($$NOW^XLFDT())
D BROWSE^DDBR("^TMP(""NVS"")","N",NVSHDR)
K DIRUT,DTOUT,NVSCHK,NVSFILE,NVSPEC,NVSHDR,X,Y,^TMP("NVS"),NVSCFG
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNVSVCSS 1964 printed Oct 16, 2024@18:18:26 Page 2
NVSVCSS ;emc/maw,kjw-clusterwide system status (VMS/Cache); 1/26/04
+1 ;;2.0;EMC SYSTEM UTILITIES; January 26, 2004
+2 ;
+3 ; The procedure AXP$CLU_SS.COM called by this routine was authored by
+4 ; Kurt Wittman, OIFO Birmingham, AL.
+5 ;
+6 ; --- added check for file existence in [AXP] directory jls 1/21/06 NOON
+7 ; --- modified to work in a co-location environment wjw 10.17.05
+8 ;
+9 IF $GET(DUZ)=""
Begin DoDot:1
+10 SET DUZ=.5
+11 DO DT^DICRW
+12 DO HOME^%ZIS
End DoDot:1
+13 ;
+14 KILL NVSCHK,NVSFILE,NVSPEC
SET NVSPEC("AXP$CLU_SS.COM")=""
SET NVSCHK=$$LIST^%ZISH("USER$:[AXP]","NVSPEC","NVSFILE")
+15 IF NVSCHK=0
Begin DoDot:1
+16 WRITE !,"<<< The DCL file AXP$CLU_SS.COM is not found in the USER$:[AXP] directory. >>>",!
+17 WRITE !,"This file can be retrieved from an FTP server at DOWNLOAD.VISTA.DOMAIN.EXT"
+18 WRITE !,"in the [ANONYMOUS.AXP.CACHECONV] directory, or you can log a Remedy ticket for"
+19 WRITE !,"assistance."
+20 HANG 2
+21 QUIT
End DoDot:1
KILL NVSCHK,NVSFILE,NVSPEC
QUIT
+22 ;
+23 WRITE !!,"This uses the Fileman Browser for screen display, for online help for navigating"
+24 WRITE !,"through screen pages, enter <PF1>H for details. Do *not* use the RETURN key for"
+25 WRITE !,"paging, use the Up/Down Arrow keys instead."
+26 KILL DIR
SET DIR(0)="E"
SET DIR("A")="Press RETURN to continue"
WRITE !
DO ^DIR
KILL DIR
+27 WRITE !!,"Collecting system status from all nodes in the cluster...a moment please..."
+28 SET NVSCFG=$PIECE($ZU(86),"*",2)
SET NVSCFG=$PIECE(NVSCFG,"A")
+29 SET X=$ZF(-1,"@USER$:[AXP]AXP$CLU_SS USER$:[TEMP]CLUSTER_SS.TXT "_NVSCFG)
+30 KILL ^TMP("NVS")
+31 SET X=$$FTG^%ZISH("USER$:[TEMP]","CLUSTER_SS.TXT","^TMP(""NVS"",1)",2,"OVF")
+32 IF X'=1
Begin DoDot:1
+33 WRITE !!,"Data collection failed."
+34 SET X=$ZF(-1,"DEL USER$:[TEMP]CLUSTER_SS.TXT;*")
+35 SET X=$ZF(-1,"DEL USER$:[AXP]sysman_cluss.tmp;*")
End DoDot:1
QUIT
+36 SET X=$ZF(-1,"DEL USER$:[TEMP]CLUSTER_SS.TXT;*")
+37 SET X=$ZF(-1,"DEL USER$:[AXP]sysman_cluss.tmp;*")
+38 SET NVSHDR="CLUSTER SYSTEM STATUS : "_$GET(^DD("SITE"))_" : "_$$FMTE^XLFDT($$NOW^XLFDT())
+39 DO BROWSE^DDBR("^TMP(""NVS"")","N",NVSHDR)
+40 KILL DIRUT,DTOUT,NVSCHK,NVSFILE,NVSPEC,NVSHDR,X,Y,^TMP("NVS"),NVSCFG
+41 QUIT
