Reorganization of modeled databases proceeds in much the same manner as a DASDL update. The following WFL job performs the reorganization for the LIVEDB and TESTDB databases using DMREORG reorganization by increasing the length of Z in data set Q from 12 to 20 characters.  Note, you must use the BUILDREORG utility when you are performing any form of reorganization or garbage collection for a modeled database if using DMREORG reorganization.

?BEGIN JOB REORGANIZE/BOTHDBS;
%
% REORGANIZE LIVEDB
COMPILE LIVEDB WITH DASDL;
COMPILER DATA
UPDATE;
OPTIONS (AUDIT);
D DATA SET (K NUMBER(6)) AREAS = 100;
S SET OF D KEY K;
Q DATA SET (Z ALPHA(20)) PACK = TESTPACK;
AUDIT TRAIL (KIND = TAPE, DUPLICATED ON TAPE);
?
%----- END LIVEDB DASDL -----

RUN SYSTEM/BUILDREORG;
FILE DASDL (TITLE = DESCRIPTION/LIVEDB);
DATA CARD
$ RESET ZIP
UPDATE;
GLOBAL DMREORG OFFLINE;
?
%----- END BUILDREORG INPUT -----

RUN SYSTEM/REORGANIZATION;
FILE DASDL = DESCRIPTION/REORGANIZATION/LIVEDB ON TESTPACK;
%------ END OF REORGANIZATION FOR LIVEDB ------

% REORGANIZE TESTDB
COMPILE TESTDB WITH DASDL;
COMPILER DATA
MODEL LIVEDB;
UPDATE;
OPTIONS (AUDIT);
CONTROL FILE (PACK = TESTPACK);
D DATA SET (K NUMBER(6)) PACK = TESTPACK;
S SET OF D KEY K PACK = TESTPACK;
Q DATA SET (Z ALPHA(20)) PACK = TESTPACK;
?
%----- END TESTDB DASDL -----

RUN SYSTEM/BUILDREORG;
FILE DASDL (TITLE = DESCRIPTION/TESTDB);
DATA CARD
$ RESET ZIP
UPDATE;
GLOBAL DMREORG OFFLINE;
?
%-----END BUILDREORG INPUT -----

RUN SYSTEM/REORGANIZATION;
FILE DASDL = DESCRIPTION/REORGANIZATION/TESTDB ON TESTPACK;

?END JOB.