FILEIN (Concatenate Input) › FILEIN › Example JCL

Example JCL

Following is example JCL showing the use of the FILEIN statement with the REPLACE function.

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 BKPUP1,'input'                           Input data set
 // EXTENT ,volser
 // DLBL BACKUP,'input'                           Input data set
 // 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
                       FILEIN  DEVICE=DISK,DTFNAME=BKPUP1
                       REPLACE DBID=1,TABLE=F01,DTFNAME=BACKUP,SLACK=12,SORT=100,
                          SORTWK=2,OPTION1='PRINT=ALL',DEVICE=DISK,MULTUSE=YES

 /*
 /&
 * $$ EOJ