CADT002D *NOT LD PNT* running TDYNCOPY for AMF (Automatic Multi File) volumes

Products

• Dynam for VSE
• Dynam VSE Option

Issue/Introduction

Having an AMF Dataset: XXXX.YYYY.ZZZZ.***' 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,'XXXX.YYYY.ZZZZ.***',,,,,,24
* TUERSDAY
// TLBL UIN,'XXXX.YYYY.ZZZZ.***',,,,,1,24
* WEDNESDAY
// TLBL UIN,'XXXX.YYYY.ZZZZ.***',,,,,2,24
* THUSDAY
// TLBL UIN,'XXXX.YYYY.ZZZZ.***',,,,,3,24
* MONDAY
// TLBL UIN,'XXXX.YYYY.ZZZZ.***',,,,,4,
// TLBL UOUT,'XXXX.YYYY.ZZZZ.COPY.***',,,,,,24
// TLBL UOUT,'XXXX.YYYY.ZZZZ.COPY.***',,,,,,24
// TLBL UOUT,'XXXX.YYYY.ZZZZ.COPY.***',,,,,,24
// TLBL UOUT,'XXXX.YYYY.ZZZZ.COPY.***',,,,,,24
// TLBL UOUT,'XXXX.YYYY.ZZZZ.COPY.***',,,,,,2
// EXEC TDYNCOPY
/*

will always result in:

F3 0003 CADT007I ****** LABEL UOUT SYS005=B02 506065 1
*XXXX.YYYY.ZZZZ.COPY.001*
F3 0003 CADT509I BLOCK COUNT=0116210 INPUT
F3 0003 CADT510I BLOCK COUNT=0116210 OUTPUT
F3 0003 CADT031I *CLOSED* UOUT SYS005=B02 506065 XXXX.YYYY.ZZZZ.COPY
BLK=116210
F3 0003 CADT004I MOUNT VOLUME 506135 DSN=XXXX.YYYY.ZZZZ.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 XXXX.YYYY.ZZZZ.015
F3 0003 CADT023I ****** DSN 'XXXX.YYYY.ZZZZ.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 XXXX.YYYY.ZZZZ.COPY
BLK=116210
F3 0003 CADT004I MOUNT VOLUME 506135 DSN=XXXX.YYYY.ZZZZ.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 ...

Resolution

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.