Example 4: The prevention of conflicts is based on the locks reported

You want to move as much as possible toward the beginning of the realm. However, at some time the database will be detached. The UDS online utility will then be terminated immediately. The realm has 10,000 pages. In the event of information about conflicts (here: more than 10) the UDS online utility should also terminate. But it is not clear how many pages are normally emptied in a transaction. The lock conflicts which have occurred are used as a criterion.

//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