(********************************************************************************************************************************)
(* Created 12-JUN-2007 22:00:52 by VAX SDL V3.2-12     Source: 25-APR-1995 15:50:30 DISK$DFO_BUILD:[DEFRAG.V30.SRC]DFG$DEF.SDL;1 *)
(********************************************************************************************************************************)
 
MODULE DFG$DEF ;
 
[HIDDEN] TYPE	(**** Pre-declared data types ****)
	$BYTE = [BYTE] -128..127;
	$WORD = [WORD] -32768..32767;
	$QUAD = [QUAD,UNSAFE] RECORD
		L0:UNSIGNED; L1:INTEGER; END;
	$OCTA = [OCTA,UNSAFE] RECORD
		L0,L1,L2:UNSIGNED; L3:INTEGER; END;
	$UBYTE = [BYTE] 0..255;
	$UWORD = [WORD] 0..65535;
	$UQUAD = [QUAD,UNSAFE] RECORD
		L0,L1:UNSIGNED; END;
	$UOCTA = [OCTA,UNSAFE] RECORD
		L0,L1,L2,L3:UNSIGNED; END;
	$UOCTAQUAD = [OCTA(2),UNSAFE] RECORD
		L0,L1,L2,L3,L4,L5,L6,L7:UNSIGNED; END;
	$PACKED_DEC = [BIT(4),UNSAFE] 0..15;
	$DEFTYP = [UNSAFE] INTEGER;
	$DEFPTR = [UNSAFE] ^$DEFTYP;
	$BOOL = [BIT(1),UNSAFE] BOOLEAN;
	$BIT2 = [BIT(2),UNSAFE] 0..3;
	$BIT3 = [BIT(3),UNSAFE] 0..7;
	$BIT4 = [BIT(4),UNSAFE] 0..15;
	$BIT5 = [BIT(5),UNSAFE] 0..31;
	$BIT6 = [BIT(6),UNSAFE] 0..63;
	$BIT7 = [BIT(7),UNSAFE] 0..127;
	$BIT8 = [BIT(8),UNSAFE] 0..255;
	$BIT9 = [BIT(9),UNSAFE] 0..511;
	$BIT10 = [BIT(10),UNSAFE] 0..1023;
	$BIT11 = [BIT(11),UNSAFE] 0..2047;
	$BIT12 = [BIT(12),UNSAFE] 0..4095;
	$BIT13 = [BIT(13),UNSAFE] 0..8191;
	$BIT14 = [BIT(14),UNSAFE] 0..16383;
	$BIT15 = [BIT(15),UNSAFE] 0..32767;
	$BIT16 = [BIT(16),UNSAFE] 0..65535;
	$BIT17 = [BIT(17),UNSAFE] 0..131071;
	$BIT18 = [BIT(18),UNSAFE] 0..262143;
	$BIT19 = [BIT(19),UNSAFE] 0..524287;
	$BIT20 = [BIT(20),UNSAFE] 0..1048575;
	$BIT21 = [BIT(21),UNSAFE] 0..2097151;
	$BIT22 = [BIT(22),UNSAFE] 0..4194303;
	$BIT23 = [BIT(23),UNSAFE] 0..8388607;
	$BIT24 = [BIT(24),UNSAFE] 0..16777215;
	$BIT25 = [BIT(25),UNSAFE] 0..33554431;
	$BIT26 = [BIT(26),UNSAFE] 0..67108863;
	$BIT27 = [BIT(27),UNSAFE] 0..134217727;
	$BIT28 = [BIT(28),UNSAFE] 0..268435455;
	$BIT29 = [BIT(29),UNSAFE] 0..536870911;
	$BIT30 = [BIT(30),UNSAFE] 0..1073741823;
	$BIT31 = [BIT(31),UNSAFE] 0..2147483647;
	$BIT32 = [BIT(32),UNSAFE] UNSIGNED;
 
(*** MODULE $DFG$DEF ***)
 
(*                                                                          *)
(*    Copyright © Digital Equipment Corporation, 1991-1995 All Rights Reserved. *)
(*                                                                          *)
(*    Unpublished rights reserved under the copyright laws of the United States. *)
(*    The software contained on this media is proprietary to and embodies the *)
(*    confidential technology of Digital Equipment Corporation.  Possession, *)
(*    use, duplication or dissemination of the software and media is authorized *)
(*    only pursuant to a valid written license from Digital Equipment       *)
(*    Corporation.                                                          *)
(*                                                                          *)
(*    RESTRICTED RIGHTS LEGEND:  Use, duplication, or disclosure by the U.S. *)
(*    Government is subject to restrictions as set forth in Subparagraph    *)
(*    (c)(1)(ii) of DFARS 252.227-7013, or in FAR 52.227-19, as applicable. *)
(*                                                                          *)
 
CONST	DFG$K_ABORT = 1;                (* sch/DB only; ABORT script        *)
	DFG$K_AFTER = 2;                (* sch/DB only; Schedule AFTER timespec *)
	DFG$K_CANCEL = 3;               (* sch/DB only; Cancel next execution of script *)
	DFG$K_CLASSIFY_DORM = 4;        (* dfg only; DORMANT files          *)
	DFG$K_CLASSIFY_FREQ = 5;        (* dfg only; FREQUENTLY accessed files *)
	DFG$K_DFG_FLAGS = 6;            (* dfg only; Flags.                 *)
	DFG$K_DISABLE = 7;              (* sch/DB only; Disable specified script(s) *)
	DFG$K_ENABLE = 8;               (* sch/DB only; Enable specified script(s) *)
	DFG$K_EXCLUDE = 9;              (* dfg only; EXCLUDE these          *)
	DFG$K_INHERIT = 10;             (* sch/DB only; INHERIT script      *)
	DFG$K_INTERVAL = 11;            (* sch/DB only; INTERVAL timespec   *)
	DFG$K_LOG = 12;                 (* dfg only; LOG=file-spec          *)
	DFG$K_MONITOR = 13;             (* sch/DB only; Turn on monitoring of specific engine *)
	DFG$K_NODE = 14;                (* sch/DB only; NODE name           *)
	DFG$K_OPTIONS = 15;             (* dfg only; OPTIONS=file-spec      *)
	DFG$K_OUTPUT = 16;              (* sch/DB only; OUTPUT=file-spec    *)
	DFG$K_PREDECESSOR = 17;         (* sch/DB only; PREDECESSOR=script  *)
	DFG$K_REMOVE = 18;              (* sch/DB only; REMOVE=script       *)
	DFG$K_SCH_FLAGS = 19;           (* sch/DB only; flags               *)
	DFG$K_SCRIPT = 20;              (* sch/DB only; SCRIPT=script-name  *)
	DFG$K_SET_CPU = 21;             (* sch/DB only; set max cpu %       *)
	DFG$K_SET_IO = 22;              (* sch/DB only; set max io%         *)
	DFG$K_SET_PROCESSES = 23;       (* sch/DB only; set max dfgs        *)
	DFG$K_SHOW_CPU = 24;            (* sch/DB only; Max cpu setting     *)
	DFG$K_SHOW_IO = 25;             (* sch/DB only; Max IO setting      *)
	DFG$K_SHOW_PROCESSES = 26;      (* sch/DB only; show max proc       *)
	DFG$K_SHOW_SCRIPT = 27;         (* sch/DB only; Show script         *)
	DFG$K_START = 28;               (* sch/DB only; Start already-defined script *)
	DFG$K_TIME_LIMIT = 29;          (* sch/DB only; TIME_LIMIT=timespec *)
	DFG$K_VOLUME = 30;              (* dfg only; VOLUME=volume-name     *)
	DFG$K_FILE = 31;                (* dfg only; List of files to defragment *)
	DFG$K_MODIFY = 32;              (* sch/DB only; modify existing script *)
	DFG$K_PRE_PROCESS = 33;         (* dfg only; pre-processing command file *)
	DFG$K_POST_PROCESS = 34;        (* dfg only; post-processing command file *)
	DFG$K_OFFLINE = 35;             (* dfg only; If this is a defrag of INDEXF.SYS *)
	DFG$K_MAX_ITEM_CODE = 35;
	DFG$K_SHOW_SCRIPT_DFG_FLAGS = 1;
	DFG$K_SHOW_SCRIPT_DORMANT = 2;
	DFG$K_SHOW_SCRIPT_ENABLE = 3;
	DFG$K_SHOW_SCRIPT_EXCLUDE = 4;
	DFG$K_SHOW_SCRIPT_FREQUENT = 5;
	DFG$K_SHOW_SCRIPT_INTERVAL = 6;
	DFG$K_SHOW_SCRIPT_LOG = 7;
	DFG$K_SHOW_SCRIPT_NODE = 8;
	DFG$K_SHOW_SCRIPT_OPTIONS = 9;
	DFG$K_SHOW_SCRIPT_PREDECESSOR = 10;
	DFG$K_SHOW_SCRIPT_Q_ACTION = 11;
	DFG$K_SHOW_SCRIPT_Q_CANCEL = 12;
	DFG$K_SHOW_SCRIPT_Q_REMAINING = 13;
	DFG$K_SHOW_SCRIPT_Q_START_TIME = 14;
	DFG$K_SHOW_SCRIPT_Q_STATUS = 15;
	DFG$K_SHOW_SCRIPT_SCH_FLAGS = 16;
	DFG$K_SHOW_SCRIPT_SCRIPT = 17;
	DFG$K_SHOW_SCRIPT_SUCCESSOR = 18;
	DFG$K_SHOW_SCRIPT_TIME_LIMIT = 19;
	DFG$K_SHOW_SCRIPT_VOLUME = 20;
	DFG$K_SHOW_SCRIPT_FILE = 21;
	DFG$K_SHOW_SCRIPT_POST_PROC = 22;
	DFG$K_SHOW_SCRIPT_PRE_PROC = 23;
	DFG$K_MAX_SHOW_SCRIPT_CODES = 23;
	DFG$K_ABORT_ISSUED = 1;
	DFG$K_ABORT_NOT_ISSUED = 2;
	DFG$K_ENGINE_ABORTED = 3;
	DFG$K_ENGINE_TERMINATED = 4;
	DFG$M_CONTINUOUS = 1;
	DFG$M_FILE_COMMAND = 2;
	DFG$M_SPARE_SCH = -4;
 
TYPE	SCH_FLAGS = RECORD
	    DFG$V_CONTINUOUS : [POS(0)] $BOOL;
	    DFG$V_FILE_COMMAND : [POS(1)] $BOOL;
	    DFG$V_SPARE_SCH : [POS(2)] $BIT30;
	END;
 
CONST	DFG$K_ALL_SCH_FLAGS = 3;
	DFG$M_OFFLINE_MODE = 1;
	DFG$M_FULL = 2;
	DFG$M_HONOR = 4;
	DFG$M_INDEXED = 8;
	DFG$M_LEVEL = 112;
	DFG$M_LOG = 128;
	DFG$M_NOTIFY = 256;
	DFG$M_VOLSET = 512;
	DFG$M_WRITE_CHECK = 1024;
	DFG$M_DEFAULT_PRIORITY = 63488;
	DFG$M_ISSUE_OPCOM = 65536;
	DFG$M_LOW_PRIORITY = 4063232;
	DFG$M_USE_VPA = 4194304;
	DFG$M_RVN_TO_DEFRAG = 2139095040;
	DFG$M_CONSOLIDATE_FREESPACE = -2147483648;
 
TYPE	DFG_FLAGS = RECORD
	    DFG$V_OFFLINE_MODE : [POS(0)] $BOOL; (* Supersedes "ERASE" bit  *)
	    DFG$V_FULL : [POS(1)] $BOOL; (* Use Full option for error log   *)
	    DFG$V_HONOR : [POS(2)] $BOOL; (* Honor file placement in header *)
	    DFG$V_INDEXED : [POS(3)] $BOOL; (* Ok to place indexed files    *)
	    DFG$V_LEVEL : [POS(4)] $BIT3; (* Defrag level                   *)
	    DFG$V_LOG : [POS(7)] $BOOL; (* Log file needed from defrag      *)
	    DFG$V_NOTIFY : [POS(8)] $BOOL; (* Notify on start/complete via opcom *)
	    DFG$V_VOLSET : [POS(9)] $BOOL; (* Volume is a volume set        *)
	    DFG$V_WRITE_CHECK : [POS(10)] $BOOL; (* Perform write check on every file moved *)
	    DFG$V_DEFAULT_PRIORITY : [POS(11)] $BIT5; (* Def priority of DFO proc *)
	    DFG$V_ISSUE_OPCOM : [POS(16)] $BOOL; (* Whether to issue opcom msgs *)
	    DFG$V_LOW_PRIORITY : [POS(17)] $BIT5; (* Lowest priority of DFO proc *)
	    DFG$V_USE_VPA : [POS(22)] $BOOL; (* Call DECps (VPA) for hotfiles *)
	    DFG$V_RVN_TO_DEFRAG : [POS(23)] $BIT8; (* RVN of multivolume set (0 for all) *)
	    DFG$V_CONSOLIDATE_FREESPACE : [POS(31)] $BOOL; (* Consolidate freespace *)
	END;
 
CONST	DFG$K_ALL_DFG_FLAGS = -1;
	DFG$K_MIN_DEFRAG_LEVEL = 0;
	DFG$K_LEVEL_1 = 0;              (* Candidates: all files that are not contiguous *)
	DFG$K_LEVEL_2 = 1;              (* Candidates: all files that have more than a *)
 
(* window-turn's worth of extents                                           *)
 
CONST	DFG$K_LEVEL_3 = 2;              (* Candidates: all files that have more than one *)
 
(* header                                                                   *)
 
CONST	DFG$K_LEVEL_4 = 3;              (* Free space consolidation only    *)
	DFG$K_LEVEL_5 = 4;              (* No defragmentation; analysis only *)
	DFG$K_MAX_DEFRAG_LEVEL = 4;
 
TYPE	INHERIT_MASK = RECORD
	    DFG$V_INHERIT_AFTER : [POS(0)] $BOOL;
	    DFG$V_INHERIT_DORMANT : [POS(1)] $BOOL;
	    DFG$V_INHERIT_EXCLUDE : [POS(2)] $BOOL;
	    DFG$V_INHERIT_FREQUENT : [POS(3)] $BOOL;
	    DFG$V_INHERIT_INTERVAL : [POS(4)] $BOOL;
	    DFG$V_INHERIT_LOG : [POS(5)] $BOOL;
	    DFG$V_INHERIT_NODE : [POS(6)] $BOOL;
	    DFG$V_INHERIT_OPTIONS : [POS(7)] $BOOL;
	    DFG$V_INHERIT_PREDECESSOR : [POS(8)] $BOOL;
	    DFG$V_INHERIT_TIME_LIMIT : [POS(9)] $BOOL;
	    DFG$V_INHERIT_FILE : [POS(10)] $BOOL;
	    DFG$V_INHERIT_POST_PROC : [POS(11)] $BOOL;
	    DFG$V_INHERIT_PRE_PROC : [POS(12)] $BOOL;
	    DFG$V_INHERIT_SCRIPT : [POS(13)] $BOOL;
	    DFG$V_INHERIT_FILL : [POS(14)] $BIT18;
	END;
 
CONST	DFG$K_ALL_SCRIPTS = 67305985;
	DFG$K_SCRIPT_NAME_MAX_SIZE = 64;
	DFG$K_HIGH_PRIORITY = 15;
 
END.