Re: Why does the DELETE not work?

["Robert E. Burger" <rburger@xxxxxxxx>]

Finucci,

As a self professed COBOL newbie, I was not "aware" or how the AS/400 handled 
the DISPLAY statement, since everything I've seen
uses DSPF's.  Of course I should have thought of writing out the FILE-STATUS in 
the output at a minimum.  When I added this
code, I got a 23 at each delete.  That of course caused me to scratch my head.  
See my reply to Peter Lunde for the rest of the
answer!

Thanks very much...  Since I have not yet learned how to use the debugger, you 
can bet I'll be using the DISPLAY method as a
first resort!

Later,

Robert

----- Original Message -----
From: Finucci Domenico <finucci@Fiditalia.it>
To: <COBOL400-L@midrange.com>
Sent: Wednesday, January 26, 2000 8:38 AM
Subject: R: Why does the DELETE not work?


> Just a few things: have you the authority for delete record from CSLABL ?
>
> In order to get a little bit more information try this:
> ** code this lines after each I-O statement:
> IF FILE-STATUS NOT EQUAL '00' AND NOT EQUAL '10'
> DISPLAY "File-status error " FILE-STATUS
> END-IF
> Let me know what happens.
> regards.
> Domenico Finucci
> P.S. Don't code two times READ and READ NEXT:   READ NEXT combined with
> ACCESS DYNAMIC works fine.
> +---
> | This is the COBOL/400 Mailing List!
> | To submit a new message, send your mail to COBOL400-L@midrange.com.
> | To subscribe to this list send email to COBOL400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to COBOL400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---END
>

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