0

要使用 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
4

1 回答 1

1

是的 - 如果您正在批量运行。只需在 CD 步骤之前执行 IDCAMS 并打印数据集的第一行。如果未找到数据集,则设置非零返回码。只需检查 CD 步骤的 EXEC 语句即可。(如果你用大型机标记了这个,我会在 2 周前看到这个。)

于 2020-08-05T16:43:42.633 回答