× 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.




On 15/08/2010, at 11:03 PM, Dennis Lovelady wrote:

Think WRKSBMJOB or WRKACTJOB. Each of these is able to respond to such
messages via option 7. That's what I want to emulate.

I see Bruce has pointed you at the necessary API but since you are on a release without that then the following information may prove helpful.

It does require system-state so if that's a problem stop now.

The information you need (message queue, library, and message key) are in
a) the WCB for the job
or
b) the WCBTE for the job
or
c) both of the above

I can't remember which one of those is correct and I'm about to leave for Papua New Guinea so my host systems are unavailable. Anyway, the location is pretty easy to find in dumps of the PCS or WCBT. You can isolate the system-state stuff in a single program. You'll still need to build all the code and panels to fetch the message details, display the message, accept and send the response. You can get IBM code to do that for you but you must use UIM for your panels, define some magic variables, and provide a bit of system-state glue.

For method a)
locate the WCBT00
locate the WCBT index in WCBT00
locate the job in the WCBT index
locate the corresponding entry in WCBTn
locate the PCS for the job
and extract the message details


For method b):
essentially as above but you can omit locating the job PCS


Of course, you could extract this information from spooled file dumps if your authorised to the DMPSYSOBJ command but that has all the caveats of spooled file processing and it's slow.

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 / \
--------------------------------------------------------------------




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.