Copy a VSE Sublibrary Member from a BSAM Sublibrary to a Controlled Tape Data Set

This member copies a VSE sublibrary member from a BSAM sublibrary to a CA-DYNAM/D or CA-EPIC controlled tape data set on the same IBM® Connect:Direct® node using PNODE=SNODE processing.

All of the disk and tape data set names have been predefined to the appropriate system catalog. You do not have to specify output DCB parameters, these will be copied from the input library DCB parameters.

When you reference BSAM libraries in a IBM Connect:Direct Process, you must specify: DSORG, DSN, UNIT, and VOL=SER= parameters.

This Process was written with symbolic parameters to allow for a generic Process. You must modify to your standards.

LIB2DYT1 PROC  SNODE=SC.VSE.NODE                                               -
               PNODE=SC.VSE.NODE                                               -
               &MEMBER=LIB2DYT1                                                -
               &VSEDSN=USER01.TEST.TAPE1                                       -
               &VSELIB=CONN.DIRECT.LIBRARIES                                   -
               &VSESUB=USER01                                                  -
               &VSETYP=JCL                                                     -
               &VSEVOL=USER03
STEP0001 COPY  FROM ( SNODE                                                    -
                    DSN=&VSELIB                                                -
                    DISP=SHR                                                   -
                    VOL=SER=&VSEVOL                                            -
                    DCB=(DSORG=PS)                                             -
                    LIBR=(                                                     -
                      SELMEM=&MEMBER                                           -
                      SELSLIB=&VSESUB                                          -
                      SELTYPE=&VSETYP)                                         -
                    )                                                          -
               TO   ( PNODE                                                    -
                    DSN=&VSEDSN                                                -
                    UNIT=TNOASGN                                               -
                    LABEL=(1,SL)                                               -
                    DISP=(NEW,CATLG)                                           -
                    )
STEP0002 IF    (STEP0001 EQ 0) THEN
                    RUN TASK (PGM=DMNOTIFY,                                    -
                        PARM=(’GOOD’,&VSEDSN))                                 -
                        PNODE
         ELSE
                    RUN TASK (PGM=DMNOTIFY,                                    -
                        PARM=(’FAIL’,&VSEDSN))                                 -
                        PNODE
         EIF