Database Management for DB2: Run DSNTIAUL using BATCH PROCESSOR

Products

• Database Management for DB2 for z/OS - Administration Suite

Issue/Introduction

Batch Processor is able to execute utility DSNTIAUL. 

Environment

DB2 for Z/OS

Release R20

Resolution

When submitted with BATCH PROCESSOR this JCL will execute an unload with DSNTIAUL.

.ALLOC FI(SYSREC00) DA('hlq.DSNTIAUL.DATA') UNIT(SYSDA) +
       SPACE(1,1) TRACKS CATALOG
.ALLOC FI(SYSPUNCH) DA('hlq.DSNTIAUL.SYSPUNCH') UNIT(SYSDA) +
       SPACE(1,1) TRACKS CATALOG
.ALLOC FI(SYSIN)    DA('hlq.DSNTIAUL.SYSIN') SHR
.ALLOC FI(SYSPRINT) SYSOUT(X)
.CALL DSN PARM(ssid)
.DATA
     RUN  PROGRAM(DSNTIAUL) PLAN(DSNTIB12) -
     LIB('hlq.RUNLIB.LOAD') -
     PARMS('SQL')
.ENDDATA
.FREE FI(SYSREC00)
.FREE FI(SYSPUNCH)
.FREE FI(SYSPRINT)
.FREE FI(SYSIN)



The resulting sysout shows:

.CONNECT ssid
 BPA0027I: SYNCPOINT TAKEN AND ALL WORK COMMITTED.
 BPA0198I: CURRENT FUNCTION LEVEL IS V12R1M500
RETCODE =     0

.ALLOC FI(SYSREC00) DA('hlq.DSNTIAUL.DATA') UNIT(SYSDA) +
       SPACE(1,1) TRACKS CATALOG
RETCODE =     0

.ALLOC FI(SYSPUNCH) DA('hlq.DSNTIAUL.SYSPUNCH') UNIT(SYSDA) +
       SPACE(1,1) TRACKS CATALOG
RETCODE =     0

.ALLOC FI(SYSIN)    DA('hlq.DSNTIAUL.SYSIN') SHR
RETCODE =     0

.ALLOC FI(SYSPRINT) SYSOUT(X)
RETCODE =     0

.CALL DSN PARM(ssid)
.ALLOC UNIT(SYSDA)    FI(SYSTSIN) NEW SPACE(2,20) CYL   +
 RECFM(F,B) LRECL(80) BLKSIZE(0)
.ALLOC UNIT(SYSDA)    FI(SYSTSPRT) NEW SPACE(4,80) CYL   +
 RECFM(V,B,A) LRECL(75) BLKSIZE(6324)
.DATA
     RUN  PROGRAM(DSNTIAUL) PLAN(DSNTIB12) -
     LIB('hlq.RUNLIB.LOAD') -
     PARMS('SQL')
.ENDDATA

      RUN  PROGRAM(DSNTIAUL) PLAN(DSNTIB12)      LIB('hlq.RUNLIB.LOAD')      PARMS('SQL')
.FREE FI(SYSTSIN)
.FREE FI(SYSTSPRT)
RETCODE =     0

.FREE FI(SYSREC00)
RETCODE =     0

.FREE FI(SYSPUNCH)
RETCODE =     0

.FREE FI(SYSPRINT)
RETCODE =     0

.FREE FI(SYSIN)
RETCODE =     0

CONTROL PROCESS CARD:
BATCH PROCESSOR PLAN ===> RBPAP200
BATCH PROCESSOR ID   ===> HLQ.HLQ1.BPCODE-DSNTIAUL
STRATEGY NAME        ===> (NONE)
DEVICE ALLOCATION UNIT => SYSDA
 BPA0144I: FINAL LOG RECORD WRITTEN FOR SUBSYSTEM ===> ssid.
*****  BATCH PROCESSOR COMPLETE                  *****
 DSNT490I SAMPLE DATA UNLOAD PROGRAM
 DSNT505I DSNTIAUL OPTIONS USED: SQL
 DSNT503I UNLOAD DATA SET SYSPUNCH RECORD LENGTH SET TO    80
 DSNT504I UNLOAD DATA SET SYSPUNCH BLOCK SIZE SET TO 27920
 DSNT503I UNLOAD DATA SET SYSREC00 RECORD LENGTH SET TO   206
 DSNT504I UNLOAD DATA SET SYSREC00 BLOCK SIZE SET TO 27810
 DSNT495I SUCCESSFUL UNLOAD            9 ROWS OF TABLE authid1.TBEMP

Additional Information

Use the Batch Processor

CALL Command—Call the Execution Program