--********************************************************************************************************************
-- Created:  9-Mar-2021 22:28:20 by OpenVMS SDL EV3-3      
-- Source:  02-SEP-1989 10:38:13 $1$DGA8085:[LIB_ADA.LIS]DIAGDEF.SDL;1 
--********************************************************************************************************************
with SYSTEM; use SYSTEM;
with STARLET; use STARLET;
with CONDITION_HANDLING; use CONDITION_HANDLING;
 
package DIAGDEF is
 
--  module $DIAGDEF
 
--*
--
-- Constants defining literals used in $DIAGNOSE system service
--
 
    DIAG_C_SETAFF		: constant := 1;			--  request to set affinity -- Set/Release
 
-- explicit process affinity to any CPU.
 
    DIAG_C_ACTVCPUS		: constant := 2;			--  request to read SMP$GL_ACTIVE_CPUS
    DIAG_C_DISABLAFF		: constant := 0;			--  disable explicit affinity to a CPU
    DIAG_C_ENABLAFF		: constant := 1;			--  enable explicit affinity to a CPU
 
end DIAGDEF;