Re: ENDMSGW QUSLJOB API

[Dennis <iseries@xxxxxxxxxxxx>]

Gonna need to see some code, I'm afraid.  What I'd be looking for first: were the positions, offsets, et cetera hard-coded or retrieved/calculated from the results?
--  
Sent from my Galaxy tablet phone with with K-9 Mail. Please excuse my brevity.

"Jon Allen" <jallen@xxxxxxxxx> wrote:

> Hi, I have a job that runs every few minutes looking for *MSGW status
> of a job in a particular subsystem, and if it finds a job in MSGW it
> will automatically end it.  This job has been working fine until we
> upgraded to V6R1M0.
>
> The program creates a user space (QUSCRTUS), then List's the jobs to
> the user space (QUSLJOB using JOBL0200) then I read the entries in the
> user space.  My problem is that when I read the entries, the job info
> DS (see below) is the same for every record. No job info, just numbers
> in a few fields.
>
> Has anyone run into this on V6R1M0 and have a solution?  This program
> is years old and has been working perfectly until now.  Thanks!
>
>
> JOBNAME OF JOB_INF = '          '
> JOBUSER OF JOB_INF = '          '
> JOBNUMBER OF JOB_INF = '      '
> INTERNALID OF JOB_INF = '                '
> STATUS OF JOB_INF = '          '
> JOBTYPE OF JOB_INF = ' '
> JOBSUBTYPE OF JOB_INF = ' '
> SUBSYSTEM OF JOB_INF = '          '
> JOBRUNPTY OF JOB_INF = 077952576.
> SYSTEMPOOL OF JOB_INF = 077952576.
> PROCESSUNIT OF JOB_INF = 077952576.
> AUXREQUESTS OF JOB_INF = 077952576.
> INTERACTTRANS OF JOB_INF = 077952576.
> TOTRESPTIME OF JOB_INF = 077952576.
> FUNCTIONTYPE OF JOB_INF = ' '
> FUNCTIONNAME OF JOB_INF = '          '
> ACTJOBSTATUS OF JOB_INF = '    '
>
> ________________________________
> Important Confidentiality Notice: This email message, including all
> attachments is for the exclusive use by the person(s) to whom it is
> addressed, and may contain information that is confidential or
> privileged. Any unauthorized review, use, disclosure or distribution is
> prohibited under applicable law. If you have received this email in
> error, please notify me immediately by reply email and delete this
> message and any attachments. Thank you.
> -- 
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing
> list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.