This Process copies a non-managed disk data set into a non-managed tape data set and runs on the same IBM® Connect:Direct® node using PNODE=SNODE processing. This Process uses symbolic values.
DSK2TAP1 PROC PNODE=SC.VSE.NODE -
SNODE=SC.VSE.NODE -
&VSECUU=CART -
&VSEDSN=TEST.TAPE.FILE
STEP0001 COPY FROM ( PNODE -
DSN=USER01.TEST.NODYNAM1 -
DISP=(SHR) -
UNIT=DISK -
VOL=SER=DOSRES -
DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=8000) -
) -
TO ( SNODE -
DSN=&VSEDSN -
UNIT=&VSECUU -
LABEL=(1,SL) -
DISP=(NEW,KEEP) -
DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800) -
)
STEP0002 IF (STEP0001 EQ 0) THEN
RUN TASK (PGM=DMNOTIFY, -
PARM=(’GOOD’,&VSEDSN)) -
PNODE
ELSE
RUN TASK (PGM=DMNOTIFY, -
PARM=(’FAIL’,&VSEDSN)) -
PNODE
EIF
|