Re: ILE RPG and Locked Records

[David Dunfield <ddunfie@xxxxxxxxxxxx>]

ave tried both on V4R3 and V4R4. Both work the same (they don't work). If you
specify the (e) the lock record never resolves back to the program.

Chris Bipes wrote:

> Try using:
> Key     Chain(E)        RcdFmt
>         Select
>         When            %found
>
>         When            %error
>
>         Other
>
>         EndSl
>
> instead of the indicator.  Or you must use both the error and not found
> indicators.
>
> Christopher K. Bipes     mailto:ChrisB@Cross-Check.com
> Sr. Programmer/Analyst   mailto:Chris_Bipes@Yahoo.com
> CrossCheck, Inc.         http://www.cross-check.com
> 6119 State Farm Drive    Phone: 707 586-0551 x 1102
> Rohnert Park CA  94928 Fax: 707 586-1884
>
> If consistency is the hobgoblin of little minds, only geniuses work here.
> Karen Herbelin - Readers Digest 3/2000
>
> -----Original Message-----
> From: David Dunfield [mailto:ddunfie@net-link.net]
> Sent: Thursday, May 18, 2000 9:43 AM
> To: RPG400-L (E-mail)
> Subject: ILE RPG and Locked Records
>
> I am attempting to handle locked records within an RPGLE program. I have
> attempted to place an error indicator in position 73-75 of the read
> statement to be used if a record lock cannot be resolved. This feature
> worked well in RPGIII. It appears that if I do not place an indicator in
> 73-74 a lock record returns an error to the program, however if I place and
> indicator is 73-74, no error is returned to the program and the indicator is
> never set. What am I doing wrong?
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
> david@midrange.com
> +---
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---

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