Copy a PDS Member to Tape (z/OS to z/OS)

The following Process copies a PDS member to a tape device, specifying the PDS member as part of the DSN. Because you can only copy a single PDS member to tape in one copy step, DSORG=PS must be coded on the TO clause of the Connect:Direct® for z/OS® COPY statement.

COPYSEQ  PROCESS  PNODE=CHICAGO                   -
                  SNODE=MINNEAPOLIS
STEP01   COPY     FROM  (DSN=MY.PDS.FILE(MEMBER)  -
                         DISP=SHR PNODE)          -
                  TO    (DSN=TAPE.FILE            -
                         DISP=(NEW,CATLG)         -
                         UNIT=TAPE                -
                         LABEL=(,SL)              -
                         DCB=(DSORG=PS))

You can copy multiple PDS members by coding multiple COPY steps in a Process, and either append the additional PDS members to the first file or create separate tape files for each member. In the following example, MEMB is appended to TAPE.FILE.

COPYSEQ  PROCESS  PNODE=CHICAGO                  -
                  SNODE=MINNEAPOLIS
STEP01   COPY     FROM  (DSN=MY.PDS.FILE(MEMA)   -
                         DISP=SHR PNODE)         -
                  TO    (DSN=TAPE.FILE           -
                         DISP=(NEW,CATLG)        -
                         UNIT=TAPE               -
                         DCB=(DSORG=PS))
STEP02   COPY     FROM  (DSN=MY.PDS.FILE(MEMB)   -
                         DISP=SHR PNODE)         -
                  TO    (DSN=TAPE.FILE           -
                         DISP=(MOD,CATLG)        -
                         UNIT=TAPE               -
                         LABEL=(,SL)             -
                         DCB=(DSORG=PS))