Copy Non-managed Disk Data Set to a Non-managed Tape Data Set (VSE)

This Process copies a non-managed disk data set into a non-managed tape data set and runs on the same IBM® Connect:Direct® node using PNODE=SNODE processing. This Process uses symbolic values.

DSK2TAP1 PROC  PNODE=SC.VSE.NODE                                               -
               SNODE=SC.VSE.NODE                                               -
               &VSECUU=CART                                                    -
               &VSEDSN=TEST.TAPE.FILE
STEP0001 COPY  FROM ( PNODE                                                    -
                    DSN=USER01.TEST.NODYNAM1                                   -
                    DISP=(SHR)                                                 -
                    UNIT=DISK                                                  -
                    VOL=SER=DOSRES                                             -
                    DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=8000)              -
                    )                                                          -
               TO   ( SNODE                                                    -
                    DSN=&VSEDSN                                                -
                    UNIT=&VSECUU                                               -
                    LABEL=(1,SL)                                               -
                    DISP=(NEW,KEEP)                                            -
                    DCB=(DSORG=PS,RECFM=FB,LRECL=80,BLKSIZE=800)               -
                    )
STEP0002 IF    (STEP0001 EQ 0) THEN
                    RUN TASK (PGM=DMNOTIFY,                                    -
                        PARM=(’GOOD’,&VSEDSN))                                 -
                        PNODE
         ELSE
                    RUN TASK (PGM=DMNOTIFY,                                    -
                        PARM=(’FAIL’,&VSEDSN))                                 -
                        PNODE
         EIF