procedure TUSC.Get_Job_Process_Info( pidadr : int64 ; prcnam : string ;
    itmlst : int64 ; var IOSB : TIOSB ) ;

var Buff : PAnsiChar ;
    Context : TContext ;
    Descriptor : TSYS_Descriptor ;
    I : integer ;
    Len : int64 ;
    Offset : int64 ;
    PID : TPID ;
    _Process, Process : TProcess ;
    Res : int64 ;
    S : string ;
    Status : longint ;
    Target_PID : TPID ;
    Process_Context : TProcess_Scan_Context ;
    Value : cardinal ;

begin // TUSC.Get_Job_Process_Info
    PID := Kernel.PID ;
    Target_PID := PID ;
    Process_Context := nil ;
    Process := Get_Process( PID ) ;
    if( pidadr = -1 ) then
    begin
        if( Process.Wildcard_Context = nil ) then
        begin
            Process.Wildcard_Context := TProcess_Scan_Context.Create ;
        end ;
        Process_Context := Process.Wildcard_Context ;
    end else
    if( pidadr <> 0 ) then
    begin
        if( ( pidadr and 1 ) <> 0 ) then // A context
        begin
            Context := Process.Get_Context( pidadr and ( not 1 ) ) ;
            if( Context.Context_Type <> CT_Process ) then
            begin
                Context := nil ; // Wrong context type
            end ;
            if( Context = nil ) then
            begin
                Generate_Exception( UOSErr_Invalid_Context ) ;
                exit ;
            end ;
            Process_Context := TProcess_Scan_Context( Context ) ;
        end else
        begin
            Target_PID := Get_User_Integer( Kernel, PID, pidadr, Status ) ;
            if( Status = UE_Error ) then
            begin
                IOSB.r_io_64.w_status := Status ;
                if( MMC.Last_Error = nil ) then
                begin
                    Generate_Exception( UOSErr_Memory_Address_Error ) ;
                end ;
                exit ;
            end ;
            if( Target_PID = 0 ) then
            begin
                Target_PID := PID ;
                Status := Write_User_int64( Kernel, PID, pidadr, PID ) ;
                if( Status = UE_Error ) then
                begin
                    IOSB.r_io_64.w_status := Status ;
                    if( MMC.Last_Error = nil ) then
                    begin
                        Generate_Exception( UOSErr_Memory_Address_Error ) ;
                    end ;
                    exit ;
                end ;
            end ;
        end ;
    end else
    if( prcnam <> '' ) then
    begin
        //TODO:Handle process names with node prefix on clusters
        prcnam := lowercase( prcnam ) ;
        for I := 0 to Processes.Count - 1 do
        begin
            Process := TProcess( Processes[ I ] ) ;
            if( Process <> nil ) then
            begin
                if( prcnam = lowercase( Process.Name ) ) then
                begin
                    Target_PID := Process._PID ;
                    break ;
                end ; // if( prcnam = lowercase( Process.Name ) )
            end ; // if( Process <> nil )
        end ; // for I := 0 to Processes.Count - 1
    end ;

    if( Process_Context <> nil ) then
    begin
        Target_PID := Process_Context.Next_PID ;
        if( Target_PID = 0 ) then
        begin
            if( Process_Context = Process.Wildcard_Context ) then
            begin
                Process.Wildcard_Context.Free ;
                Process.Wildcard_Context := nil ;
            end ;
            Generate_Exception( UOSErr_Nonexistent_Process ) ;
            exit ;
        end ;
    end ; // if( Process_Context <> nil )
    Process := Get_Process( Target_PID ) ;
    if( Process = nil ) then // Process doesn't exist
    begin
        Generate_Exception( UOSErr_Nonexistent_Process ) ;
        exit ;
    end ;

    while( true ) do
    begin
        // Map item and process descriptor...
        Offset := MMC.Lock_Pages( PID, itmlst, sizeof( Descriptor ) ) ;
        try
            Buff := PAnsiChar( MMC.Map_Pages( PID, 0, itmlst, sizeof( Descriptor ), 
                MAM_Read or MAM_Lock ) ) ;
            if( Buff = nil ) then
            begin
                if( MMC.Last_Error = nil ) then
                begin
                    Generate_Exception( UOSErr_Memory_Address_Error ) ;
                end ;
                exit ;
            end ;

            try
                move( Buff[ Offset ], Descriptor, sizeof( Descriptor ) ) ;
                if(
                    ( Descriptor.Buffer_Length = 0 )
                    or
                    ( Descriptor.Buffer_Address = 0 )
                    or
                    ( Descriptor.Return_Length_Address = 0 )
                  ) then // End of list
                begin
                    exit ;
                end ;
                Len := Descriptor.Buffer_Length ;
                if( Descriptor.Buffer_Address = 0 ) then
                begin
                    Generate_Exception( UOSErr_Memory_Address_Error ) ;
                    exit ;
                end ;
                case Descriptor.Item_Code of

                    JPI_INSTALL_RIGHTS:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_INSTALL_RIGHTS_SIZE:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_RIGHTSLIST:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_RIGHTS_SIZE:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_SUBSYSTEM_RIGHTS:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_SUBSYSTEM_RIGHTS_SIZE:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_SYSTEM_RIGHTS:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_SYSTEM_RIGHTS_SIZE:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;

                    JPI_EFCS:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_EFCU:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_EFWM:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;

                    JPI_FREP0VA:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_FREP1VA:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_FREPTECNT:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_P0_FIRST_FREE_VA_64:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_P1_FIRST_FREE_VA_64:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_P2_FIRST_FREE_VA_64:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_WSEXTENT:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_WSQUOTA:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;

                    JPI_FAST_VP_SWITCH:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_SLOW_VP_SWITCH:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_VP_CONSUMER:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_VP_CPUTIM:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;

                    JPI_PERSONA_AUTHPRIV:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_PERSONA_ID:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_PERSONA_PERMPRIV:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_PERSONA_RIGHTS:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_PERSONA_RIGHTS_SIZE:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_PERSONA_WORKPRIV:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;

                    JPI_RMS_DFMBC:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_RMS_DFMBFIDX:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_RMS_DFMBFREL:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_RMS_DFMBFSDK:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_RMS_DFMBFSMT:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_RMS_DFMBFSUR:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_RMS_DFNBC:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_RMS_EXTEND_SIZE:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_RMS_PROLOGUE:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;

                    JPI_ASTACT:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_ASTEN:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_CASE_LOOKUP_PERM:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_CASE_LOOKUP_TEMP:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_CLASSIFICATION:
                        begin
                            Write_String_Value( Len, '                    ' ) ; //TODO
                        end ;
                    JPI_CURRENT_AFFINITY_MASK:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_CURRENT_USERCAP_MASK:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_DFMBC:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_DFPFC:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_EXCVEC:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_FINALEXC:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_GRP:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_HOME_RAD:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_IMAGE_RIGHTS:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_KT_COUNT:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_MSGMASK:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_PAGEFLTS:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_PAGFILLOC:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_PARSE_STYLE_IMAGE:
                        begin
                            Write_Value( Len, PARSE_STYLE_C_TRADITIONAL ) ; //TODO
                        end ;
                    JPI_PARSE_STYLE_PERM:
                        begin
                            Write_Value( Len, PARSE_STYLE_C_TRADITIONAL ) ; //TODO
                        end ;
                    JPI_PERMANENT_AFFINITY_MASK:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_PERMANENT_USERCAP_MASK:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_PHDFLAGS:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_PROCESS_RIGHTS:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_SCHED_CLASS_NAME:
                        begin
                            Write_String_Value( Len, '' ) ; //TODO
                        end ;
                    JPI_SCHED_POLICY:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_SITESPEC:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_SWPFILLOC:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_TABLENAME:
                        begin
                            Write_String_Value( Len, '' ) ; //TODO
                        end ;
                    JPI_THREAD_INDEX:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_TMBU:
                        begin
                            Write_Value( Len, 0 ) ; //TODO
                        end ;
                    JPI_TT_ACCPORNAM:
                        begin
                            Write_String_Value( Len, '' ) ; //TODO
                        end ;

                    JPI_OWNER : // Get owner (parent) of process
                        begin
                            Write_Value( Len, Process._Parent ) ;
                        end ;
                    JPI_PID, // Get PID
                      JPI_INITIAL_THREAD_PID,
                      JPI_PROC_INDEX :
                        begin
                            Write_Value( Len, Target_PID ) ;
                        end ;
                    JPI_RMS_FILEPROT: // RMS File Protection
                        begin
                            Write_Value( Len, Process.Protection ) ;
                        end ;

                    JPI_ACCOUNT:
                        begin
                            Write_String_Value( Len, Process.Account ) ;
                        end ;

                    JPI_ASTCNT:
                        begin
                            Res := Process.User.Quotas.ASTLM ;
                            if( Res <> 0 ) then
                            begin
                                Res := Res - Process.Usage.ASTLM ;
                            end ;
                            Write_Value( Len, Res ) ;
                        end ;

                    JPI_CHAIN:
                        begin
                            // Intentionally ignored
                        end ;

                    JPI_JOBPRCCNT:
                        begin
                            _Process := Process.Job ;
                            if( _Process = nil ) then
                            begin
                                _Process := Process ;
                            end ;
                            Write_Value( Len, _Process.Child_Count ) ;
                        end ;

                    JPI_MODE:
                        begin
                            I := Process.Job_Type ;
                            case I of
                                JPI_K_LOCAL, JPI_K_DIALUP, JPI_K_REMOTE: I := JPI_K_INTERACTIVE ;
                            end ;
                            Write_Value( Len, I ) ;
                        end ;

                    JPI_APTCNT:
                        begin
                            Write_Value( Len, Process._Pages.Count ) ;
                        end ;
                    JPI_ASTLM:
                        begin
                            Write_Value( Len, Process.User.Quotas.ASTLM ) ;
                        end ;
                    JPI_AUTHPRI:
                        begin
                            Write_Value( Len, Process.User.Priority ) ;
                        end ;
                    JPI_AUTHPRIV:
                        begin
                            Write_Value( Len, Process.User.Privileges ) ;
                        end ;
                    JPI_BIOCNT:
                        begin
                            Res := Process.User.Quotas.BIOLM ;
                            if( Res <> 0 ) then
                            begin
                                Res := Res - Process.Usage.BIOLM ;
                            end ;
                            Write_Value( Len, Res ) ;
                        end ;
                    JPI_BIOLM:
                        begin
                            Write_Value( Len, Process.User.Quotas.BIOLM ) ;
                        end ;
                    JPI_BUFIO:
                        begin
                            Write_Value( Len, Process.Usage.BIOLM ) ;
                        end ;
                    JPI_BYTCNT:
                        begin
                            Write_Value( Len, Process.Usage.BYTLM ) ;
                        end ;
                    JPI_BYTLM:
                        begin
                            Write_Value( Len, Process.User.Quotas.BYTLM ) ;
                        end ;
                    JPI_CLINAME:
                        begin
                            Write_String_Value( Len, Process.Shell ) ;
                        end ;
                    JPI_CPU_ID:
                        begin
                            Write_Value( Len, Process.CPUID ) ;
                        end ;
                    JPI_CPULIM:
                        begin
                            Write_Value( Len, Process.User.Quotas.CPUTIM ) ;
                        end ;
                    JPI_CPUTIM:
                        begin
                            Write_Value( Len, Process.Usage.CPUTIM ) ;
                        end ;
                    JPI_CREPRC_FLAGS:
                        begin
                            Write_Value( Len, Process.Creation_Flags ) ;
                        end ;
                    JPI_CURPRIV:
                        begin
                            Write_Value( Len, Process.Current_Privileges ) ;
                        end ;
                    JPI_DEADLOCK_WAIT:
                        begin
                            Write_Value( Len, Process.Deadlock_Time ) ;
                        end ;
                    JPI_DFWSCNT:
                        begin
                            Write_Value( Len, Process.User.Quotas.WSDEFAULT ) ;
                        end ;
                    JPI_DIOCNT:
                        begin
                            Res := Process.User.Quotas.DIOLM ;
                            if( Res <> 0 ) then
                            begin
                                Res := Res - Process.Usage.DIOLM ;
                            end ;
                            Write_Value( Len, Res ) ;
                        end ;
                    JPI_DIOLM:
                        begin
                            Write_Value( Len, Process.User.Quotas.DIOLM ) ;
                        end ;
                    JPI_DIRIO:
                        begin
                            Write_Value( Len, Process.Usage.DIOLM ) ;
                        end ;
                    JPI_ENQCNT:
                        begin
                            Res := Process.User.Quotas.ENQLM ;
                            if( Res <> 0 ) then
                            begin
                                Res := Res - Process.Usage.ENQLM ;
                            end ;
                            Write_Value( Len, Res ) ;
                        end ;
                    JPI_ENQLM:
                        begin
                            Write_Value( Len, Process.User.Quotas.ENQLM ) ;
                        end ;
                    JPI_FILCNT:
                        begin
                            Res := Process.User.Quotas.FILLM ;
                            if( Res <> 0 ) then
                            begin
                                Res := Res - Process.Usage.FILLM ;
                            end ;
                            Write_Value( Len, Res ) ;
                        end ;
                    JPI_FILLM:
                        begin
                            Write_Value( Len, Process.User.Quotas.FILLM ) ;
                        end ;
                    JPI_GETJPI_CONTROL_FLAGS:
                        begin
                            Write_Value( Len, 0 ) ; // Doesn't apply to UOS
                        end ;
                    JPI_GPGCNT:
                        begin
                            Write_Value( Len, Process._Pages.Count ) ;
                        end ;
                    JPI_IMAGECOUNT:
                        begin
                            Write_Value( Len, Process.Image_Count ) ;
                        end ;
                    JPI_IMAGE_AUTHPRIV:
                        begin
                            Write_Value( Len, Process.Image_Auth_Priv ) ;
                        end ;
                    JPI_IMAGE_PERMPRIV:
                        begin
                            Write_Value( Len, Process.Image_Perm_Priv ) ;
                        end ;
                    JPI_IMAGPRIV:
                        begin
                            Write_Value( Len, Process.Image_Priv ) ;
                        end ;
                    JPI_JOBTYPE:
                        begin
                            _Process := Process.Job ;
                            if( _Process = nil ) then
                            begin
                                _Process := Process ;
                            end ;
                            Write_Value( Len, _Process.Job_Type ) ;
                        end ;
                    JPI_LAST_LOGIN_I:
                        begin
                            Write_Value( Len, Process.User.Last_Interactive_Login ) ;
                        end ;
                    JPI_LAST_LOGIN_N:
                        begin
                            Write_Value( Len, Process.User.Last_NonInteractive_Login ) ;
                        end ;
                    JPI_LOGIN_FAILURES:
                        begin
                            Write_Value( Len, Process.User.Login_Failures ) ;
                        end ;
                    JPI_LOGIN_FLAGS:
                        begin
                            Write_Value( Len, Process.Login_Flags ) ;
                        end ;
                    JPI_LOGINTIM:
                        begin
                            Write_Value( Len, Process.Time ) ;
                        end ;
                    JPI_MASTER_PID:
                        begin
                            _Process := Process.Job ;
                            if( _Process = nil ) then
                            begin
                                _Process := Process ;
                            end ;
                            Write_Value( Len, _Process._PID ) ;
                        end ;
                    JPI_MAXDETACH:
                        begin
                            Write_Value( Len, Process.User.Quotas.MAXDETJOBS ) ;
                        end ;
                    JPI_MAXJOBS:
                        begin
                            Write_Value( Len, Process.User.Quotas.MAXJOBS ) ;
                        end ;
                    JPI_MULTITHREAD:
                        begin
                            Write_Value( Len, Process.User.Quotas.THREADLM ) ;
                        end ;
                    JPI_NODENAME:
                        begin
                            S := Process.NodeName ;
                            Write_String_Value( Len, S ) ;
                        end ;
                    JPI_NODE_CSID:
                        begin
                            Write_Value( Len, Process.CSID ) ;
                        end ;
                    JPI_NODE_VERSION:
                        begin
                            Write_Value( Len, Process.Version ) ;
                        end ;
                    JPI_PAGFILCNT:
                        begin
                            Res := Process.User.Quotas.PGFLQUOTA ;
                            if( Res <> 0 ) then
                            begin
                                Res := Res - Process.Usage.PGFLQUOTA ;
                            end ;
                            Write_Value( Len, Res ) ;
                        end ;
                    JPI_PGFLQUOTA:
                        begin
                            Write_Value( Len, Process.User.Quotas.PGFLQUOTA ) ;
                        end ;
                    JPI_PPGCNT:
                        begin
                            Write_Value( Len, Process._Pages.Count ) ;
                        end ;
                    JPI_PRCCNT:
                        begin
                            Write_Value( Len, Process._Children.Count ) ;
                        end ;
                    JPI_PRCLM:
                        begin
                            Write_Value( Len, Process.User.Quotas.PRCLM ) ;
                        end ;
                    JPI_PRCNAM:
                        begin
                            Write_String_Value( Len, Process.Name ) ;
                        end ;
                    JPI_PRI:
                        begin
                            Write_Value( Len, Process.Priority ) ;
                        end ;
                    JPI_PRIB:
                        begin
                            Write_Value( Len, Process.Base_Priority ) ;
                        end ;
                    JPI_PROCPRIV:
                        begin
                            Write_Value( Len, Process.User.Privileges ) ;
                        end ;
                    JPI_SHRFILLM:
                        begin
                            Write_Value( Len, Process.User.Quotas.SFILLM ) ;
                        end ;
                    JPI_STATE:
                        begin
                            Write_Value( Len, Process.State ) ;
                        end ;
                    JPI_STS:
                        begin
                            Write_Value( Len, Process.Status and $FFFFFFFF ) ;
                        end ;
                    JPI_STS2:
                        begin
                            Write_Value( Len, Process.Status and ( not $FFFFFFFF ) ) ;
                        end ;
                    JPI_TERMINAL:
                        begin
                            Write_String_Value( Len, Kernel.FIP.Device_Name( Process.Attached_Device ) ) ;
                        end ;
                    JPI_TQCNT:
                        begin
                            Res := Process.User.Quotas.TQELM ;
                            if( Res <> 0 ) then
                            begin
                                Res := Res - Process.Usage.TQELM ;
                            end ;
                            Write_Value( Len, Res ) ;
                        end ;
                    JPI_TQLM:
                        begin
                            Write_Value( Len, Process.User.Quotas.TQELM ) ;
                        end ;
                    JPI_TT_PHYDEVNAM:
                        begin
                            Write_String_Value( Len, Kernel.FIP.Device_Name( Process.Attached_Device ) ) ;
                            //TODO: Remote terminals
                        end ;
                    JPI_UAF_FLAGS:
                        begin
                            Write_Value( Len, Process.User.Flags ) ;
                        end ;
                    JPI_UIC:
                        begin
                            Write_Value( Len, Process._User ) ;
                        end ;
                    JPI_USERNAME:
                        begin
                            Write_String_Value( Len, Process.User.Name ) ;
                        end ;
                    JPI_VIRTPEAK:
                        begin
                            Write_Value( Len, Process.Peak_Memory ) ;
                        end ;
                    JPI_VOLUMES:
                        begin
                            Write_Value( Len, Process._Mounts.Count ) ;
                        end ;
                    JPI_WSAUTH:
                        begin
                            Write_Value( Len, Process.User.Quotas.WSDEFAULT ) ;
                        end ;
                    JPI_WSAUTHEXT:
                        begin
                            Write_Value( Len, Process.User.Quotas.WSEXTENT ) ;
                        end ;
                    JPI_WSPEAK:
                        begin
                            Write_Value( Len, Process.Peak_Memory div HAL.RAM_Page_Size ) ;
                        end ;
                    JPI_WSSIZE:
                        begin
                            Write_Value( Len, Process._Pages.Count ) ;
                        end ;

    procedure Write_Value( Len, V : int64 ) ;

    begin
        if( Len > sizeof( V ) ) then
        begin
            Len := sizeof( V ) ;
        end ;
        Write_User( Kernel, PID, Descriptor.Buffer_Address, Len, V ) ;
        if( Descriptor.Return_Length_Address <> 0 ) then
        begin
            Write_User( Kernel, PID, Descriptor.Return_Length_Address, Len, V ) ;
        end ;
    end ;

    function Write_String_Value( Len : int64 ; V : string ) : integer ;

    var SRB : TSRB ;

    begin
        if( Len > length( V ) ) then
        begin
            Len := length( V ) ;
        end ;
        SRB.Buffer := Descriptor.Buffer_Address ;
        SRB.Length := Descriptor.Buffer_Length ;
        Set_User_String( Kernel, PID, SRB, V ) ;
        if( Descriptor.Return_Length_Address <> 0 ) then
        begin
            Result := Write_User( Kernel, PID, Descriptor.Return_Length_Address, sizeof( Len ), Len ) ;
        end ;
    end ;

// SYS JPI descriptor codes...
const JPI_ACCOUNT = 1 ;
      JPI_APTCNT = 2 ;
      JPI_ASTACT = 3 ;
      JPI_ASTCNT = 4 ;
      JPI_ASTEN = 5 ;
      JPI_ASTLM = 6 ;
      JPI_AUTHPRI = 7 ;
      JPI_AUTHPRIV = 8 ;
      JPI_BIOCNT = 9 ;
      JPI_BIOLM = 10 ;
      JPI_BUFIO = 11 ;
      JPI_BYTCNT = 12 ;
      JPI_BYTLM = 13 ;
      JPI_CASE_LOOKUP_PERM = 14 ;
      JPI_CASE_LOOKUP_TEMP = 15 ;
      JPI_CHAIN = 16 ;
      JPI_CLASSIFICATION = 17 ;
      JPI_CLINAME = 18 ;
      JPI_CPU_ID = 19 ;
      JPI_CPULIM = 20 ;
      JPI_CPUTIM = 21 ;
      JPI_CREPRC_FLAGS = 22 ;
      JPI_CURPRIV = 23 ;
      JPI_CURRENT_AFFINITY_MASK = 24 ;
      JPI_CURRENT_USERCAP_MASK = 25 ;
      JPI_DEADLOCK_WAIT = 26 ;
      JPI_DFMBC = 27 ;
      JPI_DFPFC = 28 ;
      JPI_DFWSCNT = 29 ;
      JPI_DIOCNT = 30 ;
      JPI_DIOLM = 31 ;
      JPI_DIRIO = 32 ;
      JPI_EFCS = 33 ;
      JPI_EFCU = 34 ;
      JPI_EFWM = 35 ;
      JPI_ENQCNT = 36 ;
      JPI_ENQLM = 37 ;
      JPI_EXCVEC = 38 ;
      JPI_FAST_VP_SWITCH = 39 ;
      JPI_FILCNT = 40 ;
      JPI_FILLM = 41 ;
      JPI_FINALEXC = 42 ;
      JPI_FREP0VA = 43 ;
      JPI_FREP1VA = 44 ;
      JPI_FREPTECNT = 45 ;
      JPI_GETJPI_CONTROL_FLAGS = 46 ;
      JPI_GPGCNT = 47 ;
      JPI_HOME_RAD = 48 ;
      JPI_IMAGECOUNT = 49 ;
      JPI_IMAGE_AUTHPRIV = 50 ;
      JPI_IMAGE_PERMPRIV = 51 ;
      JPI_IMAGE_RIGHTS = 52 ;
      JPI_IMAGPRIV =  53 ;
      JPI_INITIAL_THREAD_PID = 54 ;
      JPI_INSTALL_RIGHTS = 55 ;
      JPI_INSTALL_RIGHTS_SIZE = 56 ;
      JPI_JOBPRCCNT = 57 ;
      JPI_JOBTYPE = 58 ;
      JPI_KT_COUNT = 59 ;
      JPI_LAST_LOGIN_I = 60 ;
      JPI_LAST_LOGIN_N = 61 ;
      JPI_LOGIN_FAILURES = 62 ;
      JPI_LOGIN_FLAGS = 63 ;
      JPI_LOGINTIM = 64 ;
      JPI_MASTER_PID = 65 ;
      JPI_MAXDETACH = 66 ;
      JPI_MAXJOBS = 67 ;
      JPI_GRP = 68 ;
      JPI_MODE = 69 ;
      JPI_MSGMASK = 70 ;
      JPI_MULTITHREAD = 71 ;
      JPI_NODENAME = 72 ;
      JPI_NODE_CSID = 73 ;
      JPI_NODE_VERSION = 74 ;
      JPI_OWNER = 75 ;  // Get owner (parent) of process
      JPI_PAGEFLTS = 76 ;
      JPI_PAGFILCNT = 77 ;
      JPI_PAGFILLOC = 78 ;
      JPI_PARSE_STYLE_IMAGE = 79 ;
      JPI_PARSE_STYLE_PERM = 80 ;
      JPI_PERMANENT_AFFINITY_MASK = 81 ;
      JPI_PERMANENT_USERCAP_MASK = 82 ;
      JPI_PERSONA_AUTHPRIV = 83 ;
      JPI_PERSONA_ID = 84 ;
      JPI_PERSONA_PERMPRIV = 85 ;
      JPI_PERSONA_RIGHTS = 86 ;
      JPI_PERSONA_RIGHTS_SIZE = 87 ;
      JPI_PERSONA_WORKPRIV = 88 ;
      JPI_PGFLQUOTA = 89 ;
      JPI_PHDFLAGS = 90 ;
      JPI_PID = 91 ; // Get PID
      JPI_P0_FIRST_FREE_VA_64 = 92 ;
      JPI_P1_FIRST_FREE_VA_64 = 93 ;
      JPI_P2_FIRST_FREE_VA_64 = 94 ;
      JPI_PPGCNT = 95 ;
      JPI_PRCCNT = 96 ;
      JPI_PRCLM = 97 ;
      JPI_PRCNAM = 98 ;
      JPI_PRI = 99 ;
      JPI_PRIB = 100 ;
      JPI_PROCESS_RIGHTS = 101 ;
      JPI_PROC_INDEX = 102 ;
      JPI_PROCPRIV = 103 ;
      JPI_RIGHTSLIST = 104 ;
      JPI_RIGHTS_SIZE = 105 ;
      JPI_RMS_DFMBC = 106 ;
      JPI_RMS_DFMBFIDX = 107 ;
      JPI_RMS_DFMBFREL = 108 ;
      JPI_RMS_DFMBFSDK = 109 ;
      JPI_RMS_DFMBFSMT = 110 ;
      JPI_RMS_DFMBFSUR = 111 ;
      JPI_RMS_DFNBC = 112 ;
      JPI_RMS_EXTEND_SIZE = 113 ;
      JPI_RMS_FILEPROT = 114 ; // Get RMS file protection
      JPI_RMS_PROLOGUE = 115 ;
      JPI_SCHED_CLASS_NAME = 116 ;
      JPI_SCHED_POLICY = 117 ;
      JPI_SHRFILLM = 118 ;
      JPI_SITESPEC = 119 ;
      JPI_SLOW_VP_SWITCH = 120 ;
      JPI_STATE = 121 ;
      JPI_STS = 122 ;
      JPI_STS2 = 123 ;
      JPI_SUBSYSTEM_RIGHTS = 124 ;
      JPI_SUBSYSTEM_RIGHTS_SIZE = 125 ;
      JPI_SWPFILLOC = 126 ;
      JPI_SYSTEM_RIGHTS = 127 ;
      JPI_SYSTEM_RIGHTS_SIZE = 128 ;
      JPI_TABLENAME = 129 ;
      JPI_TERMINAL = 130 ;
      JPI_THREAD_INDEX = 131 ;
      JPI_TMBU = 132 ;
      JPI_TQCNT = 133 ;
      JPI_TQLM = 134 ;
      JPI_TT_ACCPORNAM = 135 ;
      JPI_TT_PHYDEVNAM = 136 ;
      JPI_IMAGE_WORKPRIV = 137 ;
      JPI_UAF_FLAGS = 138 ;
      JPI_UIC = 139 ;
      JPI_USERNAME = 140 ;
      JPI_VIRTPEAK = 141 ;
      JPI_VOLUMES = 142 ;
      JPI_VP_CONSUMER = 143 ;
      JPI_VP_CPUTIM = 144 ;
      JPI_WSAUTH = 145 ;
      JPI_WSAUTHEXT = 146 ;
      JPI_WSEXTENT = 147 ;
      JPI_WSPEAK = 148 ;
      JPI_WSQUOTA = 149 ;
      JPI_WSSIZE = 150 ;
      JPI_IMAGNAME = 151 ;