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



To All,
 
I thought that there was a (short) discussion about how to get a pointer
to any job on the system, that can be used as input to the second parm
of the MATINVS command to get the Invocation Stack for the job; but now
I can't [ f i n d ] that thread.  At any rate, I just browsed through
Chapter Nine of Leif's book ("The Work Control Block Table") about how
to find a job on the system.   Using the Machine Index QWCBT_JOB_INDEX
seems to me to be a neat way to find the WCB enty for an arbitrary job.
 
Once the WCB entry is located, where can we get the system pointer to
the job [ i t s e l f ]?  Chapter Nine shows part of the WCB entry as
follows:
 
 
DCL DD WCB-ENTRY CHAR(1024) BAS(.WCB-ENTRY);
    DCL DD WCB-DEVICE    CHAR(10) DEF(WCB-ENTRY) POS(  1);
    DCL DD WCB-USER      CHAR(10) DEF(WCB-ENTRY) POS( 11);
    DCL DD WCB-NUMBER    CHAR( 6) DEF(WCB-ENTRY) POS( 21);
    DCL SYSPTR .WCB-PCS           DEF(WCB-ENTRY) POS( 33);
    DCL DD WCB-TYPE      CHAR( 1) DEF(WCB-ENTRY) POS( 97);
    DCL DD WCB-STATUS    CHAR( 2) DEF(WCB-ENTRY) POS( 98);
    DCL DD WCB-GROUP     CHAR( 1) DEF(WCB-ENTRY) POS(100);
 
So, is the .WCB-PCS pointer the magic-bullet that will locate the job?
Forgive if this seems like a dumb question.  I looked at all the Apis
that I could find that retrieve job information; there doesn't seem to
be any that will return a pointer that will work with MATINVS.  Not
surprising!  So I guess that MI is the only way to do it.
 
Thanks,
 
Rich Hart
 
 

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

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.