Re: Recursive DSPPGMREF

Hi,

When i ran corrected version of the pgm_refs like below :-

call k211.pgm_refs ('FASTBREED' ,'IS967C5')
CALL statement complete.


Then could just find 12 count in select count(*) from K211.refs despite
adding my library k211 and 'FASTBREED' in my lib.list.

How did you get this 1800+ references there?


Thanks

On Sun, 2 Jul 2023 at 02:09, Sam_L <lennon_s_j@xxxxxxxxxxx> wrote:

1) I updated PGM_REFS to handle DSPPGMREF failures. You will need to
recreate it.

2) I updated the readme. *Please review it.*

3) I added a sample call in pgm_refs_test.sql for PUB400 and FASTBREED.
Ends up with 1800+ references.

Note: This is open source, so you are free to improve it.


On 7/1/2023 12:42 PM, tim ken wrote:

Hi,

Yes, I am testing PGM_REFS in PUB400. COM and since found this type of
error so this pgm might fail in similar kind of cases, seems error

handling

is not done inside PGM_REFS considering such cases.

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