Re: Error Indicator on Write

Would that have addressed his concerns?  Whould this have determined why the 
indicator 
came on, even though there was not a duplicate record?  I see that you've left 
off the 
indicator on your write.

Perhaps it might be better to do the following:
D filestatus                     5P 0                 
C                   write(e)  filename                
C                   If        %error                  
C                   eval      filestatus=%status      
C     'File status='dsply                   filestatus
C                   EndIf                             

After some experience you could then determine the cause of the error by the 
code.

Rob Berendt, CCP
Group Dekko Services, LLC
Dept 01.073
Rob Berendt, CCP
PO Box 2000
6928N-400E, Dock 108
Kendallville IN 46755
email:  rob@dekko.com





klauritzen@mail2.texnet.net on 03/05/99 02:49:36 PM
Please respond to MIDRANGE-L@midrange.com@Internet
To:     MIDRANGE-L@midrange.com@Internet
cc:      

Subject:        Re: Error Indicator on Write

Why don't you chain to file first before write and then if the indicator is
on the record does not exist so you can write to it.

  Key      Chain    Rec               99
               If            *in99
               Write    rec
               Endif


-----Original Message-----
From: Balaji.Rao@smed.com <Balaji.Rao@smed.com>
To: MIDRANGE-L@midrange.com <MIDRANGE-L@midrange.com>
Date: Friday, March 05, 1999 12:15 PM
Subject: Error Indicator on Write


>
>
>Hi EveryBody,
>I have a problem with Write Opcode. I have a Write to a Unique keyed file &
>I give LO Indicator to stop it from erring out when a duplicate record
>write occurs.
>I experienced that some times the Write writes a record(data wasn't
>duplicate)  to the file & still sets on the LO Indicator. Could somebody
>tell me Why??? Am I missing something???
>Your help will be greatly appreciated,
>Prakash.
>
>
>+---
>| This is the Midrange System Mailing List!
>| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
>| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
>| To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
>| Questions should be directed to the list owner/operator:
david@midrange.com
>+---
>

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---


+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---