I am able to do a tape to tape copy without any issues.  However tape to disk 
doesn't work because the default of tape blksize is 262144 and the maximum 
blksize that is supported for DASD is 32760.  I guess nothing can be done. 
--------------------------------------------
On Fri, 16/6/17, Carmen Vitullo <[email protected]> wrote:

 Subject: Re: help with DFDSS and LBI (large block interface)
 To: [email protected]
 Received: Friday, 16 June, 2017, 3:12 PM
 
 a better example 
 tape to tape 
 
 
 
 //STEP1 EXEC
 PGM=ADRDSSU 
 //TAPEI DD
 DSN=OTCTR.OMVS19.DUMP, 
 //
 UNIT=3390,VOL=SER=(OTCTR3,OTCTR4),DISP=SHR 
 //TAPEO DD DSN=OTC.OMVS19.DUMP, 
 // UNIT=3390,VOL=SER=(OTC047,OTC053), 
 // DISP=(,CATLG),SPACE=(CYL,(1100,100)) 
 //SYSPRINT DD SYSOUT=* 
 //SYSIN
 DD * 
 COPYDUMP INDDNAME(TAPEI)
 OUTDDNAME(TAPEO) 
 IF LASTCC GT 0 - 
 THEN DO 
 WTO
 '****************************************************'
 
 WTO '********* DSSU TAPE COPY HAS
 ABENDED ! *************' 
 WTO
 '****************************************************'
 
 END 
 ELSE DO 
 WTO
 '****************************************************'
 
 WTO '*** DSSU TAPE COPY HAS COMPLETED
 SUCCESSFULLY ! ****' 
 WTO
 '****************************************************'
 
 END 
 ----- Original Message
 -----
 
 From: "Carmen
 Vitullo" <[email protected]>
 
 To: [email protected]
 
 Sent: Friday, June 16, 2017 2:11:17 PM 
 Subject: Re: help with DFDSS and LBI (large
 block interface) 
 
 I've
 done this alot creating a second copy of a dump tape and
 never forced a blocksize - 
 
 //STEP1 EXEC PGM=ADRDSSU 
 //SYSPRINT DD SYSOUT=T 
 //INVOL1 DD VOL=SER=RMDS01,UNIT=3380,DISP=SHR
 
 //TAPE1 DD
 DISP=(,CATLG),DSN=xxxxxxxxxxxxx,UNIT=T3480,DCB=X 
 //SYSIN DD * 
 
 /SYSIN DD * 
 COPYDUMP
 INDDNAME(INVOL1) OUTDDNAME(TAPE1) 
 IF LASTCC
 GT 0 - 
 THEN DO 
 WTO
 '*++++++++++++++++++++++++++++++++++++++++++++++++++*'
 
 WTO '********* COPYDUMP OF TECHD7
 ABENDED ! *************' 
 WTO
 '*++++++++++++++++++++++++++++++++++++++++++++++++++*'
 
 END 
 ELSE DO 
 WTO
 '*++++++++++++++++++++++++++++++++++++++++++++++++++*'
 
 WTO '*** COPYDUMP OF TECHD7 COMPLETED
 SUCCESSFULLY ! ****' 
 WTO
 '*++++++++++++++++++++++++++++++++++++++++++++++++++*'
 
 END ----- Original Message ----- 
 
 From: "Lizette
 Koehler" <[email protected]>
 
 To: [email protected]
 
 Sent: Friday, June 16, 2017 2:03:26 PM 
 Subject: help with DFDSS and LBI (large block
 interface) 
 
 This is from
 John Dawes who is having issues posting to IBMMAIN. I only
 have the following details 
 
 G'Day, 
 
 Here is the jcl: 
 //STEP1 EXEC
 PGM=ADRDSSU,REGION=0M,TIME=1440,PARM='UTILMSG=YES'
 
 //SYSPRINT DD SYSOUT=* 
 //BACKUP DD
 DISP=OLD,DSN=SYS2.STORDSK.BKUP.G0001V00 
 //COPY1 DD DISP=(,CATLG,DELETE), 
 // DSN=SYS2.DFDSS.BKUP2, 
 //
 UNIT=3490,VOL=(,,,99),DCB=BLKSIZE=32760 
 //SYSIN DD * 
 COPYDUMP - 
 INDD(BACKUP) - 
 OUTDD(COPY1)
 
 /* 
 I am trying to copy the
 tape (which has the default blksize of 262144). I 
 tried to force a blksize of 32760 so that it
 would be copied on to DASD in a 
 later step.
 
 Here is the error message of copying the
 tape to another tape: 
 ADR331E (001)-CPYD
 (01), OUTPUT BLKSIZE 32760 FOR DATA SET ON DDNAME COPY1 IS
 
 SMALLER THAN INPUT BLKSIZE 262144 ADR324E
 (001)-CPYD (01), THE VOLUME/DATA 
 SET
 SPECIFIED BY DDNAME COPY1 HAS BECOME UNUSABLE 
 
 The tape dsn does not have a
 DATACLAS. 
 
 I tried a copy
 of the tape to dasd which didn't work which prompted my
 first 
 post. To bypass the problem I tried
 to copy the tape to another tape with a 
 blksize of 32760 and encountered the above
 error. 
 
 
 ----------------------------------------------------------------------
 
 For IBM-MAIN subscribe / signoff / archive
 access instructions, 
 send email to [email protected]
 with the message: INFO IBM-MAIN 
 
 
 ----------------------------------------------------------------------
 
 For IBM-MAIN subscribe / signoff / archive
 access instructions, 
 send email to [email protected]
 with the message: INFO IBM-MAIN 
 
 
 ----------------------------------------------------------------------
 For IBM-MAIN subscribe / signoff / archive
 access instructions,
 send email to [email protected]
 with the message: INFO IBM-MAIN
 

----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN

Reply via email to