Use this Process to copy a non-managed disk data set into another non-managed disk data set residing on a CKD device. This Process runs on the same IBM® Connect:Direct® node using PNODE=SNODE processing and uses symbolic values.
DSK2DSK1 PROC PNODE=SC.VSE.NODE -
SNODE=SC.VSE.NODE -
&VSEDSN=GGREG1.TEST.NODYNAM1
STEP0001 COPY FROM ( PNODE -
DSN=LRR.LREC480.ADDX -
DISP=(SHR) -
DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=480) -
VOL=SER=USER01 -
) -
TO ( SNODE -
DSN=&VSEDSN -
DISP=(RPL) -
VOL=SER=USER02 -
SPACE=(6055,(25)) -
DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=13600) -
)
STEP0002 IF (STEP0001 EQ 0) THEN
RUN TASK (PGM=DMNOTIFY, -
PARM=(’GOOD’,&VSEDSN)) -
PNODE
ELSE
RUN TASK (PGM=DMNOTIFY, -
PARM=(’FAIL’,&VSEDSN)) -
PNODE
EIF
|