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 コマンドへの入力として渡されます。