This Process copies either a z/OS sequential data set or
a z/OS partitioned data set into a CA-DYNAM/T or CA-EPIC controlled
tape data set. The input is from z/OS with the Process running on
VSE. The disk data set has already been defined to the appropriate
system catalog. This Process was written with symbolics for substitution.
ZOS2TAP1 PROC SNODE=SC.OS390.NODE -
PNODE=SC.VSE.NODE -
&VSECUU=CART -
&VSEDSN=TEST.TAPE.FILE
STEP0001 COPY FROM ( SNODE -
DSN=RPITT1.LARGE.OS390.FILE -
DISP=SHR -
DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800) -
) -
TO ( PNODE -
DSN=&VSEDSN -
UNIT=&VSECUU -
LABEL=(1,SL) -
DISP=(NEW,KEEP) -
DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=16000) -
)
STEP0002 IF (STEP0001 EQ 0) THEN
RUN TASK (PGM=DMNOTIFY, -
PARM=(’GOOD’,&VSEDSN)) -
PNODE
ELSE
RUN TASK (PGM=DMNOTIFY, -
PARM=(’FAIL’,&VSEDSN)) -
PNODE
EIF
|