Re: RE: Recursive DSPPGMREF

The problem is compound.
1 - Not all the SQL 'services' are documented in the same place. For some
strange reason some are under "Performance and Query Optimization" and some
are under "Db2 for i catalog views".
2 - Since the output of what you desire may be totally different based on
what area of the program you want to see (service programs, modules, etc)
it takes separate services to get the individual parts.
On the plus side, SQL does handle recursion, if you're up for it.

On Wed, Jul 5, 2023 at 12:55 PM Sam_L <lennon_s_j@xxxxxxxxxxx> wrote:

I don't really have a personal use for this. It was more of a learning
experience. I may experiment more.

Is there a SQL Service for DSPPGMREF? I didn't find one.

Sam

On 7/5/2023 12:25 PM, Juan Concepcion wrote:

Good job!

I've some suggestions:
- I'd replace the native IBM i commands calls by querying SQL services.
- I would either return a result set or create(if needed) the table

on-the-fly passing the table's name as a parameter.

Juan Concepcion

-----Original Message-----
From: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> On Behalf Of

Sam_L

Sent: Wednesday, June 28, 2023 1:10 PM
To: midrange-l@xxxxxxxxxxxxxxxxxx
Subject: Recursive DSPPGMREF

WARNING: EXTERNAL EMAIL. Do NOT CLICK on links or open attachments

unless you are expecting it or have verified with the sender.

For a learning experience, I've written PGM_REFS, a PL/SQL stored

procedure that uses the DSPPGMREF command to display information about a
program and the objects it uses, and the objects they use, to a virtually
unlimited depth.

You can see the code and some documentation at

https://github.com/SJLennon/IBM-i-RPG-Free-CLP-Code/tree/master/PGM_REFS

.

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