Hi, below JCL should work.
//DITTOTT JOB CLASS=A,MSGCLASS=X,MSGLEVEL=(1,1),NOTIFY=&SYSUID
//STEP1 EXEC PGM=DITTO,PARM='JOBSTREAM',REGION=4096K
//SYSPRINT DD SYSOUT=*
//TAPEIN DD UNIT=3490,LABEL=(,SL),VOL=SER=XXXXXX,DISP=SHR
//TAPEOUT DD UNIT=T3590,DISP=NEW,LABEL=(,SL),VOL=SER=YYYYYY
//SYSIN DD *
İİDITTO SET RESET
İİDITTO TT INPUT=TAPEIN,OUTPUT=TAPEOUT,NFILES=EOV
İİDITTO
EOJ
PS : 3490 & T3590 in UNIT parameter is our setting, if you have different
naming convention for tape units you'll have to change them.
Regards.
Nasuh KARAHALLI.
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
