In this example, the PNODE resides on an OpenVMS system
while the SNODE is on a z/OS system. This is a two-step Process where
in step 1 a file (CSDQA1.TESTFILE.BENCH.M100) is being copied from
the SNODE to a file on the PNODE and being renamed test100.dat. In
step 2 the OpenVMS file, test100.dat, is copied to a new z/OS dataset
called CSDQA2.TEST.MB100. The SUB1 statement submits a Process that
resides on the z/OS system.
vms2mvsr process snode=Q1B.ZOS.V4600 SNODEID=(JWARD1,APR1951) -
pnodeid=(jward1,ward1949) pnode=q3a.alpha.v3400
*
* test copy, ckpt, comp and sub job
Step1 copy from (file=CSDQA1.TESTFILE.BENCH.M100 DISP=(OLD) snode) -
ckpt = 10M compress -
to ( pnode file=disk$data:[qaalpha.q3a]test100.dat DISP=(RPL) -
sysopts="nobinary")
Step2 copy from (file=disk$data:[qaalpha.q3a]test100.dat disp=(SHR)) -
ckpt = 20M compress -
to (file=CSDQA2.TEST.MB100 snode -
disp=(RPL,CATLG,DELETE) -
dcb=(RECFM=FB,LRECL=80,BLKSIZE=6160) -
space=(cyl,(20,10),rlse))
SUB1 SUBMIT DSN='CSDQA1.MANUAL.PROCESS(MVS2VMSR)' -
SUBNODE=SNODE CASE=YES
|