Lexical functions - F$GETJPI

In our continuing whirlwind tour of UCL lexical functions, we now look at F$GETJPI. F$GETJPI is the UCL wrapper for the SYS_GETJPI system call. We briefly introduced this system call back in article 68. Here is the definition:

F$GETJPI returns a specific piece of information about the specified device.

Format
F$GETJPI(pid,item)

Return Value
Either an integer or a string, depending upon the item requested. The table below indicates the valid items and the corresponding return values.

Arguments
pid

Specifies the process ID of the process for which you are requesting information. If this parameter is null, the current process is used. Use F$PID function to get a list of process IDs.

item

Specifies the type of device information to return. See the table below.

Description
F$GETDVI invokes the GETDVI system service to return information on the specified device. Use F$DEVICE to iterate through available devices. In addition to the items returned by the GETDVI system service, "EXISTS" is also a valid item for F$GETDVI. The following table lists all valid items.

Item Information returned.

ACCOUNT The account name.

APTCNT Active page table count.

ASTACT Access modes with active ASTs.

ASTCNT Remaining AST quota.

ASTEN Access modes with ASTs enabled.

ASTLM AST limit quota.

AUTHPRI Maximum authorized priority.

AUTHPRIV Authorized privileges.

BIOCNT Remaining buffered I/O quota.

BIOLM Buffered I/O limit quota.

BUFIO Count of buffered I/O operations.

BYTCNT Remaining buffered I/O byte count quota.

BYTLM Buffered I/O byte count quota.

CASE_LOOKUP_IMAGE Information about the file name lookup case sensitivity for the life of the currently running image: BLIND or SENSITIVE.

CASE_LOOKUP_PERM Information about the file name lookup case sensitivity for the life of the process: BLIND or SENSITIVE.

CLASSIFICATION Current MAC classification

CLINAME Current command language interpreter (shell). Always returns "UCL".

CPULIM CPU time limit.

CPUTIM CPU time used, in nanoseconds.

CREPRC_FLAGS Flags specified by the stsflg argument in the $CREPRC call that created the process.

CURPRIV Current process privileges.

CURRENT_CAP_MASK Current capabilities mask.

DFPFC Default page fault cluster size.

DFWSCNT Default working set size.

DIOCNT Remaining direct I/O count.

DIOLM Direct I/O limit.

DIRIO Count of direct I/O operations.

EFCS Local event flags 0-31.

EFCU Local event flags 32-63.

EFWM Event flag wait mask.

ENQCNT Lock request quota remaining.

ENQLM Lock request quota limit.

EXCVEC Address of a list of exception vectors.

FAST_VP_SWITCH Number of times process has issued vector processor request that enabled an inactive vector processor without the expense of a vector context switch.

FILCNT Remaining open file quota.

FILLM Open file quota.

FINALEXC Address of a list of final exception vectors.

FREP0VA First free page at end of executable/data address space.

FREP1VA Last free page before start of stack space.

FREPTECNT Number of pages available for virtual memory expansion.

GPGCNT Global page count in working set.

GRP Group(s) the process user belongs to.

HOME_RAD Home resource affinity domain (RAD).

IMAGECOUNT Number of image rundowns.

IMAGE_AUTHPRIV Authorized privilege mask for running image.

IMAGE_PERMPRIV Default privilege mask for running image.

IMAGE_WORKPRIV Current (working) privilege mask for running image.

IMAGNAME File name of current image.

IMAGPRIV Privileges current image was installed with.

INSTALL_RIGHTS Binary content of the install rights list, comma delimited.

INSTALL_RIGHTS_SIZE Number of bytes needed to store the install rights.

JOBPRCCNT Number of subprocesses owned by job.

JOBTYPE Execution mode of the process at the root of the job tree.

LAST_LOGIN_I Time of last interactive login.

LAST_LOGIN_N Time of last noninteractive login.

LOGIN_FAILURES Number of login failures prior to the start of the current session.

LOGIN_FLAGS Bitmask containing additional information relating to the login sequence.

LOGINTIM Process creation time.

MASTER_PID PID of the top of the job's process tree.

MAXDETACH Maximum number of detached processes allowed to the user who owns the process.

MAXJOBS Maximum number of active processes allowed for user who owns the process.

MODE Current process mode (BATCH, INTERACTIVE, NETWORK, or OTHER).

MSGMASK Current message mask.

MULTITHREAD Current multuthread limit.

NODENAME Name of the cluster node on which the process is running.

NODE_CSID Cluster ID of the cluster node on which the process is running.

NODE_VERSION UOS version number of the cluster node on which the process is running.

OWNER PID of process' owner.

PAGEFLTS Page fault count.

PAGFILCNT Remaining page file quota.

PAGFILLOC Location of the page file.

PARSE_STYLE_PERM Values set by the $SET_PROCESS_PROPERTIESW.

PARSE_STYLE_IMAGE Values set by the $SET_PROCESS_PROPERTIESW.

PERMANENT_CAP_MASK Permanent capabilities mask.

PERSONA_AUTHPRIV Authorized privilege mask of the persona.

PERSONA_ID The ID of the persona.

PERSONA_PERMPRIV Default privilege mask of the persona.

PERSONA_RIGHTS Binary content of the persona rights list, comma delimited.

PERSONA_RIGHTS_SIZE Number of bytes needed to store the persona rights.

PERSONA_WORKPRIV Current privilege mask of the active persona.

PGFLQUOTA Page file quota.

PHDFLAGS Flags word.

PID Process ID.

PPGCNT Process page count.

PRCCNT Number of subprocesses owned by process.

PRCLM Subprocess quota.

PRCNAM Process name.

PRI Current priority.

PRIB Base priority.

PROC_INDEX Process' index number.

PROCESS_RIGHTS Contents of the process local rights list, delimited by commas.

PROCPRIV Default privileges.

RIGHTSLIST Contents of all process rights lists, delimited by commas.

RIGHTS_SIZE Number of bytes required for the rights list.

SCHED_CLASS_NAME Name of the scheduling class if process is class scheduled. Null otherwise.

SHRFILLM Maximum number of open shared files for the job to which the process belongs.

SITESPEC Per-process site-specific integer.

SLOW_VP_SWITCH Number of times process has issued a vector instruction that enabled a inactive vector processor with a fill vector context switch.

STATE Process state.

STS First 32-bits of process status flags.

STS2 Second 32-bits of process status flags.

SUBSYSTEM_RIGHTS Binary content of the subsystem rights lists, delimited by commas.

SUBSYSTEM_RIGHTS_SIZE Number of bytes needed to store the system rights.

SWPFILLOC Swap file location.

SYSTEM_RIGHTS Contents of system rights list for the process, including identifier names, delimited by commas.

SYSTEM_RIGHTS_SIZE Number of bytes needed to store the system rights.

TABLENAME File specification of process CLI table.

TERMINAL Login terminal name for interactive users.

TMBU Termination mailbox unit number.

TOKEN Token size (TRADITIONAL or EXPANDED).

TQCNT Remaining timer queue entry quota.

TQLM Timer queue quota.

TT_ACCPORNAM Access port name for terminal associated with process.

TT_PHYDEVNAM Physical device name of the terminal asssociated with process.

UAF_FLAGS User authorization file (UAF) flags for user who owns process.

UIC User ID code.

USERNAME User name of process.

VIRTPEAK Peak virtual address size.

VOLUMES Count of currently mounted volumes.

VP_CONSUMER Flag indicating if the process is a vector consumer.

VP_CPUTIM Total amount of time process has accumulated as a vector consumer.

WSAUTH Maximum authorized working set size.

WSAUTHEXT Maximum authorized working set extent.

WSEXTENT Current working set extent.

WSPEAK Working set peak.

WSQUOTA Working set size quota.

WSSIZE Current working set limit.

Examples
$ N = F$GETJPI("","USERNAME")
This example would obtain the username for the current process.

        Function_GetJPI : begin
                              if( Missing_Parentheses( '(' ) ) then
                              begin
                                  exit ;
                              end ;
                              if( Parse_GetJPI( Err, Context ) ) then
                              begin
                                  exit ;
                              end ;
                              if( Missing_Parentheses( ')' ) ) then
                              begin
                                  exit ;
                              end ;
                              S := Context ;
                          end ;

We add handling to Function_Reference, as we've done with all the lexical functions.

type TItemType = ( IT_String, IT_Integer, IT_Boolean, IT_DT, IT_Time, IT_Priv, IT_Rights ) ;

We've added three items to the TItemType enumeration: IT_Time, IT_Priv, and IT_Rights. This will support results from the GETJPI call.

function Parse_GetJPI( var Err : integer ; var Context : string ) : boolean ;

var Code : integer ;
    ItemType : TItemType ;
    I, Process : int64 ;
    Itm : string ;
    PP_SYS_Descriptor : array[ 0..1 ] of TSYS_Descriptor ;
    Buff : array of int64 ;
    BufLen : int64 ;

begin
    // Setup...
    Result := False ; // Assume no problems
    Context := '' ;
    ItemType := IT_Integer ;

    // Get process name....
    Process := Get_Numeric_Parameter( Err, Context ) ;
    if( Err <> 0 ) then
    begin
        exit ;
    end ;
    if( Missing_Comma( Err ) ) then
    begin
        exit ;
    end ;

    // Get item....
    Itm := trim( lowercase( Get_Parameter( Err, Context ) ) ) ;
    if( Err <> 0 ) then
    begin
        exit ;
    end ;

This follows the pattern of Parse_GetDVI, which we covered in article 98. We simply obtain the process name and item code. Since most results are integer values, we default to IT_Integer as the item type.

    if( Itm = 'account' ) then
    begin
        Code := JPI_ACCOUNT ;
        ItemType := IT_String ;
    end else
    if( Itm = 'aptcnt' ) then
    begin
        Code := JPI_APTCNT ;
    end else
    if( Itm = 'astact' ) then
    begin
        Code := JPI_ASTACT ;
    end else
    if( Itm = 'astcnt' ) then
    begin
        Code := JPI_ASTCNT ;
    end else
    if( Itm = 'asten' ) then
    begin
        Code := JPI_ASTEN ;
    end else
    if( Itm = 'astlm' ) then
    begin
        Code := JPI_ASTLM ;
    end else
    if( Itm = 'authpri' ) then
    begin
        Code := JPI_AUTHPRI ;
    end else
    if( Itm = 'authpriv' ) then
    begin
        Code := JPI_AUTHPRIV ;
        ItemType := IT_Priv ;
    end else
    if( Itm = 'biocnt' ) then
    begin
        Code := JPI_BIOCNT ;
    end else
    if( Itm = 'biolm' ) then
    begin
        Code := JPI_BIOLM ;
    end else
    if( Itm = 'bufio' ) then
    begin
        Code := JPI_BUFIO ;
    end else
    if( Itm = 'bytcnt' ) then
    begin
        Code := JPI_BYTCNT ;
    end else
    if( Itm = 'bytlm' ) then
    begin
        Code := JPI_BYTLM ;
    end else
    if( Itm = 'case_lookup_image' ) then
    begin
        Code := JPI_CASE_LOOKUP_TEMP ;
        ItemType := IT_String ;
    end else
    if( Itm = 'case_lookup_perm' ) then
    begin
        Code := JPI_CASE_LOOKUP_PERM ;
        ItemType := IT_String ;
    end else
    if( Itm = 'classification' ) then
    begin
        Code := JPI_CLASSIFICATION ;
        ItemType := IT_String ;
    end else
    if( Itm = 'cliname' ) then
    begin
        Code := JPI_CLINAME ;
        ItemType := IT_String ;
    end else
    if( Itm = 'cpulim' ) then
    begin
        Code := JPI_CPULIM ;
    end else
    if( Itm = 'cputim' ) then
    begin
        Code := JPI_CPUTIM ;
    end else
    if( Itm = 'creprc_flags' ) then
    begin
        Code := JPI_CREPRC_FLAGS ;
    end else
    if( Itm = 'curpriv' ) then
    begin
        Code := JPI_CURPRIV ;
        ItemType := IT_Priv ;
    end else
    if( Itm = 'current_cap_mask' ) then
    begin
        Code := JPI_CURRENT_USERCAP_MASK ;
    end else
    if( Itm = 'dfpfc' ) then
    begin
        Code := JPI_DFPFC ;
    end else
    if( Itm = 'dfwscnt' ) then
    begin
        Code := JPI_DFWSCNT ;
    end else
    if( Itm = 'diocnt' ) then
    begin
        Code := JPI_DIOCNT ;
    end else
    if( Itm = 'diolm' ) then
    begin
        Code := JPI_DIOLM ;
    end else
    if( Itm = 'dirio' ) then
    begin
        Code := JPI_DIRIO ;
    end else
    if( Itm = 'efcs' ) then
    begin
        Code := JPI_EFCS ;
    end else
    if( Itm = 'efcu' ) then
    begin
        Code := JPI_EFCU ;
    end else
    if( Itm = 'efwm' ) then
    begin
        Code := JPI_EFWM ;
    end else
    if( Itm = 'enqcnt' ) then
    begin
        Code := JPI_ENQCNT ;
    end else
    if( Itm = 'enqlm' ) then
    begin
        Code := JPI_ENQLM ;
    end else
    if( Itm = 'excvec' ) then
    begin
        Code := JPI_EXCVEC ;
    end else
    if( Itm = 'fast_vp_switch' ) then
    begin
        Code := JPI_FAST_VP_SWITCH ;
    end else
    if( Itm = 'filcnt' ) then
    begin
        Code := JPI_FILCNT ;
    end else
    if( Itm = 'fillm' ) then
    begin
        Code := JPI_FILLM ;
    end else
    if( Itm = 'finalexc' ) then
    begin
        Code := JPI_FINALEXC ;
    end else
    if( Itm = 'frep0va' ) then
    begin
        Code := JPI_FREP0VA ;
    end else
    if( Itm = 'frep1va' ) then
    begin
        Code := JPI_FREP1VA ;
    end else
    if( Itm = 'freptecnt' ) then
    begin
        Code := JPI_FREPTECNT ;
    end else
    if( Itm = 'gpgcnt' ) then
    begin
        Code := JPI_GPGCNT ;
    end else
    if( Itm = 'grp' ) then
    begin
        Code := JPI_GRP ;
    end else
    if( Itm = 'home_rad' ) then
    begin
        Code := JPI_HOME_RAD ;
    end else
    if( Itm = 'imagecount' ) then
    begin
        Code := JPI_IMAGECOUNT ;
    end else
    if( Itm = 'image_authpriv' ) then
    begin
        Code := JPI_IMAGE_AUTHPRIV ;
        ItemType := IT_Priv ;
    end else
    if( Itm = 'image_permpriv' ) then
    begin
        Code := JPI_IMAGE_PERMPRIV ;
        ItemType := IT_Priv ;
    end else
    if( Itm = 'image_workpriv' ) then
    begin
        Code := JPI_IMAGE_WORKPRIV ;
        ItemType := IT_Priv ;
    end else
    if( Itm = 'imagname' ) then
    begin
        Code := JPI_IMAGNAME ;
        ItemType := IT_String ;
    end else
    if( Itm = 'imagpriv' ) then
    begin
        Code := JPI_IMAGPRIV ;
        ItemType := IT_Priv ;
    end else
    if( Itm = 'install_rights' ) then
    begin
        Code := JPI_INSTALL_RIGHTS ;
        ItemType := IT_Rights ;
    end else
    if( Itm = 'install_rights_size' ) then
    begin
        Code := JPI_INSTALL_RIGHTS_SIZE ;
    end else
    if( Itm = 'jobprccnt' ) then
    begin
        Code := JPI_JOBPRCCNT ;
    end else
    if( Itm = 'jobtype' ) then
    begin
        Code := JPI_JOBTYPE ;
    end else
    if( Itm = 'last_login_i' ) then
    begin
        Code := JPI_LAST_LOGIN_I ;
        ItemType := IT_Time ;
    end else
    if( Itm = 'last_login_n' ) then
    begin
        Code := JPI_LAST_LOGIN_N ;
        ItemType := IT_Time ;
    end else
    if( Itm = 'login_failures' ) then
    begin
        Code := JPI_LOGIN_FAILURES ;
    end else
    if( Itm = 'login_flags' ) then
    begin
        Code := JPI_LOGIN_FLAGS ;
    end else
    if( Itm = 'logintim' ) then
    begin
        Code := JPI_LOGINTIM ;
        ItemType := IT_Time ;
    end else
    if( Itm = 'master_pid' ) then
    begin
        Code := JPI_MASTER_PID ;
    end else
    if( Itm = 'maxdetach' ) then
    begin
        Code := JPI_MAXDETACH ;
    end else
    if( Itm = 'maxjobs' ) then
    begin
        Code := JPI_MAXJOBS ;
    end else
    if( Itm = 'mode' ) then
    begin
        Code := JPI_MODE ;
    end else
    if( Itm = 'msgmask' ) then
    begin
        Code := JPI_MSGMASK ;
    end else
    if( Itm = 'multithread' ) then
    begin
        Code := JPI_MULTITHREAD ;
    end else
    if( Itm = 'nodename' ) then
    begin
        Code := JPI_NODENAME ;
        ItemType := IT_String ;
    end else
    if( Itm = 'node_csid' ) then
    begin
        Code := JPI_NODE_CSID ;
    end else
    if( Itm = 'node_version' ) then
    begin
        Code := JPI_NODE_VERSION ;
        ItemType := IT_String ;
    end else
    if( Itm = 'owner' ) then
    begin
        Code := JPI_OWNER ;
    end else
    if( Itm = 'pageflts' ) then
    begin
        Code := JPI_PAGEFLTS ;
    end else
    if( Itm = 'pagfilcnt' ) then
    begin
        Code := JPI_PAGFILCNT ;
    end else
    if( Itm = 'pagfilloc' ) then
    begin
        Code := JPI_PAGFILLOC ;
    end else
    if( Itm = 'parse_style_perm' ) then
    begin
        Code := JPI_PARSE_STYLE_PERM ;
        ItemType := IT_String ;
    end else
    if( Itm = 'parse_style_image' ) then
    begin
        Code := JPI_PARSE_STYLE_IMAGE ;
        ItemType := IT_String ;
    end else
    if( Itm = 'permanent_cap_mask' ) then
    begin
        Code := JPI_PERMANENT_USERCAP_MASK ;
    end else
    if( Itm = 'persona_authpriv' ) then
    begin
        Code := JPI_PERSONA_AUTHPRIV ;
        ItemType := IT_Priv ;
    end else
    if( Itm = 'persona_id' ) then
    begin
        Code := JPI_PERSONA_ID ;
    end else
    if( Itm = 'persona_permpriv' ) then
    begin
        Code := JPI_PERSONA_PERMPRIV ;
        ItemType := IT_Priv ;
    end else
    if( Itm = 'persona_rights' ) then
    begin
        Code := JPI_PERSONA_RIGHTS ;
        ItemType := IT_Rights ;
    end else
    if( Itm = 'persona_rights_size' ) then
    begin
        Code := JPI_PERSONA_RIGHTS_SIZE ;
    end else
    if( Itm = 'persona_workpriv' ) then
    begin
        Code := JPI_PERSONA_WORKPRIV ;
        ItemType := IT_Priv ;
    end else
    if( Itm = 'pgflquota' ) then
    begin
        Code := JPI_PGFLQUOTA ;
    end else
    if( Itm = 'phdflags' ) then
    begin
        Code := JPI_PHDFLAGS ;
    end else
    if( Itm = 'pid' ) then
    begin
        Code := JPI_PID ;
    end else
    if( Itm = 'ppgcnt' ) then
    begin
        Code := JPI_PPGCNT ;
    end else
    if( Itm = 'prccnt' ) then
    begin
        Code := JPI_PRCCNT ;
    end else
    if( Itm = 'prclm' ) then
    begin
        Code := JPI_PRCLM ;
    end else
    if( Itm = 'prcnam' ) then
    begin
        Code := JPI_PRCNAM ;
        ItemType := IT_Priv ;
    end else
    if( Itm = 'pri' ) then
    begin
        Code := JPI_PRI ;
    end else
    if( Itm = 'prib' ) then
    begin
        Code := JPI_PRIB ;
    end else
    if( Itm = 'proc_index' ) then
    begin
        Code := JPI_PROC_INDEX ;
    end else
    if( Itm = 'process_rights' ) then
    begin
        Code := JPI_PROCESS_RIGHTS ;
        ItemType := IT_Rights ;
    end else
    if( Itm = 'procpriv' ) then
    begin
        Code := JPI_PROCPRIV ;
        ItemType := IT_Priv ;
    end else
    if( Itm = 'rightslist' ) then
    begin
        Code := JPI_RIGHTSLIST ;
        ItemType := IT_Rights ;
    end else
    if( Itm = 'rights_size' ) then
    begin
        Code := JPI_RIGHTS_SIZE ;
    end else
    if( Itm = 'sched_class_name' ) then
    begin
        Code := JPI_SCHED_CLASS_NAME ;
        ItemType := IT_String ;
    end else
    if( Itm = 'shrfillm' ) then
    begin
        Code := JPI_SHRFILLM ;
    end else
    if( Itm = 'sitespec' ) then
    begin
        Code := JPI_SITESPEC ;
    end else
    if( Itm = 'slow_vp_switch' ) then
    begin
        Code := JPI_SLOW_VP_SWITCH ;
    end else
    if( Itm = 'state' ) then
    begin
        Code := JPI_STATE ;
    end else
    if( Itm = 'sts' ) then
    begin
        Code := JPI_STS ;
    end else
    if( Itm = 'sts2' ) then
    begin
        Code := JPI_STS2 ;
    end else
    if( Itm = 'subsystem_rights' ) then
    begin
        Code := JPI_SUBSYSTEM_RIGHTS ;
        ItemType := IT_Rights ;
    end else
    if( Itm = 'subsystem_rights_size' ) then
    begin
        Code := JPI_SUBSYSTEM_RIGHTS_SIZE ;
    end else
    if( Itm = 'swpfilloc' ) then
    begin
        Code := JPI_SWPFILLOC ;
    end else
    if( Itm = 'system_rights' ) then
    begin
        Code := JPI_SYSTEM_RIGHTS ;
        ItemType := IT_Rights ;
    end else
    if( Itm = 'system_rights_size' ) then
    begin
        Code := JPI_SYSTEM_RIGHTS_SIZE ;
    end else
    if( Itm = 'tablename' ) then
    begin
        Code := JPI_TABLENAME ;
        ItemType := IT_String ;
    end else
    if( Itm = 'terminal' ) then
    begin
        Code := JPI_TERMINAL ;
        ItemType := IT_String ;
    end else
    if( Itm = 'tmbu' ) then
    begin
        Code := JPI_TMBU ;
    end else
    if( Itm = 'token' ) then
    begin
        Context := 'EXTENDED' ;
        exit ;
    end else
    if( Itm = 'tqcnt' ) then
    begin
        Code := JPI_TQCNT ;
    end else
    if( Itm = 'tqlm' ) then
    begin
        Code := JPI_TQLM ;
    end else
    if( Itm = 'tt_accpornam' ) then
    begin
        Code := JPI_TT_ACCPORNAM ;
        ItemType := IT_String ;
    end else
    if( Itm = 'tt_phydevnam' ) then
    begin
        Code := JPI_TT_PHYDEVNAM ;
        ItemType := IT_String ;
    end else
    if( Itm = 'uaf_flags' ) then
    begin
        Code := JPI_UAF_FLAGS ;
    end else
    if( Itm = 'uic' ) then
    begin
        Code := JPI_UIC ;
    end else
    if( Itm = 'username' ) then
    begin
        Code := JPI_USERNAME ;
        ItemType := IT_String ;
    end else
    if( Itm = 'virtpeak' ) then
    begin
        Code := JPI_VIRTPEAK ;
    end else
    if( Itm = 'volumes' ) then
    begin
        Code := JPI_VOLUMES ;
    end else
    if( Itm = 'vp_consumer' ) then
    begin
        Code := JPI_VP_CONSUMER ;
        ItemType := IT_Boolean ;
    end else
    if( Itm = 'vp_cputim' ) then
    begin
        Code := JPI_VP_CPUTIM ;
    end else
    if( Itm = 'wsauth' ) then
    begin
        Code := JPI_WSAUTH ;
    end else
    if( Itm = 'wsauthext' ) then
    begin
        Code := JPI_WSAUTHEXT ;
    end else
    if( Itm = 'wsextent' ) then
    begin
        Code := JPI_WSEXTENT ;
    end else
    if( Itm = 'wspeak' ) then
    begin
        Code := JPI_WSPEAK ;
    end else
    if( Itm = 'wsquota' ) then
    begin
        Code := JPI_WSQUOTA ;
    end else
    if( Itm = 'wssize' ) then
    begin
        Code := JPI_WSSIZE ;
    end else
    begin
        Err := UCL_IVKEYW ; // Unrecognized keyword
        Context := Itm ;
        exit ;
    end ;

This code translates from a string item to the corresponding JPI_ constant, returning an error if not recognized. We also make sure the item type is set properly when the result is not an integer.

    if( ItemType = IT_Rights ) then
    begin
        Context := Get_JPI( Process, Code + 1 ) ; // Get size of rights
        I := Get_Integer_From_String( Context ) ;
        Context := '' ;
        if( I > 0 ) then
        begin
            setlength( Buff, I div sizeof( int64 )  ;
            BufLen := I ;
            fillchar( PP_SYS_Descriptor, sizeof( PP_SYS_Descriptor ), 0 ) ;
            PP_SYS_Descriptor[ 0 ].MBO := $FFFF ;
            PP_SYS_Descriptor[ 0 ].MBMO := -1 ;
            PP_SYS_Descriptor[ 0 ].Buffer_Length := sizeof( Buff ) ;
            PP_SYS_Descriptor[ 0 ].Item_Code := Code ;
            PP_SYS_Descriptor[ 0 ].Buffer_Address := integer( @Buff ) ;
            PP_SYS_Descriptor[ 0 ].Return_Length_Address := integer( @BufLen ) ;
            GETJPIW( 0, int64( @Process ), '', integer( @PP_SYS_Descriptor ), integer( @IOSB ), 0, 0 ) ;
            //TODO
        end ;
    end else

There are some GETJPI items that return a "rights list". We will discuss this in the future, and you'll note that we marked the end of this code segment with //TODO. Nevertheless, we do include the code necessary to obtain the list. The system call returns the list as an array of int64s. The number of items is variable, so we first call with the item code + 1. This is because for each code requesting a rights list, the following code requests the size of the rights list. Thus, we get the size (in bytes) of the list, then allocate a buffer of that length. Then we set up the descriptors and make the call to obtain the rights list, which will fill our buffer (a dynamic array of int64s) with the items. For now, that is all we will do.

    begin
        Context := Get_JPI( Process, Code ) ;
        if( ItemType <> IT_String ) then
        begin
            I := Get_Integer_From_String( Context ) ;
            if( ItemType = IT_Priv ) then
            begin
                Context := Privileges_To_String( I ) ;
            end else
            if( ItemType = IT_Time ) then
            begin
                Context := ASCTIM( I ) ;
            end else
            begin
                Context := inttostr( I ) ;
            end ;
        end ;
        if( ItemType = IT_Boolean ) then
        begin
            if( Context = '0' ) then
            begin
                Context := 'FALSE' ;
            end else
            begin
                Context := 'TRUE' ;
            end ;
        end ;
    end ;
end ; // Parse_GetJPI

For all other item types, we make the call to Get_JPI, which we've discussed before. if the result type is a string, we're done. Otherwise, we convert from a string to an integer. Then, if the item type is IT_Priv, we convert the integer to a privilege list. If the item type is IT_Time, we pass the value to ASCTIM to obtain a date/time string. Otherwise we convert from integer to string. Finally, if the result type is boolean, we then convert the string numeric value to a boolean value.

function Get_Integer_From_String( S : ansistring ) : int64 ;

begin
    while( length( S ) < sizeof( Result ) ) do
    begin
        S := S + #0 ;
    end ;
    move( PAnsiChar( S )[ 0 ], Result, sizeof( Result ) ) ;
end ;

This function converts a string that is a binary image of an integer into an integer value.

// Privileges
const TMPMBX = 1 ; // Allow temporary mailbox creation
      NETMBX = 2 ; // Allow network operations
      GROUP = 4 ; // Allow control of other processes in its own group(s)
      GRPPRV = 8 ; // Allow process with same group as object owner access rights of object's protection
      ACNT = 16 ; // Allows creation of processes in which accounting is disabled
      ALLSPOOL = 32 ; // Allows allocation of a spooled device
      BUGCHK = 64 ; // Allows bugcheck error log entries from user or supervisor to system error logger
      EXQUOTA = 128 ; // Allows exceeding any disk volume usage quotas set by the user's account
      GRPNAM = 256 ; // Allows bypassing discretionary access controls on the system logical name tables
      PRMCEB = 512 ; // Allows creation or deletion of permanent common event flag clusters
      PRMGBL = 1024 ; // Allows creation or deletion od permanent global sections
      PRMMBX = 2048 ; // Allows creation or deletion of a permanent mailbox
      SHMEM = 4096 ; // Allow creation of global sections and mailboxes in RAM shared by multiple processors
      ALTPRI = 8192 ; // Allow process to change its priority, set priority of other processes, and jobs
      AUDIT = 16384 ; // Allows appending audit records to the system security audit log file
      OPER = 32768 ; // Allows use of the OPCOM process to reply to requests, broadcast to terminals, etc.
      PSWARM = $10000 ; // Allows controlling whether it can be swapped out of the balance set
      SECURITY = $20000 ; // Allow security-related functions such as modifying system passwords
      SYSLCK = $40000 ; // Allow locking systemwide resources or getting information about system resources
      WORLD = $80000 ; // Allows process to affect other processes on the system
      DIAGNOSE = $100000 ; // Diagnose devices
      IMPORT = $200000 ; // Mount a nonlabeled tape volume
      MOUNT = $400000 ; // Execute mount volume QIO
      SYSGBL = $800000 ; // Create systemwide global sections
      VOLPRO = $1000000 ; // Override volume protection
      READALL = $2000000 ; // Bypass existing restrictions to read an object
      BYPASS = $4000000 ; // Disregard protection
      CMEXEC = $8000000 ; // Change to executive mode
      CMKRNL = $10000000 ; // Change to kernel mode
      DETACH = $20000000 ; // Create detached processes of arbitrary UIC
      DOWNGRADE = $40000000 ; // Write to a lower secrecy object or lower an object's classification
      LOG_IO = $80000000 ; // Issue logical I/O requests
      PFNMAP = $100000000 ; // Map to specific physical pages
      PHY_IO = $200000000 ; // Issue physical I/O requests
      READALL = $400000000 ; // Possess read access to all system objects
      SETPRV = $800000000 ; // Enable any privilege
      SHARE = $1000000000 ; // Access devices allocated to other users
      SYSNAM = $2000000000 ; // Insert system logical names in the name table
      SYSPRV = $4000000000 ; // Access objects through system protection field
      UPGRADE = $8000000000 ; // Write to a higher integrity object or raise an object's integrity level

These are the constants for UOS/VMS privileges. The individual privileges will be discussed in future articles where they come into play.

function Privileges_To_String( I : int64 ) : string ;

    procedure Priv( P : int64 ; const Name : string ) ;

    begin
        if( ( P and I ) <> 0 ) then
        begin
            if( Result <> '' ) then
            begin
                Result := Result + ',' ;
            end ;
            Result := Result + Name ;
        end ;
    end ;

begin
    Result := '' ;
    Priv( TMPMBX, 'TMPMBX' ) ;
    Priv( NETMBX, 'NETMBX' ) ;
    Priv( GROUP, 'GROUP' ) ;
    Priv( GRPPRV, 'GRPPRV' ) ;
    Priv( ACNT, 'ACNT' ) ;
    Priv( ALLSPOOL, 'ALLSPOOL' ) ;
    Priv( BUGCHK, 'BUGCHK' ) ;
    Priv( EXQUOTA, 'EXQUOTA' ) ;
    Priv( GRPNAM, 'GRPNAM' ) ;
    Priv( PRMCEB, 'PRMCEB' ) ;
    Priv( PRMGBL, 'PRMGBL' ) ;
    Priv( PRMMBX, 'PRMMBX' ) ;
    Priv( SHMEM, 'SHMEM' ) ;
    Priv( ALTPRI, 'ALTPRI' ) ;
    Priv( AUDIT, 'AUDIT' ) ;
    Priv( OPER, 'OPER' ) ;
    Priv( PSWARM, 'PSWARM' ) ;
    Priv( SECURITY, 'SECURITY' ) ;
    Priv( SYSLCK, 'SYSLCK' ) ;
    Priv( WORLD, 'WORLD' ) ;
    Priv( DIAGNOSE, 'DIAGNOSE' ) ;
    Priv( IMPORT, 'IMPORT' ) ;
    Priv( MOUNT, 'MOUNT' ) ;
    Priv( SYSGBL, 'SYSGBL' ) ;
    Priv( VOLPRO, 'VOLPRO' ) ;
    Priv( READALL, 'READALL' ) ;
    Priv( BYPASS, 'BYPASS' ) ;
    Priv( CMEXEC, 'CMEXEC' ) ;
    Priv( CMKRNL, 'CMKRNL' ) ;
    Priv( DETACH, 'DETACH' ) ;
    Priv( DOWNGRADE, 'DOWNGRADE' ) ;
    Priv( LOG_IO, 'LOG_IO' ) ;
    Priv( PFNMAP, 'PFNMAP' ) ;
    Priv( PHY_IO, 'PHY_IO' ) ;
    Priv( READALL, 'READALL' ) ;
    Priv( SETPRV, 'SETPRV' ) ;
    Priv( SHARE, 'SHARE' ) ;
    Priv( SYSNAM, 'SYSNAM' ) ;
    Priv( SYSPRV, 'SYSPRV' ) ;
    Priv( UPGRADE, 'UPGRADE' ) ;
end ; // Privileges_To_String

This function returns a string which is a list of the passed privilege bitmask. The privileges are delimited by commas.

function PID : TPID ;

begin
    if( _PID = 0 ) then // Haven't queried the executive for this before
    begin
        BufLen := 8 ;
        _PID := Get_Integer_From_String( Get_JPI( 0, JPI_PID ) ) ;
    end ;
    Result := _PID ;
end ;


function Parent_PID( PID : TPID ) : TPID ;

begin
    BufLen := 8 ;
    Result := Get_Integer_From_String( Get_JPI( 0, JPI_OWNER ) ) ;
end ;

Finally, we revisit a couple function from earlier, which use the new Get_Integer_From_String.

In the next article, we will look at the GETJPI system call.