Re: Unlocking a file

["Pete Clifford" <Pete@xxxxxxxxxxxxxxxxxx>]

I think maybe you need to look at the CLOSQLCSR parameter of the CRTSQLRPGI
command. It sounds to me as if your service program is probably running in
the caller's activation group, and the SQL RPG module was compiled with
CLOSQLCSR(*ENDACTGRP), which, I think, means the file will remain open (and
therefore locked) until the activation group ends.

Recompiling with CLOSQLCSR(*ENDMOD) will probably cause the file to be
closed and unlocked when you return from the service program module to the
caller.

Let us know if this does the trick.

Pete

<rob@xxxxxxxxx> wrote in message
news:OFC4BBACD7.6B0AC049-ON05256D11.007495E7-05256D11.0074CF14@xxxxxxxxxx
> After executing the following the file is locked.  How do I unlock the
> file, from within the RPG?  Service program.  No suggestions of the
> following please:
> - seton LR
> - RCLACTGRP
> - ENDJOB
>
>      C/EXEC SQL
>      C+  Select data into :NameWork from zpal01
>      C+    where pkey = 'COMPANY   '
>      C/END-EXEC
>      C                   If        sqlcod=0
>      C                   Return    NameWork
>      C                   Else
>      C                   Eval      Cmd='SNDPPGMMSG MSGID(CPF9898) '+
>      C                                 'MSGDTA(' + apostrophe +
>      C                                 'Attempt to access ZPAL01 for ' +
>      C                                 'COMPANY record resulted in an ' +
>      C                                 'SQL code of ' +
>      C                                 %trim(%editc(sqlcod:'Z')) +
>      C                                 apostrophe +
>      C                                 ') MSGTYPE(*ESCAPE) ' +
>      C                                 'MSGF(QCPFMSG)'
>      C                   Eval      Status=ExecCmd(Cmd)
>      C                   Return    *blanks
>      C                   EndIf
>
> Isolation clause?
> For read only clause?
>
>
> Rob Berendt
> --
> "They that can give up essential liberty to obtain a little temporary
> safety deserve neither liberty nor safety."
> Benjamin Franklin
> _______________________________________________
> 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.cgi/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.
>
>