Inhaltsverzeichnis
Werbung
Bedienen einer VM
/"** VMS ERMITTELN UND DEREN STATUS ABFRAGEN "
/EXEC-CMD (SHOW-VM-RESOURCES INF=*ALL),STRUCT-OUT=SHVMR
/FOR I=*COUNT(FROM=2, TO= SIZE('SHVMR'), INCR=1 )
/"** NICHT LAUFENDE VM'S SOFORT BEENDEN "
/ IF (SHVMR#I.STA NE '*RUN')
/
DELETE-VM VM-ID=&(SHVMR#I.VM-INDEX)
/
IF-CMD-ERROR
/
TXT = 'KEINE BEENDIGUNG DER VM &(SHVMR#I.VM-INDEX)'
/
GOTO LABEL = ERROR
/
END-IF
/ ELSE
/
WAIT-EVENT *JV(((&(SHVMR#I.VM-MONJV),1,2) <> '$R'),TIME-LIM=300)
/
IF-CMD-ERROR
/
TXT = 'KEIN SYSTEMENDE DER VM &(SHVMR#I.VM-INDEX) '
/
GOTO LABEL = ERROR
/
END-IF
/
JVMON = JV(SHVMR#I.VM-MONJV)
/
IF NOT (SUBSTRING(JVMON,1,2) = '$D' AND SUBSTRING(JVMON,82,5) = 'NTERM')
/
TXT = 'VM &(SHVMR#I.VM-INDEX) NICHT NORMAL TEMINIERT'
/
SEND-MSG TO=OPER,MSG='*** WARNUNG IN VMCHECK: &TXT ***'
/
TXT = 'NICHT ALLE VMS BEENDET'
/
ELSE
/
DELETE-VM VM-ID=&(SHVMR#I.VM-INDEX)
/
END-IF
/ END-IF
/END-FOR
/END-BLOCK MAIN
/IF-BLOCK-ERROR
/ TXT = 'UEBRIGE BLOCK-FEHLER'
/ GOTO LABEL = ERROR
/END-IF
/"** NORMALES ENDE "
/ERROR:
/END-VM-DIALOG VM-ID=1
/IF-CMD-ERROR; END-IF
/IF (TXT = 'OK')
/ SEND-MSG TO=OPER,MSG='*** VMCHECK: ALLE GASTSYSTEME BEENDET ***'
/ELSE
/ SEND-MSG TO=OPER,MSG='*** FEHLER IN VMCHECK: &TXT ***'
/END-IF
/MOD-JOB-OPTIONS LOG=*PAR(LIST=NO)
/ASSIGN-SYSLST *PRIMARY
/END-PROC
U5183-J-Z125-12
"**
SONST AUF GASTYSTEM ENDE WARTEN **"
"BEHANDLUNG UEBRIGE ERROR"
Überwachen einer VM mit Jobvariablen (MONJV)
"ABMELDEN VON VM2000"
153
Werbung
Inhaltsverzeichnis
