Use this Process to copy a CA-DYNAM/D or CA-EPIC controlled disk data set to a CA-DYNAM/T or CA-EPIC controlled tape output file on the same IBM® Connect:Direct® node by using PNODE=SNODE. All of the disk and tape data set names have been predefined to the appropriate system catalog.
DYD2DYT1 PROC PNODE=SC.VSE.NODE -
SNODE=SC.VSE.NODE -
&VSEDSN=USER01.TEST.TAPE1
STEP0001 COPY FROM ( PNODE -
DSN=USER01.TEST.COPYFILE -
UNIT=DLBLONLY -
DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=16000) -
) -
TO ( SNODE -
DSN=&VSEDSN -
UNIT=TNOASGN -
LABEL=(1,SL) -
DISP=(NEW,CATLG) -
DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=32000) -
)
STEP0002 IF (STEP0001 EQ 0) THEN
RUN TASK (PGM=DMNOTIFY, -
PARM=(’GOOD’,&VSEDSN)) -
PNODE
ELSE
RUN TASK (PGM=DMNOTIFY, -
PARM=(’FAIL’,&VSEDSN)) -
PNODE
EIF
|