Copy a Non-managed Disk Data Set into Another Non-managed CKD Disk Data Set (VSE)

Use this Process to copy a non-managed disk data set into another non-managed disk data set residing on a CKD device. This Process runs on the same IBM® Connect:Direct® node using PNODE=SNODE processing and uses symbolic values.

DSK2DSK1 PROC  PNODE=SC.VSE.NODE                                     -
               SNODE=SC.VSE.NODE                                     -
               &VSEDSN=GGREG1.TEST.NODYNAM1
STEP0001 COPY  FROM ( PNODE                                          -
                     DSN=LRR.LREC480.ADDX                            -
                     DISP=(SHR)                                      -
                     DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=480)    -
                     VOL=SER=USER01                                  -
                     )                                               -
               TO   ( SNODE                                          -
                    DSN=&VSEDSN                                      -
                    DISP=(RPL)                                       -
                    VOL=SER=USER02                                   -
                    SPACE=(6055,(25))                                -
                    DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=13600)   -
                    )
STEP0002 IF    (STEP0001 EQ 0) THEN
                    RUN TASK (PGM=DMNOTIFY,                          -
                        PARM=(’GOOD’,&VSEDSN))                       -
                        PNODE
         ELSE
                    RUN TASK (PGM=DMNOTIFY,                          -
                        PARM=(’FAIL’,&VSEDSN))                       -
                        PNODE
         EIF