Re: (Kein Betreff)

[Suren K <suren7437@xxxxxxxxx>]

Hi Daniel/Stefan,

The query works for me. The system where I executed it has *QLIBLCKLVL =
'1'*.

Thanks a lot for your help—I really appreciate it!

Regards,
Suren

On Fri, Feb 14, 2025 at 9:00 AM <stefan@xxxxxxxxxx> wrote:

> Hi Daniel,
>
> That's true - unless system value QLIBLCKLVL = '0' - then I guess you are
> below the radar.
>
> Best regards
>
> Stefan
>
> --
> No trees were killed in the sending of this message, but a large number of
> electrons were terribly upset.
>
> Stefan Tageson
> +46 732 369934
> stefan@xxxxxxxxxx
>
> -----Original Message-----
> From: RPG400-L <rpg400-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of Daniel
> Gross
> Sent: Friday, February 14, 2025 2:36 PM
> To: rpg400-l@xxxxxxxxxxxxxxxxxx
> Subject: Re: (Kein Betreff)
>
> Hi Suren,
>
> of course, that info is included in the OBJECT_LOCK_INFO view:
>
>    select system_object_name, object_type, lock_state, lock_status,
> job_name
>    from qsys2.object_lock_info
>    where system_object_name = 'YOURLIB'
>    and object_type = '*LIB';
>
> A held *SHRRD lock on a library is a sign, that it's in the library List
> of that job.
>
> HTH and kind regards,
> Daniel
>
>
> --
> This is the RPG programming on IBM i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: https://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at https://archive.midrange.com/rpg400-l.
>
> Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related
> questions.