Example 5: Preventing conflicts with waiting

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. If there are indications of conflicts, the UDS online utility should wait 10 seconds because it is to be expected that the applications which are executing in parallel will soon become active in other areas. The lock conflicts which have occurred are used as a criterion. Following procedure execution, how many pages were released in total is shown in the FREED variable. The FREED variable is only supplied with a value after a successful FINISH so that any asynchronous abortions of relocation transactions do not distort the value.

//SET-ONLINE-UTILITY-PARAMETERS -
// DBH=*INDEPENDENT, -
// CONFIGURATION-NAME=SESSION5
//SET-RELOCATE-PARAMETERS -
// SUBSCHEMA-NAME=SUB5, -
// REALM-NAME=AREA5, -
// PAGES-PER-DML=2
//DECLARE-VARIABLE -
// VARIABLE-NAME=FREED, -
// TYPE=*INTEGER, -
// INITIAL-VALUE=0
//DECLARE-PROCEDURE -
// PROCEDURE-NAME=TA5, -
// CODE = ’READY UPDATE;RELOCATE;-
// EXIT COND=STATUSCODE EQ 010;-
// ADD FREED,RELOC-FREED-PAGES;-
// FINISH;-
// WAIT 10,COND=RELOC-LOCKED-PAGES GT 0’
//REPEAT-PROCEDURE -
// PROCEDURE-NAME=TA5 -
// CYCLE-LIMIT=10000
//SHOW-VARIABLE RELOC-ORIGIN
//SHOW-VARIABLE FREED