DYNCOPY COPY TAPE TO TAPE does not copy all contents from the input tape created by IDCAMS

Products

• Dynam for VSE

Issue/Introduction

I was asked to copy a tape that contains IDCAMS BACKUP of 36 files.

I tried:

// JOB DYNCOPY                               
// TLBL IN1,'XB.E.MT.XE04R01,U'              
// TLBL OUT1,'XB.E.MT.XE04R01.D27062023,U'   
// EXEC DYNCOPY,SIZE=22K                     
COPY,FILEIN=IN1,FILEOUT=OUT1                 
/*                                           

But only 2 blocks are copied:

// JOB DYNCOPY                                                 16:00:56
DATE 27/06/2023, CLOCK 16/00/56                                16:00:56
CADT032I ASSIGNED IN1 SYS004=F00 VV1066 1 XB.E.MT.XE04R01      16:01:17
CADT007I ****** LABEL OUT1 SYS254=F03 VV0532 1                 16:01:19
*XB.E.MT.XE04R01.D27062023*                                    16:01:19
4130D EOF OR EOV INQUIRY  IN1      SYS004=F00                  16:01:20
                                                               16:01:20
                                                               16:01:45
CADT031I *CLOSED* OUT1 SYS254=F03 VV0532 XB.E.MT.XE04R01.D27062023     
BLK=2                                                          16:01:45
CADC897I TOTAL BLOCKS  COPIED:           2                     16:01:46
EOJ DYNCOPY   MAX.RETURN CODE=0000                             16:01:46

I reply EOF to message 

4130D EOF OR EOV INQUIRY  IN1      SYS004=F00              

 

I also tried with SEL=ALL but result is the same:

CADC891I PARAMETER CARD=COPY,FILEIN=TAPEIN,FILEOUT=TAPEOUT
CADC891I PARAMETER CARD=SEL=ALL                           
CADC897I TOTAL BLOCKS  COPIED:           2      

 

 

         

Environment

Dynam Release : 7.1

Resolution

Tape to be copied is in VSAM IDCAMS format. TDYNCOPY and DYNCOPY will not copy such a tape. Recommend using DITTO

Possibly something like this. This is a recommendation, your environment may need to make changes

Sample job to copy a tape and update the volume status in the DYNAM catalog

// JOB DITT4
// TLBL UIN,'XB.E.MT.XE04R01,U'
// TLBL UOUT,'XB.E.MT.XE04R01.D27062023,U'
// EXEC TDYNASN,SIZE=128K
OPEN UIN,SYS010,INPUT
OPEN UOUT,SYS011,OUTPUT
/*
// UPSI 1
// EXEC DITTO
$$DITTO TT INPUT=SYS010,OUTPUT=SYS011,NFILES=EOV
$$DITTO RUN INPUT=SYS010
$$DITTO RUN OUTUT=SYS011
/*
// EXEC TDYNASN,SIZE=128K
CLOSE UIN,SYS010,INPUT
CLOSE UOUT,SYS011,OUTPUT
/&

The CLOSE UOUT,SYS011,OUTPUT will update your catalog status.