[Date Prev][Date Next][Thread Prev][Thread Next]
[Author Index] [Date Index] [Thread Index]
[SQR-USERS Info] [SQRUG Home Page]

Re: Problem Opening a File in SQR



The problem now is that the successful open will
return a 0.

You want to check:

if #Open1 = 0

for success.

joan


>Hi,
>     Thankx a lot for the info. I changed it even then it is giving the
>same error.This is what i gave :
>
>!******************************************************
>     OPEN $d_file_Location as 1
>     FOR-READING
>     RECORD=10:fixed
>     STATUS=#Open1
>
>if #Open1 != 0
>
>!******************************************************
>
>Could u tell me what the problem now .
>
>bye,
>
>Srini.
>---------------------- Forwarded by Srinivasan Seetharaman/DSI/DBAsia/DeuBa
>on 08/27/98 08:49 PM ---------------------------
>
>
>peterb@sqribe.com on 08/27/98 08:49:24 PM
>
>Please respond to peterb@sqribe.com
>
>To:   Srinivasan Seetharaman/DSI/DBAsia/DeuBa
>cc:
>Subject:  Re: Problem Opening a File in SQR
>
>
>
>
>Seetharaman,
>Change: if #filestat
>To: if #Open1
>Peter
>On 27 Aug 98, at 20:30, Srinivasan S wrote:
>Date sent:          Thu, 27 Aug 1998 20:30:49 +0530
>Send reply to:      SQR-USERS@USA.NET
>From:               Srinivasan S <srinivasan.seetharaman@DB.COM>
>Subject:            Problem Opening a File in SQR
>Originally to:      SQR-USERS@usa.net
>To:                 Multiple recipients of list SQR-USERS
><SQR-USERS@list.iex.net>
>> 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.
>>