Beispiel: Parallele Nutzung von zwei UDS/SQL-Versionen

Die Korrekturversion UDS-SQL V2.9A10 soll getestet werden, während der Produktivbetrieb mit der Version UDS-SQL V2.9A00 gleichzeitig weiterläuft. Über Jobvariablen soll es möglich sein, die jeweils gewünschte Version beim DBH-Start zu laden. Dabei werden parallele Subsysteme und Startkommandos genutzt.

Jobvariablen erstellen

Der Datenbankadministrator kann Jobvariablen erstellen, die die Werte für die jeweiligen Subsystemversionen enthalten sollen. Die Jobvariable JV.VERSAND soll den Wert 02.9A00, die Jobvariable JV.TEST den Wert 02.9A10 bekommen. Anschließend wird der Inhalt der Jobvariablen überprüft.

/CREATE-JV JV=JV.VERSAND
/MODIFY-JV JV=JV.VERSAND,SET-VALUE=C'02.9A00'
/CREATE-JV JV=JV.TEST
/MODIFY-JV JV=JV.TEST,SET-VALUE=C'02.9A10'
/SHOW-JV JV=JV.VERSAND
%  02.9A00
/SHOW-JV JV=JV.TEST
%  02.9A10

DBH-Startprozeduren erstellen

In den DBH-Startprozeduren DBHSTART.TEST und DBHSTART.VERSAND soll für die gewünschte Version der entsprechende Jobvariablenname eingesetzt werden.

DBHSTART.TEST

/SET-LOGON-PARAMETERS
/ASSIGN-SYSDTA TO=*SYSCMD
/SET-FILE-LINK LINK-NAME=DATABASE,FILE-NAME=TEST 
/CREATE-FILE FILE-NAME=TEST.DBSTAT,SUPPRESS-ERRORS=*FILE-EXISTING 
/CREATE-FILE FILE-NAME=TEST.DBSTAT.SAVE,SUPPRESS-ERRORS=*FILE-EXISTING
/SET-JV-LINK LINK-NAME=VERS,JV-NAME=JV.TEST ----------------------------- (1)
/SELECT-PRODUCT-VERSION PRODUCT-NAME=UDS-SQL,VERSION=&(*VERS) ----------- (2)
/START-UDS-DBH
/ASSIGN-SYSDTA TO=*PRIMARY
/EXIT-JOB

DBHSTART.VERSAND

/SET-LOGON-PARAMETERS
/ASSIGN-SYSDTA TO=*SYSCMD
/SET-FILE-LINK LINK-NAME=DATABASE,FILE-NAME=VERSAND 
/CREATE-FILE FILE-NAME=VERSAND.DBSTAT,SUPPRESS-ERRORS=*FILE-EXISTING
/CREATE-FILE FILE-NAME=VERSAND.DBSTAT.SAVE,SUPPRESS-ERRORS=*FILE-EXISTING
/SET-JV-LINK LINK-NAME=VERS,JV-NAME=JV.VERSAND -------------------------- (1)
/SELECT-PRODUCT-VERSION PRODUCT-NAME=UDS-SQL,VERSION=&(*VERS) ----------- (2)
/START-UDS-DBH
/ASSIGN-SYSDTA TO=*PRIMARY
/EXIT-JOB

1.  Der gewünschte Jobvariablenname wird mit dem Kettungsnamen VERS verknüpft.

2.  Für den Kettungsnamen VERS wird der Inhalt der vereinbarten Jobvariablen eingesetzt.

Zusätzlich zu den DBH-Startprozeduren müssen auch die Startprozeduren für Anwenderprogramme angepasst werden.

Startprozeduren für Anwenderprogramme erstellen

In den Startprozeduren der Anwenderprogramme DMLTEST.TEST und DMLTEST.VERSAND soll für die gewünschte Version der entsprechende Jobvariablenname eingesetzt werden.

DMLTEST.TEST

/BEGIN-PROCEDURE
/SET-FILE-LINK LINK-NAME=DATABASE,FILE-NAME=TEST
/ASSIGN-SYSDTA TO=*SYSCMD
/SET-JV-LINK LINK-NAME=VERS,JV-NAME=JV.TEST
/ADD-FILE-LINK LINK-NAME=$UDSSSI,FILE-NAME=LMS.SSITAB
/SELECT-PRODUCT-VERSION PRODUCT-NAME=UDS-SQL,VERSION=&(*VERS)
/START-UDS-DMLTEST
DBH IND
LANG COB
DISPLAY RCODE,COND=RCODE NE C‘00000‘
PROT ON
DISPLAY RECA,L=80
SUBSCHEMA IS ADMIN
READY
SHOW SPP1
SHOW SUBS
E
SYS
/MODIFY-TERMINAL-OPTIONS OVERFLOW-CONTROL=*TIME(TIMEOUT=*STD)
/ASSIGN-SYSDTA TO=*PRIMARY
/RESUME-PROGRAM
/END-PROCEDURE

DMLTEST.VERSAND

/BEGIN-PROCEDURE
/SET-FILE-LINK LINK-NAME=DATABASE,FILE-NAME=VERSAND
/ADD-FILE-LINK LINK-NAME=$UDSSSI,FILE-NAME=LMS.SSITAB
/ASSIGN-SYSDTA TO=*SYSCMD
/SET-JV-LINK LINK-NAME=VERS,JV-NAME=JV.VERSAND
/SELECT-PRODUCT-VERSION PRODUCT-NAME=UDS-SQL,VERSION=&(*VERS)
/START-UDS-DMLTEST
DBH IND
LANG COB
DISPLAY RCODE,COND=RCODE NE C‘00000‘
PROT ON
DISPLAY RECA,L=80
SUBSCHEMA IS ADMIN
READY
SHOW SPP1
SHOW SUBS
E
SYS
/MODIFY-TERMINAL-OPTIONS OVERFLOW-CONTROL=*TIME(TIMEOUT=*STD)
/ASSIGN-SYSDTA TO=*PRIMARY
/RESUME-PROGRAM
/END-PROCEDURE

Die Bedeutung der Prozedurparameter entnehmen Sie bitte den Erklärungen zu den DBH-Startprozeduren, siehe "DBH-Startprozeduren erstellen".

Wenn die Testversion später als Produktivversion eingesetzt werden soll, bleiben die Startprozeduren unverändert. Sie müssen lediglich den Inhalt der Jobvariablen
JV.VERSAND wie folgt verändern:

/MODIFY-JV JV=JV.VERSAND,SET-VALUE=C'02.9A10'