Some times While checking MSGW for object / member /
record locks ,I have seen it's locked by itself ...? How
it happen and what action we need to perform if job is
updating / writing a record....?
Answer Posted / rakesh roshan
This is true because either it must be updating the File or
Writing the record to the file and it places *EXCL Lock .
To handle such exception it depends upon the
Application ,if we want to handle such lock we can chain(N)
extender but then we need to see whether the File it is
writing or updating is having some constraints associated
or not , if yes
then we can handle the exception by using %Status of PSDS
DS and wait for few seconds and Retry it .
Is This Answer Correct ? | 2 Yes | 1 No |
Post New Answer View All Answers
how do I declare a minor?
how do I preserve and clean the array?
Program to read marks of 10 students for 4 subjects and compute and display total marks and status of each student in rpg
explain sflclr, sflend, sfldlt, and sflcsrrrn?
what is the difference between do while and do until?
What is a record lock error?
How to select highest score of each subject or how to select highest income of every month?
What is the difference between copybooks and subprocedures in as400?
can I touch the array during treatments?
Q:HI friends accually ihave one problem plesase let me know the alternate code of this code. Related field description of code: Add a field, CALvsPRD, "Calendar Day Starts Before/After Production Day" to the parameter set WRKORDER which accepts values 'A' or 'B' o B = Calendar Day Starts Before Production Day o A = Calendar Day Starts After Production Day o Any other value indicates the production and calendar dates are always the same. code: Automatic Execution Of *INZSR Subroutine /Z01 * retrieves WRKORDER field values. /Z01 * Calculate default Production Date and return it to caller. /Z01 * Production date defaults to system date /Z01 C Eval P@Pdate = %DATE() /Z01 * unless Calendar date starts Before PDN(production) date and /Z01 * system time is before PDN Start Time then /Z01 * PDN date is yesterday. /Z01 C If W@CALvsPRD = 'B' and /Z01 C %TIME() < %TIME (W@Strtime) /Z01 C Eval P@Pdate -= %Day(1) /Z01 * unless Calendar date starts After PDN date and /Z01 * system time is *GE PDN(production) Start Time then /Z01 * PDN date is tomorrow. /Z01 C ElseIf W@CALvsPRD = 'A' and W@Strtime > *Zero and /Z01 C %TIME() >= %TIME (W@STrtime) /Z01 C Eval P@Pdate += %Day(1) /Z01 C EndIf /Z01 C Eval *InLr = *On
When we have a file with Duplicate records and I want to read the unique record from the file. For example a file containing Emp Name as 'Ram' and there are 3 entries of it. So how to read a unique record from File?
How to create a login screen using a command instead of display file.... intention is to get a password field on a command..... how do you achieve this...
What is the difference between iter and do?
How to write record if no field or the field are different in physical file in rpgle ?
How many program bind in one module....