REPLACE (Replace All Data in a Table) › REPLACE › Example JCL

Example JCL

Following is example JCL for the REPLACE function for table F01 in DBID 1.

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 BACKUP,'input'                            Input data set
 // EXTENT ,volser
 // DLBL CXX,'cxx',,DA                             Directory data set
 // EXTENT ,volser
 // DLBL IXX001,'db001.index',,DA                  Index for DBID 1
 // EXTENT ,volser
 // DLBL F01001,'db001.f01',,DA
 // EXTENT ,volser
 // ASSGN SYS001,device type,VOL=volser,SHR
 // ASSGN SYS002,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
 // EXEC DBUTLTY,SIZE=768K
                  REPLACE DBID=1,TABLE=F01,DTFNAME=BACKUP,SORT=100,
                    SORTWK=2,OPTION1='PRINT=ALL',DEVICE=DISK,MULTUSE=YES

 /*
 /&
 * $$ EOJ