Copy a VSE Librarian BSAM Member to a Preallocated z/OS PDS Member

This Process copies a VSE Librarian BSAM member into a preallocated z/OS partitioned data set (PDS) member. The disk data set has already been defined to the appropriate system catalog. This Process was written with symbolics for substitution.

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

LIB2ZOS1 PROC  PNODE=SC.VSE.NODE                                               -
               SNODE=SC.OS390.NODE                                             -
               &OS390LIB=USER01.TEST.VSEPROC                                   -
               &VSELIB=CONN.DIRECT.LIBRARIES                                   -
               &VSEMEM=,                                                       -
               &VSESUB=USER01                                                  -
               &VSETYP=N                                                       -
               &VSEVOL=USER03
STEP0001 COPY  FROM ( PNODE                                                    -
                    DSN=&VSELIB                                                -
                    DISP=SHR                                                   -
                    UNIT=DISK                                                  -
                    DCB=(DSORG=PS)                                             -
                    VOL=SER=&VSEVOL                                            -
                    LIBR=(SELMEM=&VSEMEM                                       -
                          SELSLIB=&VSESUB                                      -
                          SELTYPE=&VSETYP)                                     -
                    )                                                          -
               TO   ( SNODE                                                    -
                    DSN=&OS390LIB                                              -
                    DISP=SHR                                                   -
                    )
STEP0002 IF    (STEP0001 EQ 0) THEN
                    RUN TASK (PGM=DMNOTIFY,                                    -
                        PARM=(’GOOD’,&OS390LIB))                               -
                        PNODE
         ELSE
                    RUN TASK (PGM=DMNOTIFY,                                    -
                        PARM=(’FAIL’,&OS390LIB))                               -
                        PNODE
        EIF