This Process copies a save file from i5/OS to UNIX.
* COPY SPECIFYING DCB INFORMATION *
copy01 process snode=os400
snodeid=(userid,passwrd)
step01A copy
from (file="URGRSSSV1/SAVEFILE1"
snode
sysopts="TYPE(OBJ)")
compress
to (file=/cd/usavefile1
sysopts=":datatype=binary:permiss=774:"
pnode
disp=new)
pend
|