Re command to check if job is active

I have this code - one command and one RPGLE program as the CPP:

Command source:
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')

RPGLE source:

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;