--******************************************************************************************************************** -- Created: 9-Mar-2021 22:28:20 by OpenVMS SDL EV3-3 -- Source: 17-DEC-1993 12:37:45 $1$DGA8085:[LIB_ADA.LIS]DJIDEF.SDL;1 --******************************************************************************************************************** with SYSTEM; use SYSTEM; with STARLET; use STARLET; with CONDITION_HANDLING; use CONDITION_HANDLING; package DJIDEF is -- module $DJIDEF -- -- Item codes for interface from job controller to LOGINOUT. -- DJI_K_CPU_MAXIMUM : constant := 1; -- (longword) CPU maximum (10 ms units) DJI_K_FILE_IDENTIFICATION : constant := 2; -- (28 bytes) DVI, FID, DID of command procedure DJI_K_FLAGS : constant := 3; -- (longword) flags DJI_K_JOB_NAME : constant := 4; -- (string) job name DJI_K_LOG_QUEUE : constant := 5; -- (string) log file queue DJI_K_LOG_SPECIFICATION : constant := 6; -- (string) log file specification DJI_K_PARAMETER_1 : constant := 7; -- (string) value of P1 DJI_K_PARAMETER_2 : constant := 8; -- (string) value of P2 DJI_K_PARAMETER_3 : constant := 9; -- (string) value of P3 DJI_K_PARAMETER_4 : constant := 10; -- (string) value of P4 DJI_K_PARAMETER_5 : constant := 11; -- (string) value of P5 DJI_K_PARAMETER_6 : constant := 12; -- (string) value of P6 DJI_K_PARAMETER_7 : constant := 13; -- (string) value of P7 DJI_K_PARAMETER_8 : constant := 14; -- (string) value of P8 DJI_K_RESTART : constant := 15; -- (string) value of BATCH$RESTART DJI_K_USERNAME : constant := 16; -- (string) username DJI_K_WSDEFAULT : constant := 17; -- (longword) working set default DJI_K_WSEXTENT : constant := 18; -- (longword) working set extent DJI_K_WSQUOTA : constant := 19; -- (longword) working set quota DJI_K_ADJUST_PRIORITY : constant := 20; -- (longword) adjusted priority DJI_K_CLI : constant := 21; -- (string) CLI name DJI_K_CLASS : constant := 22; -- (20 bytes) process classification DJI_K_NOTE : constant := 23; -- (string) the job's note DJI_K_CHARGE_CODE_NAME : constant := 24; -- (string) account or charge code name DJI_K_INPUT_FLAGS : constant := 32769; -- (longword) flags DJI_K_CONDITION_VECTOR : constant := 32770; -- (1 to 3 longwords) error conditions DJI_K_FILE_SPECIFICATION : constant := 32771; -- (string) filespec of failed logfile type DJI_ITEM_HEADER_TYPE is record ITEM_SIZE : UNSIGNED_WORD; -- Item size ITEM_CODE : UNSIGNED_WORD; -- Item code end record; for DJI_ITEM_HEADER_TYPE use record ITEM_SIZE at 0 range 0 .. 15; ITEM_CODE at 2 range 0 .. 15; end record; for DJI_ITEM_HEADER_TYPE'SIZE use 32; DJI_ITEM_HEADER_TYPE_INIT : constant DJI_ITEM_HEADER_TYPE := (ITEM_SIZE => 0, ITEM_CODE => 0); DJI_S_ITEM_HEADER : constant := 4; -- Size (using prior aggregate name) -- -- Structure of FLAGS item. -- DJI_M_DELETE_FILE : constant := 16#00000001#; DJI_M_LOG_DELETE : constant := 16#00000002#; DJI_M_LOG_NULL : constant := 16#00000004#; DJI_M_LOG_SPOOL : constant := 16#00000008#; DJI_M_NOTIFY : constant := 16#00000010#; DJI_M_RESTARTING : constant := 16#00000020#; DJI_M_TERMINATE : constant := 16#00000040#; DJI_M_USE_CPU_MAXIMUM : constant := 16#00000080#; DJI_M_USE_WSDEFAULT : constant := 16#00000100#; DJI_M_USE_WSEXTENT : constant := 16#00000200#; DJI_M_USE_WSQUOTA : constant := 16#00000400#; DJI_S_FLAGS : constant := 4; -- Old size name synonym type DJI_FLAGS_TYPE is record DELETE_FILE : BOOLEAN; -- delete command procedure LOG_DELETE : BOOLEAN; -- delete log file LOG_NULL : BOOLEAN; -- log specification is NLA0: LOG_SPOOL : BOOLEAN; -- spool log file NOTIFY : BOOLEAN; -- spool log file with /NOTIFY RESTARTING : BOOLEAN; -- job is restarting TERMINAT : BOOLEAN; -- job should terminate USE_CPU_MAXIMUM : BOOLEAN; -- use specified CPU_MAXIMUM USE_WSDEFAULT : BOOLEAN; -- use specified WSDEFAULT USE_WSEXTENT : BOOLEAN; -- use specified WSEXTENT USE_WSQUOTA : BOOLEAN; -- use specified WSQUOTA FILLER_1 : UNSIGNED_21; end record; for DJI_FLAGS_TYPE use record DELETE_FILE at 0 range 0 .. 0; LOG_DELETE at 0 range 1 .. 1; LOG_NULL at 0 range 2 .. 2; LOG_SPOOL at 0 range 3 .. 3; NOTIFY at 0 range 4 .. 4; RESTARTING at 0 range 5 .. 5; TERMINAT at 0 range 6 .. 6; USE_CPU_MAXIMUM at 0 range 7 .. 7; USE_WSDEFAULT at 1 range 0 .. 0; USE_WSEXTENT at 1 range 1 .. 1; USE_WSQUOTA at 1 range 2 .. 2; FILLER_1 at 1 range 3 .. 23; end record; for DJI_FLAGS_TYPE'SIZE use 32; DJI_FLAGS_TYPE_INIT : constant DJI_FLAGS_TYPE := (DELETE_FILE => FALSE, LOG_DELETE => FALSE, LOG_NULL => FALSE, LOG_SPOOL => FALSE, NOTIFY => FALSE, RESTARTING => FALSE, TERMINAT => FALSE, USE_CPU_MAXIMUM => FALSE, USE_WSDEFAULT => FALSE, USE_WSEXTENT => FALSE, USE_WSQUOTA => FALSE, FILLER_1 => 0); type DJI_FLAGS_TYPE is record FLAGS : DJI_FLAGS_TYPE; end record; for DJI_FLAGS_TYPE use record FLAGS at 0 range 0 .. 31; end record; for DJI_FLAGS_TYPE'SIZE use 32; DJI_FLAGS_TYPE_INIT : constant DJI_FLAGS_TYPE := ( FLAGS => DJI_FLAGS_TYPE_INIT ); -- -- Structure of INPUT_FLAGS item. -- DJI_M_NO_FILE : constant := 16#00000001#; DJI_S_INPUT_FLAGS : constant := 4; -- Old size name synonym type DJI_INPUT_FLAGS_TYPE is record NO_FILE : BOOLEAN; -- do not return a file FILLER_1 : UNSIGNED_31; end record; for DJI_INPUT_FLAGS_TYPE use record NO_FILE at 0 range 0 .. 0; FILLER_1 at 0 range 1 .. 31; end record; for DJI_INPUT_FLAGS_TYPE'SIZE use 32; DJI_INPUT_FLAGS_TYPE_INIT : constant DJI_INPUT_FLAGS_TYPE := (NO_FILE => FALSE, FILLER_1 => 0); type DJI_INPUT_FLAGS_TYPE is record INPUT_FLAGS : DJI_INPUT_FLAGS_TYPE; end record; for DJI_INPUT_FLAGS_TYPE use record INPUT_FLAGS at 0 range 0 .. 31; end record; for DJI_INPUT_FLAGS_TYPE'SIZE use 32; DJI_INPUT_FLAGS_TYPE_INIT : constant DJI_INPUT_FLAGS_TYPE := ( INPUT_FLAGS => DJI_INPUT_FLAGS_TYPE_INIT ); end DJIDEF;