Example 6: Information on the status code

You want to move as much as possible toward the beginning of the realm. If a special situation arises, it should be possible to distinguish the status codes.

//SET-ONLINE-UTILITY-PARAMETERS -
// DBH=*INDEPENDENT, -
// CONFIGURATION-NAME=SESSION6
//SET-RELOCATE-PARAMETERS -
// SUBSCHEMA-NAME=SUB6, -
// REALM-NAME=AREA6, -
// PAGES-PER-DML=1
//DECLARE-VARIABLE -
// VARIABLE-NAME=READY-CODE, -
// TYPE=*STRING,
// INITIAL-VALUE=*STD
//DECLARE-VARIABLE -
// VARIABLE-NAME=RELOC-CODE, -
// TYPE=*STRING,
// INITIAL-VALUE=*STD
//DECLARE-PROCEDURE -
// PROCEDURE-NAME=TA6, -
// CODE=’READY UPDATE;
//MOVE READY-CODE,RCODE,COND=STATUSCODE NE 000;
//RELOCATE;-
//MOVE RELOC-CODE,RCODE,COND=STATUSCODE NE 000;
//EXIT COND=STATUSCODE EQ 010;-
//FINISH’
//REPEAT-PROCEDURE -
// PROCEDURE-NAME=TA6, -
// CYCLE-LIMIT=10000
//SHOW-VARIABLE READY-CODE
//SHOW-VARIABLE RELOC-CODE
//SHOW-VARIABLE RELOC-ORIGIN
//SHOW-VARIABLE RELOC-DESTINATION