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'