This works at V7R2 .... it isn't the latest but it works. Yes, I know but it's not my decision, I can only strongly make the case to upgrade so many times.
Examples:
SELECT * FROM TABLE(QSYS2.ACTIVE_JOB_INFO(SUBSYSTEM_LIST_FILTER => 'MONITOR')) A Or SELECT * FROM TABLE(QSYS2.ACTIVE_JOB_INFO(SUBSYSTEM_LIST_FILTER => 'QHTTPSVR')) A
Obviously just change 'MONITOR' or QHTTPSVR to what is needed.
To Mark W's point in message 4, WRKSBS *print should give you a simple print out of the subsystems that are active. WRKSBS * writes the active SBS's to the display.
Very Respectfully,
Michael Mayer
IBM I on Power System Admin.
IT Operations.
The Florida Bar
651 E. Jefferson St
Tallahassee, Florida 32399-2300
mmayer@xxxxxxxxxxxxxx
https://www.floridabar.org
Office: 850.561.5761
Cell: 518.641.8906
Today's Topics:
1. Is there a simple way for a CL program to determine whether a
given subsystem is active? (James H. H. Lampert)
2. RE: Is there a simple way for a CL program to determine
whether a given subsystem is active? (Rob Berendt)
3. Re: Is there a simple way for a CL program to determine
whether a given subsystem is active? (Mark Waterbury)
4. Re: Is there a simple way for a CL program to determine
whether a given subsystem is active? (Mark Waterbury)
----------------------------------------------------------------------
message: 1
date: Tue, 2 Mar 2021 08:55:54 -0800
from: "James H. H. Lampert" <jamesl@xxxxxxxxxxxxxxxxx>
subject: Is there a simple way for a CL program to determine whether a
given subsystem is active?
I'll admit that I haven't done more than a cursory look at the CMDJOB and CMDSBS menus (and even that only on our V4R4 box, even though the box I'm asking this for is on V7), but short of an API call, can a CL program easily check to see if a given subsystem is active?
--
JHHL
------------------------------
message: 2
date: Tue, 2 Mar 2021 17:04:10 +0000
from: Rob Berendt <rob@xxxxxxxxx>
subject: RE: Is there a simple way for a CL program to determine
whether a given subsystem is active?
How tied are you to CL?
select subsystem_description_library, subsystem_description, maximum_active_jobs,
current_active_jobs, subsystem_monitor_job, text_description,
controlling_subsystem, workload_group, signon_device_file_library,
signon_device_file, secondary_language_library, iasp_name
from qsys2.subsystem_info
where status = 'ACTIVE'
order by current_active_jobs desc;
Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1 Group Dekko Dept 1600 Mail to: 7310 Innovation Blvd, Suite 104
Ft. Wayne, IN 46818
Ship to: 7310 Innovation Blvd, Dock 9C
Ft. Wayne, IN 46818
http://www.dekko.com
-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of James H. H. Lampert
Sent: Tuesday, March 2, 2021 11:56 AM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: Is there a simple way for a CL program to determine whether a given subsystem is active?
CAUTION: This email originated from outside of the organization. Do not click links or open attachments unless you recognize the sender and know the content is safe.
I'll admit that I haven't done more than a cursory look at the CMDJOB and CMDSBS menus (and even that only on our V4R4 box, even though the box I'm asking this for is on V7), but short of an API call, can a CL program easily check to see if a given subsystem is active?
--
JHHL
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
------------------------------
message: 3
date: Tue, 2 Mar 2021 17:09:16 +0000 (UTC)
from: Mark Waterbury <mark.s.waterbury@xxxxxxxxxxxxx>
subject: Re: Is there a simple way for a CL program to determine
whether a given subsystem is active?
Rob,
I believe that can even be done from CL by creating an SQL VIEW with that statement in it, and then a DCLF to point to the view, and RCVF to read thru the resulting rows.? :-) Cheers, Mark S. Waterbury
On Tuesday, March 2, 2021, 12:04:23 PM EST, Rob Berendt <rob@xxxxxxxxx> wrote:
How tied are you to CL?
select subsystem_description_library, subsystem_description, maximum_active_jobs, ? ? ? current_active_jobs, subsystem_monitor_job, text_description, ? ? ? controlling_subsystem, workload_group, signon_device_file_library, ? ? ? signon_device_file, secondary_language_library, iasp_name ? from qsys2.subsystem_info ? where status = 'ACTIVE'
? order by current_active_jobs desc;
Rob Berendt
--
IBM Certified System Administrator - IBM i 6.1 Group Dekko Dept 1600 Mail to:? 7310 Innovation Blvd, Suite 104 ? ? ? ? ? Ft. Wayne, IN 46818 Ship to:? 7310 Innovation Blvd, Dock 9C ? ? ? ? ? Ft. Wayne, IN 46818
http://www.dekko.com
-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of James H. H. Lampert
Sent: Tuesday, March 2, 2021 11:56 AM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx>
Subject: Is there a simple way for a CL program to determine whether a given subsystem is active?
CAUTION: This email originated from outside of the organization. Do not click links or open attachments unless you recognize the sender and know the content is safe.
I'll admit that I haven't done more than a cursory look at the CMDJOB and CMDSBS menus (and even that only on our V4R4 box, even though the box I'm asking this for is on V7), but short of an API call, can a CL program easily check to see if a given subsystem is active?
--
JHHL
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx 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 Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
------------------------------
message: 4
date: Tue, 2 Mar 2021 17:19:06 +0000 (UTC)
from: Mark Waterbury <mark.s.waterbury@xxxxxxxxxxxxx>
subject: Re: Is there a simple way for a CL program to determine
whether a given subsystem is active?
James,
On older versions of OS/400, you could issue:
??? WRKSBS OUTPUT(*PRINT)
and then copy the spool file to a physical file, and DCLF / RCVF to read thru and parse the results.
HTH,
Mark S. Waterbury
On Tuesday, March 2, 2021, 11:56:12 AM EST, James H. H. Lampert <jamesl@xxxxxxxxxxxxxxxxx> wrote:
I'll admit that I haven't done more than a cursory look at the CMDJOB and CMDSBS menus (and even that only on our V4R4 box, even though the box I'm asking this for is on V7), but short of an API call, can a CL program easily check to see if a given subsystem is active?
--
JHHL
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate link:
https://amazon.midrange.com
------------------------------
Subject: Digest Footer
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) digest list To post a message email: MIDRANGE-L@xxxxxxxxxxxxxxxxxx To subscribe, unsubscribe, or change list options,
visit:
https://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives at
https://archive.midrange.com/midrange-l.
Please contact support@xxxxxxxxxxxxxxxxxxxx for any subscription related questions.
Help support midrange.com by shopping at amazon.com with our affiliate
link:
https://amazon.midrange.com
------------------------------
End of MIDRANGE-L Digest, Vol 20, Issue 297
*******************************************
________________________________
Please note: Florida has very broad public records laws. Many written communications to or from The Florida Bar regarding Bar business may be considered public records, which must be made available to anyone upon request. Your e-mail communications may therefore be subject to public disclosure.
midrange.com
