Hi Had,
As you only want to know if the pgm is in the stack, I suppose adding
"fetch first row only" would do the trick.
Hth
Leo
--
--------------------------------------------------------------------------
Van: MIDRANGE-L <midrange-l-bounces@xxxxxxxxxxxxxxxxxx> namens Gad Miron
<gadmiron@xxxxxxxxx>
Verstuurd: zondag, augustus 6, 2023 10:00:37 a.m.
Aan: midrange-l@xxxxxxxxxxxxxxxxxx <midrange-l@xxxxxxxxxxxxxxxxxx>
Onderwerp: Strickly for old timers
An old story that goes like this
18 Mars years ago, just starting work on the AS/400 , I looked for an
equivalent to the S/36 's
IF_ACTIVE OCL. (For younger folks, this feature lets you check if a
program
is already running so you don't submit it a again)
I failed, then and on later tries.
However, seeing the (relative) new STACK_INFO and ACTIVE_JOB_INFO SQL
services
I thought I'd combine the two to finally get my IF_ACTIVE.
So here is an SQL that I think should accomplish it but does not:
SELECT PROGRAM_NAME, PROGRAM_LIBRARY_NAME
FROM TABLE(QSYS2.STACK_INFO((SELECT distinct JOB_NAME
FROM TABLE(QSYS2.ACTIVE_JOB_INFO(JOB_NAME_FILTER => '*ALL'))) ,'ALL')) A
where PROGRAM_NAME = 'NMFCTLLST'
I get a "Result of SELECT more than one row"
Any ideas, anyone?
TIA
Gad
--
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.
midrange.com
