Copy a Controlled CKD Disk Data Set to a non-controlled Tape Data Set (VSE)

This Process copies a CA-DYNAM/D or CA-EPIC controlled CKD disk data set to a non-CA-DYNAM/T or CA-EPIC controlled tape data set. The disk data set has already been defined to the appropriate system catalog. The output data set DCB attributes will be propagated from the input file attributes. This Process runs on the same IBM® Connect:Direct® node using PNODE=SNODE processing and uses symbolic values.

DYD2TAP1 PROC  PNODE=SC.VSE.NODE                                               -
               SNODE=SC.VSE.NODE                                               -
               &VSECUU=CART                                                    -
STEP0001 COPY  FROM ( PNODE                                                    -
                    DSN=USER01.TEST.GDGCOPY1                                   -
                    UNIT=DLBLONLY                                              -
                    DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=8000)              -
                    )                                                          -
               TO   ( SNODE                                                    -
                    DSN=&VSEDSN                                                -
                    UNIT=&VSECUU                                               -
                    LABEL=(1,SL)                                               -
                    DISP=(NEW,KEEP)                                            -
STEP0002 IF    (STEP0001 EQ 0) THEN
                    RUN TASK (PGM=DMNOTIFY,                                    -
                        PARM=(’GOOD’,&VSEDSN))                                 -
                    RUN TASK (PGM=DMNOTIFY,                                    -
                        PARM=(’FAIL’,&VSEDSN))                                 -