Inhaltsverzeichnis
Werbung
Verwalten von VM2000
/"** SPEICHERGROESSE VORAB ERMITTELN "
/EXEC-CMD (SHOW-VM-ATTR VM-ID=2,INF=*MEMORY),STRUCT-OUT=SHVAS
/IF (SHVAS#.MIN-MEM-SIZE = '*UNDEF')
/ TXT = 'AKTUELL KEINE SPEICHERREKONFIGURATION FUR VM-ID=2 MOEGLICH'
/ GOTO LABEL=ERROR
/END-IF
/MIMEMSI=INT(SHVAS#.MIN-MEM-SIZE)
/IF (SHVAS#.MEM-SIZE = MIMEMSI)
/ TXT = 'AKTUELLE SPEICHERGROESSE IST MINIMALE SPEICHERGROESSE'
/ GOTO LABEL=ERROR
/END-IF
/"** PRUEFE SPEICHER VM-ID=3 "
/EXEC-CMD (SHOW-VM-ATTR VM-ID=3,INF=*MEMORY),STRUCT-OUT=SHVAS
/IF (SHVAS#.MIN-MEM-SIZE = '*UNDEF')
/ TXT = 'AKTUELL KEINE SPEICHERREKONFIGURATION FUR VM-ID=3 MOEGLICH'
/ GOTO LABEL=ERROR
/END-IF
/"** SPEICHER REDUZIEREN FUER VM-ID=2 "
/REDUCE-VM-MEMORY VM-ID=2,NEW-MEM-SIZE=*MINIMUM,MONJV=JV.VMMEM.VM02
/IF-CMD-ERROR
/ TXT = 'FEHLER BEI REDUCE-VM VM-ID=2'
/ GOTO LABEL=ERROR
/END-IF
/"** ES MUSS AUF DAS ENDE DER SPEICHERREKONFIGURATION GEWARTET WERDEN
/WAIT-EVENT *JV(((JV.VMMEM.VM02,1,2) = '$T' OR -
/
/IF-CMD-ERROR
/ TXT = 'FEHLER BEI WAIT FUER REDUCE-VM VM-ID=2'
/ GOTO LABEL=ERROR
/END-IF
/JVRES = JV('JV.VMMEM.VM02')
/IF (SUBSTRING(JVRES,1,2) = '$A')
/ TXT = 'REDUCE-VM VM-ID=2 ABNORMAL TERMINIERT'
/ GOTO LABEL=ERROR
/END-IF
/"** ERWEITERE VM3 ********"
/EXTEND-VM-MEMORY VM-ID=3,NEW-MEM-SIZE=*MAXIMUM,MONJV=JV.VMMEM.VM03
/IF-CMD-ERROR
/ TXT = 'FEHLER BEI EXTEND-VM VM-ID=3'
/ GOTO LABEL=ERROR
/END-IF
U5183-J-Z125-12
(JV.VMMEM.VM02,1,2) = '$A'),TIME-LIM=300)
Speicher verwalten und rekonfigurieren
"
275
Werbung
Inhaltsverzeichnis
