Batch Processor is able to execute utility DSNTIAUL.
DB2 for Z/OS
Release R20
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