Copy a File from z/OS to VSE (DYNAM/T Tape Files)

This multi-step Process copies various sequential files from a z/OS node (the SNODE) to VSE DYNAM/T tape files at the PNODE. Different record formats are specified in the steps. Note that a TYPE file record is specified in STEP03. This record contains the DCB and UNIT information for this file. The TYPE record must be in the TYPE file at the destination (VSE node).

DYMTVSE  PROCESS     SNODE=CD.VSE.DALLAS  NOTIFY=%USER
STEP01   COPY  FROM (DSN=$ABC.FDATA                                 -
                     DISP=SHR)                                      -
               TO   (DSN=FDATA.DYMT.STEP01                          -
                     DCB=(DSORG=PS BLKSIZE=80 LRECL=80 RECFM=FB)    -
                     DISP=RPL                                       -
                     LABEL=(RETPD=0007)                             -
                     UNIT=TNOASGN                                   -
                     SNODE)
STEP02  COPY  FROM  (DSN=$ABC.SOURCE                                -
                     DISP=SHR)                                      -
              TO    (DSN=SOURCE.DYMT.STEP02                         -
                     DCB=(DSORG=PS BLKSIZE=3120 LRECL=80 RECFM=FB)  -
                     UNIT=TNOASGN                                   -
                     LABEL=(RETPD=0007)                             -
                     DISP=RPL                                       -
                     SNODE)
STEP03  COPY  FROM  (DSN=$ABC.REPORT                                -
                     DISP=SHR)                                      -
              TO    (DSN=REPORT.DYMT.STEP03                         -
                     TYPE=OS390DYMT                                 -
                     LABEL=(RETPD=0007)                             -
                     DISP=RPL                                       -
                     SNODE)
STEP04  COPY  FROM  (DSN=$ABC.UDATA	                                -
                     DISP=SHR)                                      -
              TO    (DSN=UDATA.DYMT.STEP04                          -
                     DCB=(DSORG=PS BLKSIZE=80 LRECL=0 RECFM=U)      -
                     UNIT=TNOASGN                                   -
                     DISP=RPL                                       -
                     LABEL=(RETPD=0007)                             -
                     SNODE)
STEP05  COPY  FROM  (DSN=$ABC.VDATA                                 -
                     DISP=SHR)                                      -
              TO    (DSN=VDATA.DYMT.STEP05                          -
                     DCB=(DSORG=PS BLKSIZE=88 LRECL=84 RECFM=V)     -
                     UNIT=TNOASGN                                   -
                     LABEL=(RETPD=0007)                             -
                     DISP=RPL  SNODE)