Re: Detecting Record Lock Conditions

["Pete Clifford \(ariadne software\)" <pete@xxxxxxxxxxxxxxxxxxxxx>]

Hi Frank.

I'm not convinced there's much point having the wait in there at all since
the read will wait the amount of time specified by the file's WAITRCD
attribute before returning an error condition in any case. If the record
becomes available during this time, the read will succeed and return
immediately. Your way, you always have to wait n seconds whether the record
becomes available while you're waiting or not.

If you do decide to wait a while, consider using "sleep":
http://publib.boulder.ibm.com/iseries/v5r2/ic2924/info/apis/sigsleep.htm.
Perhaps neater than calling DLYJOB via QCMDEXC?

Pete
----- Original Message ----- 
From: <fkany@xxxxxxxxxxxxxxxxxx>
To: <RPG400-L@xxxxxxxxxxxx>
Sent: Monday, September 29, 2003 10:03 PM
Subject: Detecting Record Lock Conditions


>
> I'm trying to have a program detect if a record is locked.  If the program
> does find that the record it's trying to read is locked, it will wait 10
> seconds before retrying to  read the same record from the file.
>
> Will placing the ITER operation accomplish this task in the code below?
> Should it wait 15 seconds then SETLL on the record it was trying to read
> then ITER?
>
> Is there an easier alternative for checking for locked records?
>
> Thanks,
>
> Frank
>
>
> =================================================
> F Customer  UF    E           DISK
>
> D RecordLocked    C           CONST( 01218 )
>       *
>       /FREE
>
>            KeyFld1 = %DEC(Field1:3:0);
>            KeyFld2 = %DEC(Field2:7:0);
>
>            // Read CUSTOMER File
>            SETLL Custkey Customer;
>            DOU %EOF(Customer);
>            READ(E) Customer;
>
>            // Record Locked
>            IF %ERROR;
>
>                 // Record IS Locked
>       IF %STATUS = RecordLocked;
>                 *WAIT 15 SECONDS
>       ITER;
>                 ENDIF;
>
>            ENDIF;
>
>            ENDDO;
>
> ===================================================
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>