RE: CL command to check whether an active job of a given name

This works

First source for command ZRTVACTJOB:

CMD PROMPT('Rtv if specified job is active') +
ALLOW(*BPGM *IPGM) MODE(*ALL)
PARM KWD(JOBNAME) TYPE(*CHAR) LEN(10) MIN(1) +
PROMPT('Job name')
PARM KWD(JOBUSER) TYPE(*CHAR) LEN(10) MIN(1) +
PROMPT('Job user or *')
PARM KWD(ACTIVE) TYPE(*LGL) RTNVAL(*YES) MIN(1) +
PROMPT('Active 0/1')

Then SQLRPGLE CPP for above command:

**free
ctl-opt dftactgrp(*NO);
dcl-pi *n;
job_name char(10);
job_user char(10);
job_flag ind;
end-pi;
dcl-s counter zoned(5:0);

counter = *zeros;
select;
when job_user = '*'; // Any user
exec sql
SELECT count(*) into :counter
FROM TABLE(ACTIVE_JOB_INFO())
where job_name_short = :job_name; // Count active jobs for jobname
other;
exec sql
SELECT count(*) into :counter
FROM TABLE(ACTIVE_JOB_INFO())
where job_user = :job_user
and job_name_short = :job_name; // Count active jobs for jobname and user
endsl;
job_flag = (counter > *zeros);
return;