RosettaCodeData/Task/Create-a-file/PL-I/create-a-file.pli

open file (output) title ('/OUTPUT.TXT,type(text),recsize(100)' );
close file (output);