I have a program I wrote that calls the QWCRSSTS api - (Retrieve System Status).  If you're interested, let me know.

Thanks,

Gavin.

On 8/16/2022 2:08 PM, Rob Berendt wrote:

As much as I'd like to either github or develop my own I think I have a workaround with system_status_info:

...
-- Check to see if the Q1ABRMSYS data area exists -- 2022-08-16
select count(*)
into Q1ABRMSYS_COUNT
from table(QSYS2.OBJECT_STATISTICS(
OBJECT_SCHEMA => 'QUSRBRM',
OBJTYPELIST => '*DTAARA',
OBJECT_NAME => 'Q1ABRMSYS')) AS STAT;
CASE
WHEN Q1ABRMSYS_COUNT = 1 THEN
-- Determine local system name as according to BRMS.
SELECT data_area_value
INTO LOCAL_SYSTEM_NAME
FROM table(qsys2.data_area_info(DATA_AREA_LIBRARY => 'QUSRBRM',
DATA_AREA_NAME => 'Q1ABRMSYS'))
;
ELSE
SELECT HOST_NAME
INTO LOCAL_SYSTEM_NAME
FROM QSYS2.SYSTEM_STATUS_INFO;
END CASE;
...


Rob Berendt



As an Amazon Associate we earn from qualifying purchases.

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-2024 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].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.