IT Answers » RPG Record Locks

Strange problem with locking of records

Varun123 — Mon, 29 Aug 2011 14:45:33 +0000

Hi All,

My program reads many records one by one, and will update the OLD KEY with NEW KEY in more than 100 files. If any run-time error/record
locking the pgm will roll back the partial updates and continue with the
next record.

So, example take 5 records… in which I locked the 3rd record in
another session. So, I’m expecting the rest 4 should go through and the
3rd will be rolledback.

Main Batch File
===========
Acc1 AAA . . ..

Acc2 BBB … ..
Acc3 CCC .. .. .
Acc4 DDD .. .
Acc5 EEE ….

#File1 for update
===========
Acc3 A1 B1…
Acc3 A2 B2….
Acc3 A3 B3….

This file is not having any records belong to Acc1, Acc2, Acc4 & Acc5.

My Program
OLD_KEY SETLL    #File1
OLD_KEY READE   #File1
LOOP
UPDATE NEW_KEY in #File1
OLD_KEY READE   #File1
ENDLOOP

When the program is executing first record Acc1 (and there is no such related record in #File1)
When it encounters the READ/READE of #File1 >> *PSSR will catch it and error will be “RECORD 77888 IN USE BY SESSION”
I wonder because, RRN 77888 record belongs to Acc3 but not Acc1 …..

Summary:
I really locked the RRN 12345, and my program is executing some other record… and the *PSSR catches the error as “RECORD 12345 IS IN USE BY XXXXXX”…. this is happening when I use SETLL + READ/READE… Instead if I used CHAIN as a work around.. and its working fine” but for me I want to know why READ/READE is not supporting, as I cannot modify the code for many programs….!

Work around Code is:
OLD_KEY CHAIN #File1
LOOP

UPDATE NEW_KEY in #File1
OLD_KEY CHAIN #File1

ENDLOOP

(CHAIN LOOP will not go to infinite loop, as the OLD_KEY will be updated to NEW_KEY for every read)

For record locking, I created a dummy pgm to lock it, and also using SQL locking some times…. This problem I have seen in both types of test locking….

I need the reason of this strange behaviour, and also better solution rather than modifying many lines of code.

Record Locking in SQLRPGLE

Varun123 — Thu, 23 Jun 2011 12:35:07 +0000

Hi All

I have a SQLILE pgm which updates files through SQL statements.
How to get the user id/job number which is locking the PF record through the program… if any data structure supports, whats the position of it…

-Varun

Record locking in iSeries

Kar — Tue, 14 Jun 2011 07:38:17 +0000

My program takes the input as file, and process those records one by one. Here I would like to add the commitment control, if any one record fails then roll back and continue with the next record. To test this, I need to lock the record in another session and to run the program to check the ROLBK. How to lock the record? I tried with UPDDTA and its not locking the record. So now I have written a record locking program to lock the required record when testing. Is there any other way to lock the specific record?

AS400 – File

rajeshece — Tue, 22 Feb 2011 14:05:10 +0000

I wanted to do

Chain Kfld File1

If Found And Fld1 = ‘Y’

Update File

Else

Perform Next Chain Operation

Endif

Here I wanted to perform the Chain without Locking the Record. I wanted to perform Update Operation without Performing Read/Chain again if the Condition is True. How to achieve this?

When will AS/400 record lock?

SARKNS — Sat, 25 Sep 2010 08:58:15 +0000

Hi Guru’s , I am new to RPG . I would like to know when record will be locked ? Example-1 : PGMA, using a PF1(Physical file) in input mode , PGMB using a logical file based on PF1, in input mode. In this case record will be locked or not (using read or chain or setll operation codes) ? If I will use pf1 in PGMA as inupt mode and in PGMB as update mode , does record will be locked or not ? I have seen when both the files in both the programs using file type in update modere record has been locked .

Records lock error

Tbartlett2010 — Tue, 14 Sep 2010 10:33:48 +0000

I keep getting a records lock error even after I change the setting to no records lock.

Record Locking

RonKoontz — Thu, 12 Nov 2009 18:59:13 +0000

I’m using embeded SQL to delete (clear) all records in a file. I do not want more than 1 person in this file. So whe the user executes the program it runs the SQL and clears the records in the file. Now I want to do some file/record checking logic to see if the file is locked to another job. THen snd user a message saying its not available. ( I know how do do that part) How can I do check that the file is locked in RPGLE. [strong][em]I know I can do it in CL and I don’t want to do it that way.[/em][/strong] Any ideas..

Thanks

Difference between Record and File locks

GTank — Mon, 13 Apr 2009 16:48:01 +0000

New Discussion Post by TomLiotta