LOAD (Build CXX or Data Area) › LOAD (Build a Data Area) › Example JCL (Input from Disk)

Example JCL (Input from Disk)

The following shows the command to load the DEM area in database 001 (writing to DEM001 data set), to estimate the number of keys to sort at 500, to allow no bytes of slack for record growth, to compute no compression stats, to print sort messages on SYSLST, and to use the default buffer area. The data being read was created by a backup of the area DEM on disk.

Note: Use the following as a guide to prepare your JCL. The JCL statements are for example only. Lowercase letters in a statement indicate a value you must supply. Code all statements to your site and installation standards.

 * $$ JOB ...           See the previous note and JCL Requirements.
 * $$ LST ...
 // JOB name
 // EXEC PROC=procname  Whether you use PROCs or LIBDEFs, see JCL Requirements.
 // ASSGN SYSnnn,device type,VOL=volser,SHR
 // DLBL CXX,'cxx',,DA                             Directory data set
 // EXTENT SYSnnn,volser
 // DLBL IXX001,'db001.index',9999,DA              Index for DBID 1
 // EXTENT SYSnnn,volser,1,0,rel trk/blk,number trks/blks
 // DLBL DEM001,'db001.dem',9999,DA                Area DEM in DBID 1
 // EXTENT SYSnnn,volser,1,0,rel trk/blk,number trks/blks
 // ASSGN SYSnnn,device type,VOL=volser,SHR
 // DLBL BACKDEM,'input'                           Input data set
 // EXTENT ,volser
 // ASSGN SYS001,device type,VOL=volser,SHR
 // ASSGN SYS002,device type,VOL=volser,SHR
 // ASSGN SYS003,device type,VOL=volser,SHR
 // DLBL SORTWK1
 // EXTENT SYS001,volser,,,rel trk/blk,number trks/blks
 // DLBL SORTWK2
 // EXTENT SYS002,volser,,,rel trk/blk,number trks/blks
 // DLBL SORTWK3
 // EXTENT SYS003,volser,,,rel trk/blk,number trks/blks
 // EXEC DBUTLTY,SIZE=750K
         LOAD  AREA=DEM,DBID=1,FORMAT=BACKUP,
               DEVICE=DISK, DTFNAME=BACKDEM,
               OPTION1='PRINT=ALL,ROUTE=LST',SORT=500
 /*
 /&
 * $$ EOJ