× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.


As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:
Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.