Yurttas/PL/IL/Ada-95/F/05/01/00/sequential file processing 00.adb

 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;