Accessing Files Programmer's Guide (32650-90885)

Appendix A 229
Pascal/XL Program Examples
Program Example A-5
{*************************************************************************}
{ MAIN PROGRAM }
{*************************************************************************}
begin
filename := '&$stdlist&';
open_file (std_list, filename, permanent,write,0,0); { STEP 1}
filename := '&$stdin&';
open_file (std_in, filename, permanent,read,0,0); { STEP 1}
filename := '&dataone&';
open_file (disk_file, filename, permanent,update,shared,locking);{STEP 1}
update_file(disk_file); { STEP 2}
close_disk_file(disk_file, save); { STEP 3}
end. { end main program }