Re: Problem Opening a File in SQR -Reply

[Mark Kraft <kraftm@GUNET.GEORGETOWN.EDU>]

the way that I have always done it would be  as follows, seems to work
well.  you can substitue reading for writing, works the same.  make sure
that the length of the file that you are reading is corrently stated as
well(for-reading=#length of flat file being read)

!-----------------------------------------------------------------------!
! Set Up Output File                                                    !
!-----------------------------------------------------------------------!

   let $filename = 'REQAUTO.txt'
!   let $file = '{FILEPREFIX}' || $filename   ! Procedure Path
   let $file = 'C:\USER\SQR\'     || $filename   ! testing path
   open $file as {out} for-writing record=4 status = #stat_read
   if #stat_read !=0
      display ' '
      display '*** Error on Output File Open -' noline
      display $file noline
      display ' ***'
      stop
   else
      display ' '
      display 'Output File is ' noline
      display $file
   end-if

Mark Kraft
kraftm@gunet.georetown.edu