Speicher verwalten und rekonfigurieren
/"** ES MUSS AUF DAS ENDE DER SPEICHERREKONFIGURATION GEWARTET WERDEN
/WAIT-EVENT *JV(((JV.VMMEM.VM03,1,2) = '$T' OR -
/
/IF-CMD-ERROR
/ TXT = 'FEHLER BEI WAIT FUER EXTEND-VM VM-ID=3'
/ GOTO LABEL=ERROR
/END-IF
/JVRES = JV('JV.VMMEM.VM03')
/IF (SUBSTRING(JVRES,1,2) = '$A')
/ TXT = 'EXTEND-VM VM-ID=3 ABNORMAL TERMINIERT'
/ GOTO LABEL=ERROR
/END-IF
/"** NORMALES ENDE"
/END-BLOCK
/IF-BLOCK-ERROR
/
TXT = 'UEBRIGE BLOCK-FEHLER'
/
GOTO LABEL = ERROR
/END-IF
/ERROR:
/IF (TXT <> 'OK')
/ SEND-MSG TO=OPER,MSG='*** FEHLER BEI VMMEM: &TXT ***'
/END-IF
/END-VM-DIALOG 1
/IF-CMD-ERROR; END-IF
/DEL-JV JV.VMMEM.VM02
/IF-CMD-ERROR; END-IF
/DEL-JV JV.VMMEM.VM03
/IF-CMD-ERROR; END-IF
/MOD-JOB-OPTIONS LOG=*PAR(LIST=NO)
/ASSIGN-SYSLST *PRIMARY
/EXIT-PROC
276
(JV.VMMEM.VM03,1,2) = '$A'),TIME-LIM=300)
"BEHANDLUNG UEBRIGE ERROR"
"ABMELDEN VON VM2000"
Verwalten von VM2000
"
U5183-J-Z125-12