On Apr 28, 11:24am, Michael P. Smith wrote:
> I am trying to write a program for accessing the PCBXGLOB area.  The reason
> for doing this is so that I can then trace through and get user variable
> information for any job/session on the system.

I have several comments: 1) we should have an AIF to return this info,
which seems reasonable to ask for. (Maybe we have one?) I've thought about a
CI enhancement that would do this for PM and SM users.

2) I assume you are using the PXGLOB to get the JIT to get the ptr to the
var table.  CI variables are no longer kept in the JIT as they were in MPE V.

3) Your code will likely break as we move more OS code to NM.  It is
likely that the the PCB and PCBX will disappear sometime in the future.

> <snip>
>   typedef
>    struct
>     {
>      unsigned short dl_minus_a;
>      unsigned short db_minus_a;
>      unsigned short user_attributes;
>      unsigned short jmat_index;
>      short          jpcnt_index;
>      unsigned short jcut_index;
>      BOOLEAN        stun_bit    : 1;
>      BOOLEAN        restart     : 1;
>      unsigned short js_type     : 2;
>      BOOLEAN        duplicative : 1;
>      BOOLEAN        interactive : 1;
>      BOOLEAN        allowmask   : 1;
>      BOOLEAN        jsm_state   : 1;
>      BOOLEAN        jsm_change  : 1;
>      unsigned short             : 1;
>      BOOLEAN        dump_armed  : 1;
>      BOOLEAN        no_trace    : 1;
>      BOOLEAN        no_ascii    : 1;
>      BOOLEAN        dump_q63_s  : 1;
>      BOOLEAN        dump_qi_s   : 1;
>      BOOLEAN        dump_dl_qi  : 1;
>      unsigned short             : 8;
>      unsigned short native_lang : 8;
>      unsigned short job_input;
>      unsigned short job_output;
>      unsigned short jdt_dst;
>      unsigned short jit_dst;
>     } pcbx_glob_type;


The above structure is likely to not map the PCBX in future releases of MPE.
Even if we keep the PCB and PCBX around for a while longer they are
likely to be compressed so that we can support more users on a system.

If we don't have an AIF that returns this info then you may be better off
writing a debug script.

Jeff Vance, CSY

--