it 's OS390,
I submit this JCL but it doesn't work:
-------------------
//JOB1 JOB TLOAD,JOBNAME,MSGCLASS=T,CLASS=1
//*
//JOBLIB DD DSN=DSN610.DSNLOAD,DISP=SHR
//UNLOAD EXEC PGM=IKJEFT01,DYNAMNBR=20,COND=(4,LT)
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(DSNTIAUL) PLAN(DSNTIAU6) LIB('DSN610.RUNLIB.LOAD')
//*
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//*DATA
//SYSREC00 DD DSN=JOB.UNLOAD,DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(CYL,(1,1)),DCB=BUFNO=20
//*CONTROL CARD
//SYSPUNCH DD DSN=JOB.LISTCARD,DISP=(,CATLG,DELETE),
// UNIT=SYSDA,SPACE=(TRK,(1,1),RLSE)
//SYSIN DD *
JOB.TABLENAME
------------------
--
Message posted via
http://www.dbmonster.com 
