標準入力へのファイルの接続例

 select output-file
     assign to external evar
     organization is line sequential.
  ...
 fd output-file
    record contains 80 characters.
 01 output-file-record pic x(80).
  ...
 procedure division.
     open output output-file.
     write output-file-record from "c:\dir\file".
   ...
     close output-file.
     stop run.

上記コードを実行する前に、次のコマンドを発行したとします。

set evar=">cmd /c print"

その場合は、output-fileへの WRITE 操作はそれぞれprintコマンドへの入力として渡されます。