//UCSA15UL JOB 'IMAGE',NOTIFY=UCSA015
//STEPNA EXEC DSNUPROC,UID='SMPLRERG',UTPROC='',SYSTEM='DB2A'
//SYSCOPY DD DSN=UCSA015.SMPLCOPY,
// DISP=(NEW,CATLG,CATLG),
// UNIT=SYSDA,SPACE=(CYL,(2,1))
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
COPY TABLESPACE DSCOT01.SSCOT01
COPYDDN SYSCOPY
FULL YES
DSNUM ALL
MainFrame