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

Use this Process to copy a CA-DYNAM/D or CA-EPIC controlled tape data set to CA-DYNAM/D or CA-EPIC controlled FBA disk output data set. The disk data set has already been defined to the appropriate system catalog.

This Process runs on the same IBM® Connect:Direct® node using PNODE=SNODE processing and uses symbolic values.

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