Another way I have seen is people sometimes use a data area with a flag
when screen open flag equal 1 and then all programs using this screen check
that flag in this dtaarea.

On Mon, Jan 28, 2019, 2:14 PM Jose Perez <joseenocperez.jp@xxxxxxxxx wrote:

The screen is a file obj. The same way you would do it with other kind of
file you would do it with your screen, check objlck

On Mon, Jan 28, 2019, 1:26 PM Gary Monnier <gmonnier@xxxxxxxxxx wrote:

Take a look at Retrieve Lock Information (QWCRLCKI) API -
https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_72/apis/qwcrlcki.htm

Gary Monnier


On Mon, Jan 28, 2019 at 10:13 AM Sam_L <lennon_s_j@xxxxxxxxxxx> wrote:


Off the top of my head...

Maybe ALCOBJ *EXCL and if it fails it is in use. (Don't forget to DLCOBJ
if it succeeds.)

Or maybe the APIs on object locking may be needed.

Sam

On 1/28/2019 12:38 PM, JRusling@xxxxxxxxxxx
wrote:
From pgmA i want to test if pgmB's display file pgmBD is in use.

In my copius notes i've saved throughout the years I cannot find
anything
about this.

Nor can i find anything searching rpg400-l or google.

Anyone have a technique or code for doing this?

Thanks for any help,

John
<br />
The information in this email is confidential and may be legally
privileged.
It is intended solely for the addressee. Access to this email by
anyone
else is
unauthorized. If you are not the intended recipient, any disclosure,
copying,
distribution or any action taken or omitted to be taken in reliance on
it, is
prohibited and may be unlawful.


--
This is the RPG programming on the IBM i (AS/400 and iSeries) (RPG400-L)
mailing list
To post a message email: RPG400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit:

https://urldefense.proofpoint.com/v2/url?u=https-3A__lists.midrange.com_mailman_listinfo_rpg400-2Dl&d=DwICAg&c=pApUd0AUA6FmKRo01iR_VA&r=r7w16KGEqE6t2tVCvCsz4_ztz5b0wbCtdhwrG0PzYq8&m=5Gi74K88_E_DkyVSUPrGwyXzeNnVYL-SCyz2Rb1lZfU&s=dgBTKdUrwRf6EjJH1ITFMUb2A3kxnw_IG34pRObVN14&e=
or email: RPG400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at

https://urldefense.proofpoint.com/v2/url?u=https-3A__archive.midrange.com_rpg400-2Dl&d=DwICAg&c=pApUd0AUA6FmKRo01iR_VA&r=r7w16KGEqE6t2tVCvCsz4_ztz5b0wbCtdhwrG0PzYq8&m=5Gi74K88_E_DkyVSUPrGwyXzeNnVYL-SCyz2Rb1lZfU&s=NkHwfDs1A2oA8hbwir-zAdTNPJkjYsGaXYPg6UFZA8A&e=
.

Please contact support@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link:

https://urldefense.proofpoint.com/v2/url?u=https-3A__amazon.midrange.com&d=DwICAg&c=pApUd0AUA6FmKRo01iR_VA&r=r7w16KGEqE6t2tVCvCsz4_ztz5b0wbCtdhwrG0PzYq8&m=5Gi74K88_E_DkyVSUPrGwyXzeNnVYL-SCyz2Rb1lZfU&s=MrMENGeLCzhdo6VCxOXHjj9GqOy2OgHA2hgTEz_0GmU&e=

--
This is the RPG programming on the IBM i (AS/400 and iSeries) (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@xxxxxxxxxxxx for any subscription related
questions.

Help support midrange.com by shopping at amazon.com with our affiliate
link: https://amazon.midrange.com



This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2019 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].