Fastunload : Sample JCL to unload multiple individual tables in one job step

Products

• Fast Unload for DB2 for z/OS

Issue/Introduction

Fastunload is able to unload one or more individual tables in one step and send the data to individual unload datasets. 

Environment

DB2 for Z/OS

Release: R20

Resolution

The JCL below will unload the tables selected into each SYSRECxx dataset defined in the one step. 

// Your jobcard
//*
//*  MODEL = MJPTIUT   DATE = 07-25-2016  TIME = 022833
//*
//UTIL0001 EXEC PGM=PTLDRIVM,
//             PARM='EP=UTLGLCTL/DSN1,',
//             REGION=0M
//*
//STEPLIB   DD   DISP=SHR,DSN=PTIPROD.RD200.PRD.CDBALOAD
//          DD   DISP=SHR,DSN=DB2.PRIVATE.SDSNEXIT
//          DD   DISP=SHR,DSN=DB2.SDSNLOAD
//PTILIB    DD   DISP=SHR,DSN=PTIPROD.RD200.PRD.CDBALOAD
//          DD   DISP=SHR,DSN=DB2.PRIVATE.SDSNEXIT
//          DD   DISP=SHR,DSN=DB2.SDSNLOAD
//PTIPARM   DD   DISP=SHR,DSN=PTIPROD.RD200.PRD.CDBAPARM
//*
//PTIMSG    DD   SYSOUT=*
//PTIIMSG   DD   SYSOUT=*
//PTIMSG01  DD   SYSOUT=*
//*
//SYSOUT    DD   SYSOUT=*
//SYSUDUMP  DD   SYSOUT=*
//ABNLIGNR  DD   DUMMY                 SUPPRESS ABENDAID DUMPS
//*
//*
//SYSREC01    DD   DSN=AUTHID1.DBCORP1.I01.SYSREC01,
// DISP=(MOD,CATLG,DELETE),SPACE=(CYL,(14,5)),UNIT=SYSDA
//SYSREC02    DD   DSN=AUTHID1.DBCORP1.I01.SYSREC02,
// DISP=(MOD,CATLG,DELETE),SPACE=(CYL,(14,5)),UNIT=SYSDA
//SYSREC03    DD   DSN=AUTHID1.DBCORP1.I01.SYSREC03,
// DISP=(MOD,CATLG,DELETE),SPACE=(CYL,(14,5)),UNIT=SYSDA
//SYSREC04    DD   DSN=AUTHID1.DBCORP1.I01.SYSREC04,
// DISP=(MOD,CATLG,DELETE),SPACE=(CYL,(14,5)),UNIT=SYSDA
//SYSREC05    DD   DSN=AUTHID1.DBCORP1.I01.SYSREC05,
// DISP=(MOD,CATLG,DELETE),SPACE=(CYL,(14,5)),UNIT=SYSDA
//SYSREC06    DD   DSN=AUTHID1.DBCORP1.I01.SYSREC06,
// DISP=(MOD,CATLG,DELETE),SPACE=(CYL,(14,5)),UNIT=SYSDA
//SYSREC07    DD   DSN=AUTHID1.DBCORP1.I01.SYSREC07,
// DISP=(MOD,CATLG,DELETE),SPACE=(CYL,(14,5)),UNIT=SYSDA
//SYSREC08    DD   DSN=AUTHID1.DBCORP1.I01.SYSREC08,
// DISP=(MOD,CATLG,DELETE),SPACE=(CYL,(14,5)),UNIT=SYSDA
//SYSREC09    DD   DSN=AUTHID1.DBCORP1.I01.SYSREC09,
// DISP=(MOD,CATLG,DELETE),SPACE=(CYL,(14,5)),UNIT=SYSDA
//SYSREC10    DD   DSN=AUTHID1.DBCORP1.I01.SYSREC10,
// DISP=(MOD,CATLG,DELETE),SPACE=(CYL,(14,5)),UNIT=SYSDA
//SYSREC11    DD   DSN=AUTHID1.DBCORP1.I01.SYSREC11,
// DISP=(MOD,CATLG,DELETE),SPACE=(CYL,(14,5)),UNIT=SYSDA
//SYSREC12    DD   DSN=AUTHID1.DBCORP1.I01.SYSREC12,
// DISP=(MOD,CATLG,DELETE),SPACE=(CYL,(14,5)),UNIT=SYSDA
//ST01MSG  DD SYSOUT=*
//SYSIN   DD  *
  FASTUNLOAD
  LOAD-CONTROL NONE,LOG-NO
  LOAD-STMT-RESUME DSNTIAUL
  SQL-ACCESS EXTENSION
  OUTPUT-FORMAT DSNTIAUL
  DATE-FORMAT ISO
  INPUT-FORMAT TABLE
  PRINT-OPTIONS PTIMSG
  DISPLAY-STATUS 10000
  IO-BUFFERS 10
  VSAM-BUFFERS 360
  SHRLEVEL CHANGE
  SELECT *
  FROM AUTHID1.TBDEPT
  ;
  SELECT *
  FROM AUTHID1.TBEMP
  ;
  SELECT *
  FROM AUTHID1.TBPROJECT
  ;
  SELECT *
  FROM AUTHID1.TBROLE
  ;
  SELECT *
  FROM AUTHID1.TBWORK_GROUP
  ;
  SELECT *
  FROM AUTHID1.TBDEPT
  ;
  SELECT *
  FROM AUTHID1.TBEMP_TASK_ROLE
  ;
  SELECT *
  FROM AUTHID1.TBEMP
  ;
  SELECT *
  FROM AUTHID1.TBPROJECT
  ;
  SELECT *
  FROM AUTHID1.TBROLE
  ;
  SELECT *
  FROM AUTHID1.TBWORK_GROUP
  ;
  SELECT *
  FROM AUTHID1.TBDEPT
  ;

Additional Information

Use Multiple SELECT Statements and Multitasking