Example 1: Reorganizing a single area

The following figure shows example JCL statement for reorganizing a single area. One output file is produced.

First, the following data must be assembled:

The database name is TSSDBD1, and four areas are defined.

The fourth area defined in the DMB is to be reorganized, has a data set name of TSSV.TSSDBD1.TSS1AR04, and is defined as follows:

     AREA      DD1=TSS1AR04,                                           C
               SIZE=4096,                                              C
               UOW=(20,5),                                             C
               ROOT=(100,12)

The maximum number of IOVF CIs used by any UOW in this area is 7.

The JCL stream for this unload job can now be set up:

The EXEC statement for FABCUR1 is coded with REGION=xxxx. Where xxxx is the value that is estimated based on the worksheet provided in Region size requirements for DEDB Unload.

The control statement stream is coded as follows:

     DBDNAME=TSSDBD1 REORG STATS 
 
     AREACTL=4 
 
     TASKCTL=(1,7)

A DD statement for the area being processed must be included.
```
     //TSS1AR04  DD DSN=TSSV.TSSDBD1.TSS1AR04,DISP=OLD
```

DD statements for the output file, and its associated SORT control statement data sets must be included.

     //DURD004O DD DSN=HPFP.UR.FILE004.SEGDATA,
     //            DISP=(NEW,CATLG,DELETE), 
     //            UNIT=SYSDA, 
     //            SPACE=(CYL,(18,3),RLSE)
     //DURS004O DD DSN=HPFP.UR.FILE004.SORTCARD,
     //            DISP=(NEW,CATLG,DELETE),
     //            UNIT=SYSDA,
     //            SPACE=(TRK,(1,1))

Since a reorganization is being done, and the output file contains segment records from only one area, the SORT step may be omitted.

Now you can run the unload job.