要使用 Connect Direct 从 MVS 大型机复制到 Unix 服务器的文件。下面是运行良好的示例脚本。现在在复制文件之前有没有办法验证文件在 MVS 中是否存在?
submit FILE_COPY process
SNODE=${SENDING_NODE} SNODEID=(${USERNAME},${PASSWORD})
&INDSN="$INPUT_FILE"
&OUTDSN="$OUTPUT_DIR$OUTPUT_FILE"
COPYSTEP COPY FROM (FILE="&INDSN")
TO
(FILE="&OUTDSN"
UNIT=SYSDA
SYSOPTS=":datatype=text:"
DISP=RPL
SPACE=(TRK,(100,50),RLSE)
DCB=(RECFM=FBA,LRECL=216,BLKSIZE=0)
pnode)
PEND;
EOF