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                                                    -
               &VSEDSN=TEST.TAPE.FILE
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))                                 -
                        PNODE
         ELSE
                    RUN TASK (PGM=DMNOTIFY,                                    -
                        PARM=(’FAIL’,&VSEDSN))                                 -
                        PNODE
         EIF