TDYNCOPY for AMF (Automatic Multi File) volumes?

Document ID : KB000055223
Last Modified Date : 14/02/2018
Show Technical Document Details

Description:

Having an AMF Dataset: NATURAL.MODULE.TGL.***' and trying to copy every Friday the 5 most current files from this DSN using TDYNCOPY with the following JCL:

// JOB TAPECOP *** COPY TAPE TO TAPE ***
// ASSGN SYSLST,03E
// UPSI 11000000
* FRIDAY
// TLBL UIN,'NATURAL.MODULE.TGL.***',,,,,,24
* TUERSDAY
// TLBL UIN,'NATURAL.MODULE.TGL.***',,,,,1,24
* WEDNESDAY
// TLBL UIN,'NATURAL.MODULE.TGL.***',,,,,2,24
* THUSDAY
// TLBL UIN,'NATURAL.MODULE.TGL.***',,,,,3,24
* MONDAY
// TLBL UIN,'NATURAL.MODULE.TGL.***',,,,,4,
// TLBL UOUT,'NATURAL.MODULE.TGL.COPY.***',,,,,,24
// TLBL UOUT,'NATURAL.MODULE.TGL.COPY.***',,,,,,24
// TLBL UOUT,'NATURAL.MODULE.TGL.COPY.***',,,,,,24
// TLBL UOUT,'NATURAL.MODULE.TGL.COPY.***',,,,,,24
// TLBL UOUT,'NATURAL.MODULE.TGL.COPY.***',,,,,,2
// EXEC TDYNCOPY
/*

will always result in:

F3 0003 CADT007I ****** LABEL UOUT SYS005=B02 506065 1
*NATURAL.MODULE.TGL.COPY.001*
F3 0003 CADT509I BLOCK COUNT=0116210 INPUT
F3 0003 CADT510I BLOCK COUNT=0116210 OUTPUT
F3 0003 CADT031I *CLOSED* UOUT SYS005=B02 506065 NATURAL.MODULE.TGL.COPY
BLK=116210
F3 0003 CADT004I MOUNT VOLUME 506135 DSN=NATURAL.MODULE.TGL.015 SYS004
MODE=08MH JOB=TAPECOP
F3 0003 CADT002D *NOT LD PNT* SYS004=B01
F3-0003
3 rewind
F3 0003 CADT032I ASSIGNED UIN SYS004=B01 506135 1 NATURAL.MODULE.TGL.015
F3 0003 CADT023I ****** DSN 'NATURAL.MODULE.TGL.COPY.002' FILE NO. 2 BEI
CREATED ON TAPE 506065 B02
F3 0003 CADT509I BLOCK COUNT=0116210 INPUT
F3 0003 CADT510I BLOCK COUNT=0116210 OUTPUT
F3 0003 CADT031I *CLOSED* UOUT SYS005=B02 506065 NATURAL.MODULE.TGL.COPY
BLK=116210
F3 0003 CADT004I MOUNT VOLUME 506135 DSN=NATURAL.MODULE.TGL.014 SYS004
MODE=08MH JOB=TAPECOP
F3 0003 CADT002D *NOT LD PNT* SYS004=B01
F3-0003
3 rewind

and so on ... and so on ...

DYNCOPY has been already added to the DTLUBEX macro ...

Solution:

To avoid this Problem (CADT002D *NOT LD PNT*) ...

You need to run TDYNCOPY for AMF Volumes in reversed order (oldest Version at the begin , newest Version as the last one) to honor D/T processing of LOCATE BLOCK.