This Process copies a non-DYNAM/D or non-EPIC controlled disk data set into a DYNAM/D or EPIC managed CKD disk data set. The disk data set has already been defined to the appropriate system catalog. This Process runs on the same IBM® Connect:Direct® node using PNODE=SNODE processing and uses symbolic values.
DSK2DYD1 PROC PNODE=SC.VSE.NODE -
SNODE=SC.VSE.NODE -
&VSEDSN=USER01.TEST.GDGCOPY1
STEP0001 COPY FROM ( PNODE -
DSN=LRR.LREC480.ADDX -
DISP=SHR -
VOL=SER=USER01 -
DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800) -
) -
TO ( SNODE -
DSN=&VSEDSN -
UNIT=DLBLONLY -
DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=27920) -
)
STEP0002 IF (STEP0001 EQ 0) THEN
RUN TASK (PGM=DMNOTIFY, -
PARM=(’GOOD’,&VSEDSN)) -
PNODE
ELSE
RUN TASK (PGM=DMNOTIFY, -
PARM=(’FAIL’,&VSEDSN)) -
PNODE
EIF
|