--********************************************************************************************************************
-- Created:  9-Nov-2023 12:07:28 by OpenVMS SDL V3.7       
-- Source:  02-SEP-1989 10:38:13 $1$DGA8345:[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;