RE: [EXTERNAL] Re: How can i test, from rpg, if a display file is in use?

Hmmmmm
I'm trying to work out how using a data area will tell you when he display file is NOT being used
For example - 28 separate users sign on and use this display file at different times - but all 28 end up using the display file at once
Then - they come out of the display file - all at once - or one after the other
How do you know when no one is using the display file via a data area

Alan Shore
E-mail : ASHORE@xxxxxxxx
Phone [O] : (631) 200-5019
Phone [C] : (631) 880-8640
'If you're going through hell, keep going.'
Winston Churchill

-----Original Message-----
From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxxxxxxxx] On Behalf Of Jose Perez
Sent: Monday, January 28, 2019 2:30 PM
To: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxxxxxxxx>
Cc: RPG programming on the IBM i (AS/400 and iSeries) <rpg400-l@xxxxxxxxxxxx>
Subject: [EXTERNAL] Re: How can i test, from rpg, if a display file is in use?

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/qwcrlck
i.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.c
om_mailman_listinfo_rpg400-2Dl&d=DwICAg&c=pApUd0AUA6FmKRo01iR_VA&r=r7
w16KGEqE6t2tVCvCsz4_ztz5b0wbCtdhwrG0PzYq8&m=5Gi74K88_E_DkyVSUPrGwyXze
NnVYL-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=r7w16KGEqE6t2tVCv
Csz4_ztz5b0wbCtdhwrG0PzYq8&m=5Gi74K88_E_DkyVSUPrGwyXzeNnVYL-SCyz2Rb1l
ZfU&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_ztz5b0w
bCtdhwrG0PzYq8&m=5Gi74K88_E_DkyVSUPrGwyXzeNnVYL-SCyz2Rb1lZfU&s=MrMENG
eLCzhdo6VCxOXHjj9GqOy2OgHA2hgTEz_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 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