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)
|