From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.0 required=5.0 tests=BAYES_00,FORGED_HOTMAIL_RCVD2,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
X-Google-Thread: 103376,69101b88c05a1b3f,start
X-Google-NewGroupId: yes
X-Google-Attributes: gida07f3367d7,domainid0,public,usenet
X-Google-Language: ENGLISH,ASCII-7-bit
Received: by 10.68.220.230 with SMTP id pz6mr6153416pbc.3.1339765573216;
        Fri, 15 Jun 2012 06:06:13 -0700 (PDT)
Path: 
 l9ni53641pbj.0!nntp.google.com!news2.google.com!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
From: austin.obyrne@hotmail.com
Newsgroups: comp.lang.ada
Subject: =?windows-1252?Q?Can_I_Do_this_=96_Help_Badly_Needed=2E?=
Date: Fri, 15 Jun 2012 06:06:12 -0700 (PDT)
Organization: http://groups.google.com
Message-ID: <70866b0e-472c-4998-b081-51a15fc675dc@googlegroups.com>
NNTP-Posting-Host: 109.148.165.193
Mime-Version: 1.0
X-Trace: posting.google.com 1339765573 5221 127.0.0.1 (15 Jun 2012 13:06:13
 GMT)
X-Complaints-To: groups-abuse@google.com
NNTP-Posting-Date: Fri, 15 Jun 2012 13:06:13 +0000 (UTC)
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=109.148.165.193;
 posting-account=pmkN8QoAAAAtIhXRUfydb0SCISnwaeyg
User-Agent: G2/1.0
Content-Type: text/plain; charset=ISO-8859-1
Date: 2012-06-15T06:06:12-07:00
List-Id: <comp.lang.ada>

  

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