Copy a z/OS PDS Member to a VSE VSAM Sublibrary Member

This Process copies a z/OS PDS library member into a VSE VSAM sublibrary member. This sample Process is coded with symbolic parameters to allow you to use a generic Process to move any type of members (Dump, OBJ, Phase, Source, Processes, JCL). Use this Process when you are moving files from z/OS to VSE with the Process running on VSE.

For VSAM libraries you must specify the DSN and DSORG parameters on the FROM statement. You can optionally specify the catalog parameter if needed.

ZOS2LIB2 PROC    SNODE=SC.OS390.NODE                                           -
                 PNODE=SC.VSE.NODE                                             -
                 &MEMBER=,                                                     -
                 &OS390PDS=USER01.TEST.JCLLIB                                  -
                 %VSELIB=CONN.DIRECT.LIB1                                      -
                 &VSESUB=RXUSER01                                              -
                 &VSETYP=JCL
STEP0001 COPY  FROM ( SNODE                                                    -
                    DSN=&OS390PDS                                              -
                    DISP=SHR                                                   -
                    SELECT=(&MEMBER)                                           -
                    )                                                          -
               TO   ( PNODE                                                    -
                    DSN=&VSELIB                                                -
                    DISP=SHR                                                   -
                    DCB=(DSORG=VSAM)                                           -
                    LIBR=(REPLACE=YES                                          -
                          SLIBDISP=SHR                                         -
                          SUBLIB=&VSESUB                                       -
                          TYPE=&VSETYP)                                        -
                    )