Re: Imbedded SQL record lock issue

[CRPence <CRPbottle@xxxxxxxxx>]

Koester, Michael wrote:
> A co-worker is trying to troubleshoot a record-lock
> issue that he thinks may be coming from an imbedded
> free-form SQL "Select Into" statement. This is
> plain-vanilla stuff, with no SQL cursor involved.
> There appears to be a lock held on the LF he has
> in the From clause.
>
> We're running V4R5.
>
> There mainline begins with... 
>
>        exec SQL
>           SET OPTION  closqlcsr = *endmod,
>                       commit = *none,
>                       datfmt = *iso     ;
>
> The following SQL select occurs in an inline subprocedure.
>
>          exec sql
>            select sum(epfnwp)
>            into :tamt
>            from achonll1
>            where epfbex = :pi_mex
>            and   epfbln = :pi_mln
>            and   epfbrs = :pi_mrs
>            with nc                 ;
>
> Is there something about SQL over logical views (DDS-defined)
> that is causing this to lock, or is there something else we
> need to know?

  A lock on a *FILE is not the same as a record lock.  Both types 
of locks are noted separately, as being a problem.  Best to clarify 
which it is that is of concern, or if both; if a record lock, then 
what record(s) and what type of lock is held.  Refer to output from 
both of:

   WRKOBJLCK TheLib/TheFile *FILE MBR(*ALL)
   DSPRCDLCK TheLib/TheFile

Regards, Chuck