select i-o-file
assign to "| cmd /c sort"
organization is line sequential.
fd i-o-file.
01 i-o-file-record pic x(20).
procedure division.
open i-o i-o-file
write i-o-file-record from "Hello world"
write i-o-file-record from all "A"
write i-o-file-record from all "Z"
write i-o-file-record from x"1a"
perform until exit
read i-o-file
at end
exit perform
end-read
display i-o-file-record
end-perform
close i-o-file
この例では、プログラムは sort プロセスを起動して、3 行目までとその後ろのファイルの終わりマーカーを標準出力に渡します。その後に、sort プロセスの標準出力から 3 行すべてを読み込みます。