Re: QUSRJOBI API - Getting CPF3C53 for job on JOBQ

[Vern Hamberg <vhamberg@xxxxxxxxxxxxxxxxxxxxxxxxx>]

Ron, run the job in debug to verify the value in QualJobNm. Haven't done 
RPG in a while, does the '+' strip trailing blanks? Also, what is JBREF - 
it looks like you want it to be the job name. And maybe use a 16-character 
variable for the internal ID, instead of *BLANKS - I'm not sure that memory 
is being properly allocated with the constant.

HTH

Vern

At 12:22 AM 9/27/2003 -0500, you wrote:

>       Hi
>
>       I am using the QUSRJOBI API format JOBI0400 in a RPG program.
>       This format is supposedly good for all job states.
>
>       Everything works fine for jobs that are active but when I encounter 
> a job on a
>       JOBQ I am getting a return message of CPF3C53
>
>       I tried using format JOBI0300 but get the same results.
>
>       Here's the code:
>       C                    Eval      QualJobNm = JBREF  +
>       C                                         JAUSR  +
>       C                                         JAJNR
>        *
>        * Use the API QUSRJOBI to check if the job is active
>        *
>       C                   Callp     QUSRJOBI(dsJob400: %size(dsJob400):
>       C                              'JOBI0400': QualJobNm: *blanks: dsEC)
>
>       Is there something I'm missing here?
>
>       Thank You
>       Ron