Copy a z/OS Sequential Data Set or z/OS PDS to a VSE-Controlled Tape Data Set

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