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