Beispiel 4: Vermeidung von Kollisionen orientiert an den gemeldeten Sperren

Sie möchten möglichst viel nach vorne verlagern. Irgendwann wird die Datenbank aber abgeschaltet. Dann soll sich die UDS-Online-Utility sofort beenden. Der Realm hat 10000 Seiten. Bei Hinweisen auf Kollisionen (hier: mehr als 10) soll sich die UDS-Online-Utility ebenfalls beenden. Es ist aber nicht ganz klar, wieviele Seiten in einer Transaktion normal verlagert werden. Die aufgetretenen Sperrkonflikte werden als Kriterium herangezogen.

//SET-ONLINE-UTILITY-PARAMETERS -
// DBH=*INDEPENDENT, -
// CONFIGURATION-NAME=SESSION4
//SET-RELOCATE-PARAMETERS -
// SUBSCHEMA-NAME=SUB4, -
// REALM-NAME=AREA4, -
// PAGES-PER-DML=2
//DECLARE-VARIABLE -
// VARIABLE-NAME=NRCLASHS, -
// TYPE=*INTEGER, -
// INITIAL-VALUE=0
//DECLARE-PROCEDURE -
// PROCEDURE-NAME=TA4, -
// CODE=’READY UPDATE;RELOCATE;-
//EXIT COND=STATUSCODE EQ 010;-
//ADD NRCLASHS,1,COND=RELOC-LOCKED-PAGES GT 0;FINISH;-
//EXIT COND=NRCLASHS GE 10’
//REPEAT-PROCEDURE -
// PROCEDURE-NAME=TA4, -
// CYCLE-LIMIT=10000
//SHOW-VARIABLE RELOC-ORIGIN
//SHOW-VARIABLE RELOC-DESTINATION