EXTBKUP (Extract from Backup File) › EXTBKUP › Example JCL

Example JCL

The following shows the command to extract the data table POL in area POL in database 1 to the output data set, POLOUT. The FILEOUT statement is shown immediately before the EXTBKUP line.

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 note above 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 INFILE,'db001.pol',,DA                    Input file
 // EXTENT SYSnnn,volser
 // ASSGN SYS005,TAPE
 // PAUSE MOUNT TAPE
 // TLBL POLOUT,'polout'                           Output data
 // EXEC DBUTLTY,SIZE=750K
          FILEOUT  DTFNAME=POLOUT,TABLE=POL,DEVICE=S005
          EXTBKUP  DEVICE=DISK,DTFNAME=INFILE
 /*
 /&
 * $$ EOJ

The following shows the command(s) to create an extract from the backup table POL in physical sequence to POLOUT on disk. The FILEOUT statement is shown immediately before the EXTBKUP line.

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 note above 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 INFILE,'db001.pay',,DA                    Input file
 // EXTENT SYSnnn,volser
 // ASSGN SYSnnn,devicetype,VOL=volser,SHR
 // DLBL POLOUT,'out',1,SD                         Output data
 // EXTENT,volser,1,0,rel trk/blk,number trks/blks
 // EXEC DBUTLTY,SIZE=750K
          FILEOUT  DTFNAME=POLOUT,TABLE=POL,DEVICE=DISK
          EXTBKUP  DEVICE=DISK,DTFNAME=INFILE
 /*
 /&
 * $$ EOJ