Copy a Controlled Disk Data Set to a Controlled Tape Output File (VSE)

Use this Process to copy a CA-DYNAM/D or CA-EPIC controlled disk data set to a CA-DYNAM/T or CA-EPIC controlled tape output file on the same IBM® Connect:Direct® node by using PNODE=SNODE. All of the disk and tape data set names have been predefined to the appropriate system catalog.

DYD2DYT1 PROC  PNODE=SC.VSE.NODE                                               -
               SNODE=SC.VSE.NODE                                               -
               &VSEDSN=USER01.TEST.TAPE1
STEP0001 COPY  FROM ( PNODE                                                    -
                     DSN=USER01.TEST.COPYFILE                                  -
                     UNIT=DLBLONLY                                             -
                     DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=16000)            -
                     )                                                         -
               TO    ( SNODE                                                   -
                     DSN=&VSEDSN                                               -
                     UNIT=TNOASGN                                              -
                     LABEL=(1,SL)                                              -
                     DISP=(NEW,CATLG)                                          -
                     DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=32000)            -
                     )
STEP0002 IF    (STEP0001 EQ 0) THEN
                    RUN TASK (PGM=DMNOTIFY,                                    -
                        PARM=(’GOOD’,&VSEDSN))                                 -
                        PNODE
         ELSE
                    RUN TASK (PGM=DMNOTIFY,                                    -
                        PARM=(’FAIL’,&VSEDSN))                                 -
                        PNODE
         EIF