Copy a BSAM VSE Sublibrary to a New z/OS PDS

This Process sends an entire BSAM VSE sublibrary into a new z/OS partitioned data set. The Process runs on the PNODE (VSE) and sends the data to the SNODE (z/OS). This Process uses symbolic values.

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

You must specify all of the parameters in this sample on the FROM side to Process BSAM libraries.

LIB2ZOS4 PROC  SNODE=SC.OS390.NODE                                             -
               PNODE=SC.VSE.NODE                                               -
               &OS390LIB=USER01.TEST.VSELIB                                    -
               &VSELIB=CONN.DIRECT.LIBRARIES                                   -
               &VSESUB=PROCESS                                                 -
               &VSETYP=N
STEP0001 COPY  FROM ( PNODE                                                    -
                    DSN=&VSELIB                                                -
                    DISP=SHR                                                   -
                    VOL=SER=USER03                                             -
                    DCB=(DSORG=PS)                                             -
                    LIBR=(SELSLIB=&VSESUB                                      -
                          SELTYPE=&VSETYP                                      -
                          REPLACE=YES)                                         -
                    )                                                          -
               TO   ( SNODE                                                    -
                    DSN=&OS390LIB                                              -
                    DISP=RPL                                                   -
                    UNIT=SYSDA                                                 -
                    SPACE=(CYL,(5,1,100),RLSE)                                 -
                    DCB=(DSORG=PO,RECFM=FB,LRECL=80,BLKSIZE=27920)             -
                    )                                                          -
                    COMPRESS
STEP0002 IF    (STEP0001 EQ 0) THEN
                    RUN TASK (PGM=DMNOTIFY,                                    -
                        PARM=(’GOOD’,&OS390LIB))                               -
                        PNODE
         ELSE
                    RUN TASK (PGM=DMNOTIFY,                                    -
                        PARM=(’FAIL’,&OS390LIB))                               -
                        PNODE
         EIF