Re: embedded sql record lock during update question

[Buck Calabro <kc2hiz@xxxxxxxxx>]

On 5/2/2013 9:40 AM, tim.dclinc@xxxxxxxxx wrote:
> my SQLRPGLE program does the following:
>
> dynstm = 'update file set dt = current date'
> exec sql execute immediate :dynstm;
>
> if the sqlcod is nether 0 or 100, an example of the joblog contains the
> following:
>
> Record 615374 in use by job 452249/XEDK/XXXB1.
> Row or object FILE inTESTFIL type *FILE in use.
>
> i'd like to retrieve the message(s) from the joblog and display it
> somewhere, but not sure how to do this.

RCVMSG MSGTYPE(*DIAG) should get you started.
  --buck