Example 8: Reorganizing PPPs

You can set the parameters which are needed to enable a REORGPPP DML to be executed using the SET-REORGANIZE-PPP-PARAMETERS statement. PPP reorganization takes place in a sequence of reorganization actions that are executed in one or more consecutive online utility runs.

When the REORGPPP DML terminates normally, the predefined variables REORG-PPP-CURRENT, REORG-PPP-PAGES, and REORG-PPP-LOCKED supply values that can be used to control the progress of the PPP reorganization.

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