Inhaltsverzeichnis
Werbung
Bedienkonzept
Beispiel
Die folgende S-Prozedur zeigt die Anwendung von PROP-XT für die VM2000-Administra-
tion in Zusammenhang mit einer Hauptspeicher-Rekonfiguration. Die analoge Beispielpro-
zedur unter Verwendung von MONJV finden Sie auf
/SET-PROC-OPT
/" **************************************************************"
/" ** PROZEDUR VMMEM FUER GASTSYSTEME
/" **************************************************************"
/" ** DIE PROZEDUR FUEHRT EINE SPEICHERREKONFIGURATION DURCH.
/" ** DIE ASYNCHRONEN ABSCHLUSSMELDUNGEN WERDEN UEBER PROP-XT
/" ** VERARBEITET.
/" ** WESENTLICHE SCHRITTE:
/" ** - VERBINDUNGSAUFBAU ZU PROP-XT
/" ** - VERBINDUNGSAUFBAU ZU VM2000
/" ** - UEBERPRUEFEN DER AKTUELLEN SPEICHERGROESSE
/" ** - REDUZIEREN DES SPEICHERS DER VM2
/" ** - ASYNCHRONES ENDE UEBER PROP-XT BEHANDELN
/" ** - ERWEITERN DES SPEICHERS DER VM3
/" ** - ASYNCHRONES ENDE UEBER PROP-XT BEHANDELN
/" ** - VERBINDUNGSABBAU ZU PROP-XT
/" ** - VERBINDUNGSABBAU ZU VM2000
/" **************************************************************"
/" **************************************************************"
/DECLARE-VARIABLE NAME=SYSPOP(TYPE=STRUCTURE)
/DECLARE-VARIABLE NAME=SHVAS(TYPE=STRUCTURE),MULT-E=*LIST
/DECLARE-VARIABLE NAME=MIMEMSI(TYP=INT)
/DECLARE-VARIABLE NAME=TXT(TYPE=STRING,INIT-VALUE='OK')
/DECLARE-VARIABLE NAME=CONT(TYPE=BOOLEAN,INIT-VAL=TRUE)
/ASSIGN-SYSLST LST.VMMEM
/MODIFY-JOB-OPTIONS LOG=*PAR(LIST=Y)
/BEGIN-BLOCK
/START-SUBSYSTEM PROP-XT,SYNC=Y
/IF-CMD-ERROR;END-IF
/"** ANMELDEN BEI PROP-XT *"
/BEGIN-PROP-PROCESS VMMEM
/"** VERBINDUNG ZUM LOKALEN UCON *"
/START-PROP-OBJECT-MON OBJ-NAME=CONSOLE,OBJECT=*OPER-
/ (OPERATOR-ROLE=SYSADM)
/IF (SYSPOP.MAINCODE <> '0000')
/ TXT = 'ERROR IN START-P-O-M CONSOLE ** RC: &(SYSPOP.MAINCODE)'
/ GOTO LABEL=ERROR
/END-IF
U5183-J-Z125-12
Automatisieren der VM2000- und VM-Administration
Seite
MIT VM-ID=2 UND 3
274.
*******"
"
"
"
"
"
"
"
"
"
"
"
"
"
133
Werbung
Inhaltsverzeichnis
