Re: Problem Opening a File in SQR

[Lorene Hales <Lorene.Hales@ORST.EDU>]

At a quick glance, it appears that you haven't identified the record
correctly when you read it:

   read 1 into $emplid:10 $name:40
   so its not picking up the name segment to print

Also, you might want to use a 'while' statement to perform repeating reads:

   while 1 = 1
   let $emplid = ' '  (reinitialize for each read, in case the data isn't in
the record being read)
   let $name = ' '

   read 1 into $emplid:10 $name:40

   if #end-file = 1
      break
   end-if

end-while


Works for me,
Lorene
> -----Original Message-----
> From: Srinivasan S [SMTP:srinivasan.seetharaman@DB.COM]
> Sent: Thursday, August 27, 1998 8:01 AM
> To:   Multiple recipients of list SQR-USERS
> Subject:      Problem Opening a File in SQR
>
> Hi all,
>      I have a text file , and i'm trying to open the file in SQR, but it
> is
> always failing.The SQR statement is as follows :
> !*******************************************************
>  Let $d_file_location = 'c:\tst.txt'
>      OPEN $d_file_Location as 1
>      FOR-READING
>      RECORD=10:fixed
>      STATUS=#Open1
> if #filestat != 0
>  read 1 into $emplid:10 status=#read_stat
>  if #read_stat != 0
>   print $emplid (+1,1)
>   print $name (+1,1)
>   print  'No Error Reading ' (+1,1)
>  else
>   print 'Error Reading ' (+1,1)
>  end-if
> else
>  print 'Error Opening' (+1,1)
> end-if
>
> !*******************************************************
> The above code will always print 'Error Opening' . The text file is in the
> specified path. And this is what it contains :
>
> 0000000001
> 0000000002
> 0000000003
>
> Could anyone tell me where i went wrong.
>
> Thankx in Advance,
>
> Srini.