RE: Lock a record for testing

["Morgan, Paul" <Paul.Morgan@xxxxxxxxxxx>]

Albert,

Looks like you need as UPDATE lock.  SELECT grants a READ lock on the record.  If the file is journaled then a SQL UPDATE will grant an UPDATE lock. Use ROLLBACK (or exit out of STRSQL) to abandon the UPDATE and release the lock.

Paul

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Albert York
Sent: Wednesday, November 09, 2011 4:35 PM
To: Midrange Systems Technical Discussion
Subject: Re: Lock a record for testing

Thanks Paul but that doesn't work either.

Albert

On Wed, Nov 9, 2011 at 1:04 PM, Morgan, Paul <Paul.Morgan@xxxxxxxxxxx> wrote:
> Albert,
>
> Could you STRSQL COMMIT(*ALL) then SELECT the record to be locked?
>
> Paul
>
> -----Original Message-----
> From: midrange-l-bounces@xxxxxxxxxxxx [mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Albert York
> Sent: Wednesday, November 09, 2011 3:21 PM
> To: Midrange technical discussions
> Subject: Lock a record for testing
>
> I need to be able to lock a record in a file in order to do some testing.
>
> The system that I am testing on does not have an RPG compiler.
>
> Is there a way to lock a record without writing a program?
>
> Thanks,
>
> Albert
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.