Re: Github: Finding IBM i stuff

Rob,

You can easily either make a repo or gist with all of these snippets if you
want to share them. You don't need to make a big program or collection to
share your knowledge.
Scott Forstie has a collection of gists:
https://gist.github.com/forstie
You can easily make something like that, sharing the various ways to solve
a problem you find.

Roberto

On Tue, 16 Aug 2022 at 15:08, Rob Berendt <rob@xxxxxxxxx> 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
--
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

Jim

Oberholtzer
Sent: Tuesday, August 16, 2022 1:38 PM
To: Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxxxxxxxx

Subject: Re: Github: Finding IBM i stuff

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 think Rob is following up on earlier posts and questions......

--
Jim Oberholtzer
Chief Technical Architect
Agile Technology Architects


On Tue, Aug 16, 2022 at 11:34 AM Patrik Schindler <poc@xxxxxxxxxx>

wrote:

Hello Rob,

Am 16.08.2022 um 17:02 schrieb Rob Berendt <rob@xxxxxxxxx>:

I am looking to see if someone already wrote something and maybe open

sourced it. I suppose I should check Github. Someone recommended this
video and I plan on watching it:
https://www.youtube.com/watch?v=SWYqp7iY_T

Basically I was planning on using the techniques at:

https://www.scottklement.com/presentations/RPG%20User%20Defined%20Functions%20%26%20Table%20Functions.pdf

to create a UDTF to process this:

Retrieve Network Attributes (QWCRNETA) API
https://www.ibm.com/docs/en/i/7.5?topic=interfaces-api-finder

Again, I'm missing your question. Or what do you want to tell us? :-)

:wq! PoC

--
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
--
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