Inhaltsverzeichnis
Werbung
Bedienkonzept
/"** ERWEITERE VM3 ********"
/EXTEND-VM-MEMORY VM-ID=3,NEW-MEM-SIZE=*MAXIMUM
/CONT = TRUE
/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 EXTEND-VM-MEMORY VM-ID=3'
/
SHOW-VARIABLE SYSPOP
/
GOTO LABEL=ERROR
/ END-IF
/ IF ((SYSPOP.EVENT-NAME = 'VMS4094') AND (SYSPOP.I0='3'))
/
CONT=FALSE
/ ELSE-IF (SYSPOP.EVENT-NAME = 'VMS4095')
/
TXT = 'VMS4095 BEI EXTEND-VM-MEMORY VM-ID=3'
/
GOTO LABEL=ERROR
/ END-IF
/END-WHILE
/STOP-PROP-EV-MON (VMS4094,VMS4095)
/IF-CMD-ERROR; END-IF
/STOP-PROP-OBJ-MON CONSOLE
/IF-CMD-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 IN VMMEM: &TXT ***'
/END-IF
/END-PROP-PROCESS
/IF-CMD-ERROR
/END-IF
/END-VM-DIALOG VM-ID=1
/IF-CMD-ERROR
/END-IF
/MOD-JOB-OPTIONS LOG=*PAR(LIST=NO)
/ASSIGN-SYSLST *PRIMARY
/EXIT-PROC
U5183-J-Z125-12
Automatisieren der VM2000- und VM-Administration
"VERBINDUNG ZU UCON ABBAUEN"
"BEHANDLUNG UEBRIGE ERROR"
"ABMELDEN VON PROP-XT"
"ABMELDEN VON VM2000"
135
Werbung
Inhaltsverzeichnis
