Re: MI program unable to locate job - need assistance

On 21/05/2008, at 8:05 AM, Paul Jackson wrote:

> Which seems normal

Yes. The pointer is NULL prior to being set then is set to the first  
WCBT.

> but the based on WCBTBL-SPACE var is all hex zero
> which means that the size is set to zero (it should be 16752384) which
> causes the tables to be skipped hence the not found option.   On the
> other systems the size is correctly populated and so the table is
> searched normally.

I've not seen that before. I guess it could mean that QWCBT01 is not  
used (damaged/skipped/empty).

What does DSPJOBTBL show on the failing system?

What does DMPSYSOBJ QWCBT01 QSYS show on the failing system (only  
need the first page)

When was the last time the job tables were compressed on the failing  
system? Perhaps arrange to have the tables compressed: CHGIPLA  
CPRJOBTBL(*ALL) CHKJOBTBL(*ALL) then IPL. Reset these values after  
the IPL. Then see if the program works.

NOTE: Good idea to ensure QTOTJOB, QACTJOB, QADLACTJ, QADLTOTJ, and  
QMAXJOB are set appropriately before the IPL.

NOTE: Collect the DSPJOBTBL and DMPSYSOBJ information first then  
compress the tables.

While it is interesting to pursue this particular problem I suggest  
that altering your approach would be better. Either:
	a) Modify the MI program to use the job index to locate the given job
or
	b) Use Mark's suggestion of the Interrupt Job API

The advantage of a) is that it will be much faster. The advantage of  
b) is that it will work without requiring system-state.

>
> Not sure how to check Lic or cume levels.

For LIC:

DSPPTF 5722999

You should see something like:

Product ID  . . . . . . . . . . . . . :   5722999
IPL source  . . . . . . . . . . . . . :   ##MACH#B  ##SERV#T
Release of base option  . . . . . . . :   V5R4M0 L00

      PTF                                                   IPL
Opt  ID       Status                                       Action
      TL07226  Temporarily applied                          None



For OS:
DSPPTF 5722SS1

You should see something like:

Product ID  . . . . . . . . . . . . . :   5722SS1
IPL source  . . . . . . . . . . . . . :   ##MACH#B  ##SERV#T
Release of base option  . . . . . . . :   V5R4M0 L00

      PTF                                                   IPL
Opt  ID       Status                                       Action
      TC07226  Temporarily applied                          None


The PTF ID is interpreted as: 07=Year == 2007, 226 is release date in  
Julian day format.

The other item of interest is the "Release of base option" value for  
LIC.


Regards,
Simon Coulter.
--------------------------------------------------------------------
    FlyByNight Software         OS/400, i5/OS Technical Specialists

    http://www.flybynight.com.au/
    Phone: +61 2 6657 8251   Mobile: +61 0411 091 400        /"\
    Fax:   +61 2 6657 8251                                   \ /
                                                              X
                  ASCII Ribbon campaign against HTML E-Mail  / \
--------------------------------------------------------------------



_______________________________________________
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400-Zwy7GipZuJhWk0Htik3J/[email protected]
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mi400
or email: MI400-request-Zwy7GipZuJhWk0Htik3J/[email protected]
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.