Copy a Managed Generation Disk Data Set to Another Managed Data Set (VSE)

Use this Process to copy either a CA-DYNAM/D or CA-EPIC managed disk data set into another DYNAM/D or EPIC managed data set. The input data set is CKD and the output data set is FBA. 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. This Process uses symbolic values.

DYD2DYD2 PROC  PNODE=SC.VSE.NODE                                               -
               SNODE=SC.VSE.NODE                                               -
               &CKDDSN=USER01.TEST.GDGCOPY2                                    -
               &FBADSN=USER01.TEST.FBACOPY1
STEP0001 COPY  FROM ( PNODE                                                    -
                    DSN=&CKDDSN                                                -
                    UNIT=DLBLONLY                                              -
                    DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=16000)             -
                    )                                                          -
               TO   ( SNODE                                                    -
                    DSN=&FBADSN                                                -
                    UNIT=DLBLONLY                                              -
                    DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=27920)             -
                    )
STEP0002 IF    (STEP0001 EQ 0) THEN
                    RUN TASK (PGM=DMNOTIFY,                                    -
                        PARM=(’GOOD’,&FBADSN))                                 -
                        PNODE
         ELSE
                    RUN TASK (PGM=DMNOTIFY,                                    -
                        PARM=(’FAIL’,&FBADSN))                                 -
                        PNODE
         EIF