有没有办法在尝试复制到 Unix 服务器之前检查 MVS 中是否存在文件
Is there a way to check existence of file in MVS before attempting copy to Unix server
要使用 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
是 - 如果您是 运行 批量。只需在 C-D 步骤之前执行 IDCAMS 并打印数据集的第一行。如果未找到数据集，则会设置 non-zero return 代码。只需在 C-D 步骤的 EXEC 语句中检查一下。
（如果你用 Mainframe 标记了这个，我会在 2 周前看到这个。）
要使用 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
是 - 如果您是 运行 批量。只需在 C-D 步骤之前执行 IDCAMS 并打印数据集的第一行。如果未找到数据集，则会设置 non-zero return 代码。只需在 C-D 步骤的 EXEC 语句中检查一下。 （如果你用 Mainframe 标记了这个，我会在 2 周前看到这个。）