Can I Do this – Help Badly Needed.

[austin.obyrne@hotmail.com]

  

I want to write to two external files in turn from within the same program:

This is the first prompt,

  Ada.Text_IO.Put
  (Item => " Please enter the name of the unsorted file >");
  Ada.Text_IO.New_Line(2);
  Ada.Text_IO.Put
  (Item => " Call it UnSortedNumberFile_n.dat - for whatever 'n' may be >");
  Ada.Text_IO.New_Line(2);
  Ada.Text_IO.Put(Item => " ");
  Ada.Text_IO.Get_Line(Item => OutFileName,Last => OutNameLength);
  Ada.Text_IO.New_Line(2);
  Ada.Text_IO.Create(File => OutData,
  Mode => Ada.Text_IO.Out_File,Name => OutFileName(1 .. OutNameLength));

 Name given: UnsortedNumbers_n.dat 

Later on after some more computation in the same program I want to write out to another external file of a different name and I use the same prompt again that is only only slightly changed in the names.

Second prompt.

  Ada.Text_IO.Put
  (Item => " Please enter the name of the unsorted file >");
  Ada.Text_IO.New_Line(2);
  Ada.Text_IO.Put
  (Item => " Call it SortedNumberFile_n.dat - for whatever 'n' may be >");
  Ada.Text_IO.New_Line(2);
  Ada.Text_IO.Put(Item => " ");
  Ada.Text_IO.Get_Line(Item => OutFileName,Last => OutNameLength);
  Ada.Text_IO.New_Line(2);
  Ada.Text_IO.Create(File => OutData,
  Mode => Ada.Text_IO.Out_File,Name => OutFileName(1 .. OutNameLength)); 

Name given: SortedNumbers_n.dat 

Is this allowable?.

Your help would be greatly appreciated

-adacrypt