1--
2-- Copyright(C) 1998
3-- All Rights Reserved. Salih Yurttas, ZCubes, BitsOfCode Software Systems, Inc..
4--
5-- Permission to use, copy, modify, and distribute this
6-- software and its documentation for EDUCATIONAL purposes
7-- and without fee is hereby granted provided that this
8-- copyright notice appears in all copies.
9--
10
11-- date : January 1, 1998.
12-- author : Salih Yurttas.
13
14-- purpose : record oriented I/O
15-- using "Sequential_IO" package.
16
17-- sequential_file_processing_00.adb
18
19
20with Sequential_File_Processing_P;
21use Sequential_File_Processing_P;
22
23procedure Sequential_File_Processing_00 is
24
25 File_Names : List_File_Names;
26 Number_of_Files : Integer;
27
28begin
29
30 Get_File_Names(File_Names,
31 Number_of_Files);
32
33 Create_Sequential_File(File_Names(1),
34 File_Names(2));
35
36 View_Sequential_File(File_Names(2),
37 File_Names(3));
38
39end Sequential_File_Processing_00;