Beispiel 8: Reorganisieren von PPPs

Sie können die Parameter festlegen, die benötigt werden, um eine REORGPPP-DML mit einer SET-REORGANIZE-PPP-PARAMETERS-Anweisung durchführen zu können. Die PPP-Reorganisation findet als eine Abfolge von Reorganisationsaktionen statt, die in einem oder mehreren aufeinanderfolgenden Online-Utility-Läufen durchgeführt werden.

Wenn die REORGPPP-DML normal endet, stellen die vordefinierten Variablen REORG-PPP-CURRENT, REORG-PPP-PAGES und REORG-PPP-LOCKED Werte zur Verfügung, die zum Steuern des Ablaufs der PPP-Reorganisation verwendet werden können.

//SET-ONLINE-UTILITY-PARAMETERS CONFIGURATION-NAME=DBDMLUTI
//SET-REORGANIZE-PPP-PARAMETERS SUBSCHEMA-NAME    = SUB, - 
//                              REALM-NAME= AREA-3 ,-
//                              INITIALIZE=ANY,  PAGES-PER-DML=1000
//DECLARE-VARIABLE VARIABLE-NAME=READY-CODE, -
//                             TYPE=*STRING, INITIAL-VALUE=*STD
//DECLARE-VARIABLE VARIABLE-NAME=REOPPP-CODE, -
//                              TYPE=*STRING,  INITIAL-VALUE=*STD
//DECLARE-PROCEDURE PROCEDURE-NAME=TA1, -
// CODE='READY UPDATE; -
//MOVE READY-CODE,RCODE,COND=STATUSCODE NE 000; REORGPPP;-
//MOVE REOPPP-CODE,RCODE,COND=STATUSCODE NE 000;-
//EXIT COND=STATUSCODE EQ 010; FINISH'
//REPEAT-PROCEDURE PROCEDURE-NAME=TA1, CYCLE-LIMIT=1
//SHOW-VARIABLE READY-CODE
//SHOW-VARIABLE REOPPP-CODE
//SHOW-VARIABLE REORG-PPP-CURRENT
//SHOW-VARIABLE REORG-PPP-PAGES
//SHOW-VARIABLE REORG-PPP-LOCKED