DSNTIAUL Unload table with SQLs

SQLs specified in SYSIN...
UNLOAD card generated in SSPUNCH
SQLs result saved in SYSREC00 with wild format.
Attention to the SQLs result type, if you use expression or function.
eg.
SELECT '03',ACCT_YR FROM owner.table1
'03' string will be treated as VARCHAR(2), will occupied 4 bytes in the unload file.
=============================================================

//UNLOAD EXEC PGM=IKJEFT01,DYNAMNBR=20
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN) RUN PROGRAM(DSNTIAUL) PLAN(DSNTIB81) -
LIB(’DSN810.RUNLIB.LOAD’)
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSREC00 DD DSN=DSN8UNLD.SYSREC00,
// UNIT=SYSDA,SPACE=(32760,(1000,500)),DISP=(,CATLG),
// VOL=SER=SCR03
//SYSPUNCH DD DSN=DSN8UNLD.SYSPUNCH,
// UNIT=SYSDA,SPACE=(800,(15,15)),DISP=(,CATLG),
// VOL=SER=SCR03,RECFM=FB,LRECL=120,BLKSIZE=1200
//SYSIN DD *
DSN8810.PROJ WHERE DEPTNO='D01'

Remove BK files for DB2

when you deleting bk files for Database, don't forget to deleting Backup records in SYSIBM.SYSCOPY tables.

//*********************************************************************
//*THE MODIFY UTILITY WITH THE RECOVERY OPTION DELETES RECORDS FROM THE
//*SYSIBM.SYSCOPY CATALOG TABLE, RELATED LOG RECORDS FROM THE
//*SYSIBM.SYSLGRNX DIRECTORY TABLE, AND ENTRIES FROM THE DBD, AND
//*RECYCLES DB2? VERSION NUMBERS FOR REUSE.
//*********************************************************************
//UTILSTEP EXEC PGM=DSNUTILB,
// PARM=(D61A,FMSTHP,''),
// TIME=1440,REGION=0M
//STEPLIB DD DSN=DSN810.SDSNLOAD,DISP=SHR
//DSNTRACE DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//UTPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSABEND DD SYSOUT=*
//SYSUT1 DD UNIT=(SYSDA,1),SPACE=(CYL,10)
//*DELETING SYSCOPY AND SYSLGRNX RECORDS THAT ARE OVER A CERTAIN AGE
//SYSIN DD *
MODIFY RECOVERY TABLESPACE DSN8D91A.DSN8S91E DELETE AGE(90)
/*
//

Change Special Resource

The following code is used to change SR to Unavailable.

//JOBxxx JOB ...
// SET OUTP=*
//*----------------------------------------
//* CHANGE SPECIAL RESOURCE TO UNAVAILABLE
//*----------------------------------------
//*
//STEP010 EXEC PGM=EQQEVPGM
//EQQMLIB DD DISP=SHR,DSN=EQQ.SEQQMSG0
//EQQMLOG DD SYSOUT=&OUTP
//SYSUDUMP DD SYSOUT=&OUTP
//SYSPRINT DD SYSOUT=&OUTP
//SYSIN DD *
SRSTAT 'SR.SR01' AVAIL(NO) SUBSYS(OPCx)
//