NAME

VMS::ProcInfo - Perl extension to retrieve lots of process info for a process.

SYNOPSIS

use VMS::ProcInfo;

Routine to return a reference to a hash with all the process info for the process loaded into it:

$procinfo = VMS::ProcInfo::get_all_proc_info_items(pid);
$diolimit = $procinfo->{DIOLM};

Fetch a single piece of info:

$diolm = VMS::ProcInfo::get_one_proc_info_item(pid, "DIOLM");

Decode a bitmap into a hash filled with names, with their values set to true or false based on the bitmap.

$hashref = VMS::ProcInfo::decode_proc_info_bitmap("CREPRC_FLAGS", Bitmap);
$hashref->{BATCH};

Get a list of valid info names:

@InfoNames = VMS::ProcInfo::proc_info_names;

Tied hash interface:

tie %procinfohash, VMS::ProcInfo<, pid>;
$diolm = $procinfohash{DIOLM};

Object access:

$procinfoobj = new VMS::ProcInfo <pid>;
$diolm = $procinfoobj->one_info("DIOLM");
$hashref = $procinfoobj->all_info();

DESCRIPTION

Retrieve info for a process. Access is via function call, object and method, or tied hash. Choose your favorite.

Note that this module does not completely duplicate the DCL F$GETJPI lexical function. Amongst other things, it doesn't return quota or rightslist info. Quick rule of thumb is only single pieces of info are returned.

BUGS

May leak memory. May not, though.

LIMITATIONS

Quadword values are returned as string values rather than integers.

Privilege info's not returned. Use VMS::Priv for that.

List info (rightslist and exceptions vectors) are not returned.

The bitmap decoder doesn't grok the CURRENT_USERCAP_MASK, MSGMASK, or PERMANENT_USERCAP_MASK fields, as I don't know where the bitmask defs for them are in the header files. When I do, support will get added.

AUTHOR

Dan Sugalski <sugalsd@lbcc.cc.or.us>

SEE ALSO

perl(1), VMS::Quota.