Inhaltsverzeichnis
Werbung
Automatisieren der VM2000- und VM-Administration
/"** EREIGNIS BEI PROP-XT ANMELDEN
/"** NACH AUSFUEHREN DER FUNKTION SCHICKT VM2000 ASYNCHRON DIE
/"** VMS4094 (GUT-QUITTUNG) ODER VMS4095 (SCHLECHT-QUITTUNG)
/"** AN DIE KONSOLE. DESHALB MUSS AUF DIESE 2 MELDUNGEN
/"** EXPLIZIT GEWARTET WERDEN (ALSO: ALS EREIGNISSE ANMELDEN!). "
/START-PROP-EVENT-MON EV-NAME=VMS4094,SELECT-EV=*FROM-OBJ(-
/ OBJ-NAME=CONSOLE,EVENT-DATA=*SYSTEM-MSG(MSG-ID=VMS4094))
/START-PROP-EVENT-MON EV-NAME=VMS4095,SELECT-EV=*FROM-OBJ(-
/ OBJ-NAME=CONSOLE,EVENT-DATA=*SYSTEM-MSG(MSG-ID=VMS4095))
/BEGIN-VM-DIALOG VM-ID=1
/"** 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
/IF-CMD-ERROR
/ TXT = 'FEHLER BEI REDUCE-VM VM-ID=2'
/ GOTO LABEL=ERROR
/END-IF
/"** ES MUSS AUF VMS4094 ODER VMS4095 GEWARTET WERDEN"
/WHILE (CONT=TRUE)
/ WAIT-F-PROP-EV EV-NAME=(VMS4094,VMS4095),TIME-LIM=300
/ IF (SYSPOP.MAINCODE <> '0000')
/
TXT = 'FEHLER BEI WAIT-PROP-EVENT BEI REDUCE-VM-MEMORY VM-ID=2'
/
SHOW-VARIABLE SYSPOP
/
GOTO LABEL=ERROR
/ END-IF
/ IF ((SYSPOP.EVENT-NAME = 'VMS4094') AND (SYSPOP.I0='2'))
/
CONT=FALSE
/ ELSE-IF ((SYSPOP.EVENT-NAME = 'VMS4095') AND (SYSPOP.I0 = '2'))
/
TXT = 'VMS4095 BEI REDUCE-VM-MEMORY VM-ID=2'
/
GOTO LABEL=ERROR
/ END-IF
/END-WHILE
134
"VERBINDUNG ZU VM2000 AUFBAUEN
Bedienkonzept
"
"
"
"
"
U5183-J-Z125-12
Werbung
Inhaltsverzeichnis
