--******************************************************************************************************************** -- Created: 9-Mar-2021 22:28:35 by OpenVMS SDL EV3-3 -- Source: 23-JUN-2004 13:16:13 $1$DGA8085:[LIB_ADA.LIS]RMSPUBSTR.SDL;1 --******************************************************************************************************************** with SYSTEM; use SYSTEM; with STARLET; use STARLET; with CONDITION_HANDLING; use CONDITION_HANDLING; package RMSPUBSTR is -- module $FSBDEF -- -- FSB field definitions -- -- File statistics block (fsb) -- -- An FSB is associated with a file when the ACE$V_STATISTICS -- bit is set in the RMS attributes ACE. It is used to keep track -- of RMS file statistics. -- FSB_M_PRIVATE : constant := 16#00000001#; FSB_M_RMSDEV : constant := 16#00000002#; FSB_C_BID : constant := 25; -- fsb id code FSB_K_STANDARD_BLN : constant := 276; -- Length of FSB without RMS development specific fields FSB_C_STANDARD_BLN : constant := 276; -- Length of FSB without RMS development specific fields -- Reserved for RMS development private monitoring FSBFLG_GET : constant := 0; -- Flags used for keeping track of relative file statistics updates FSBFLG_FIND : constant := 1; FSBFLG_PUT : constant := 2; FSBFLG_UPDATE : constant := 3; FSBFLG_DELETE : constant := 4; FSBFLG_MAX : constant := 5; FSB_K_VERSION : constant := 1; -- Current version of FSB FSB_C_VERSION : constant := 1; -- Current version of FSB FSB_C_SEQ : constant := 1; FSB_C_REL : constant := 2; FSB_C_IDX : constant := 3; -- File organization constants FSB_K_BLN : constant := 384; -- Length of FSB FSB_C_BLN : constant := 384; -- Length of FSB FSB_S_FSBDEF : constant := 384; -- Old size name - synonym type FSB_FLAGS_TYPE is -- fsb flags record PRIVAT : BOOLEAN; -- FSB is for only one stream RMSDEV : BOOLEAN; -- Reserved RMS fields being used FILLER_1 : UNSIGNED_14; end record; for FSB_FLAGS_TYPE use record PRIVAT at 0 range 0 .. 0; RMSDEV at 0 range 1 .. 1; FILLER_1 at 0 range 2 .. 15; end record; for FSB_FLAGS_TYPE'SIZE use 16; FSB_FLAGS_TYPE_INIT : constant FSB_FLAGS_TYPE := (PRIVAT => FALSE, RMSDEV => FALSE, FILLER_1 => 0); type FSB_TYPE is record FILLER_1 : UNSIGNED_BYTE_ARRAY (1 .. 6); -- first three longwords unused FLAGS : FSB_FLAGS_TYPE; -- fsb flags BID : UNSIGNED_BYTE; -- block id BLN : UNSIGNED_BYTE; -- block length in longwords ORG : UNSIGNED_BYTE; -- file organization VERSION : UNSIGNED_BYTE; -- current version of FSB SEQGETS : UNSIGNED_LONGWORD; -- # of sequential gets to file KEYGETS : UNSIGNED_LONGWORD; -- # of keyed gets to file RFAGETS : UNSIGNED_LONGWORD; -- # of gets by RFA to file GETBYTES : UNSIGNED_QUADWORD; -- Total size of all gets in bytes SEQPUTS : UNSIGNED_LONGWORD; -- # of sequential puts KEYPUTS : UNSIGNED_LONGWORD; -- # of puts by key PUTBYTES : UNSIGNED_QUADWORD; -- Total size of all puts in bytes UPDATES : UNSIGNED_LONGWORD; -- # of updates UPDATEBYTES : UNSIGNED_QUADWORD; -- Total size of all updates in bytes DELETES : UNSIGNED_LONGWORD; -- # of deletes TRUNCATES : UNSIGNED_LONGWORD; -- # of truncates TRUNCBLKS : UNSIGNED_LONGWORD; -- Total size in blocks of all truncates SEQFINDS : UNSIGNED_LONGWORD; -- # of sequential finds KEYFINDS : UNSIGNED_LONGWORD; -- # of keyed finds RFAFINDS : UNSIGNED_LONGWORD; -- # of finds by RFA READS : UNSIGNED_LONGWORD; -- # of $READs to file READBYTES : UNSIGNED_QUADWORD; -- # of bytes of all $READs CONNECTS : UNSIGNED_LONGWORD; -- # of connects to this file DISCONNECTS : UNSIGNED_LONGWORD; -- # of disconnects from file EXTENDS : UNSIGNED_LONGWORD; -- # of extends of file EXTBLOCKS : UNSIGNED_LONGWORD; -- # of blocks file has been extended FLUSHES : UNSIGNED_LONGWORD; -- # of flushes of file REWINDS : UNSIGNED_LONGWORD; -- # of rewinds of file WRITES : UNSIGNED_LONGWORD; -- # of $WRITEs to file WRITEBYTES : UNSIGNED_QUADWORD; -- # of bytes of all $WRITEs to file FLCKENQS : UNSIGNED_LONGWORD; -- # of file lock ENQ's FLCKDEQS : UNSIGNED_LONGWORD; -- # of file lock DEQ's FLCKCNVS : UNSIGNED_LONGWORD; -- # of file lock conversions LBLCKENQS : UNSIGNED_LONGWORD; -- # of local buffer lock ENQ's LBLCKDEQS : UNSIGNED_LONGWORD; -- # of local buffer lock DEQ's LBLCKCNVS : UNSIGNED_LONGWORD; -- # of local buffer lock conversions GBLCKENQS : UNSIGNED_LONGWORD; -- # of global buffer lock ENQ's GBLCKDEQS : UNSIGNED_LONGWORD; -- # of global buffer lock DEQ's GBLCKCNVS : UNSIGNED_LONGWORD; -- # of global buffer lock conversions GSLCKENQS : UNSIGNED_LONGWORD; -- # of global section lock ENQ's GSLCKDEQS : UNSIGNED_LONGWORD; -- # of global section lock DEQ's GSLCKCNVS : UNSIGNED_LONGWORD; -- # of global section lock conversions RLCKENQS : UNSIGNED_LONGWORD; -- # of record lock ENQ's RLCKDEQS : UNSIGNED_LONGWORD; -- # of record lock DEQ's RLCKCNVS : UNSIGNED_LONGWORD; -- # of record lock conversions APPLCKENQS : UNSIGNED_LONGWORD; -- # of append lock ENQ's APPLCKDEQS : UNSIGNED_LONGWORD; -- # of append lock DEQ's APPLCKCNVS : UNSIGNED_LONGWORD; -- # of append lock conversions FLBLKASTS : UNSIGNED_LONGWORD; -- # of file lock blocking ASTs queued LBLBLKASTS : UNSIGNED_LONGWORD; -- # of local buffer lock blocking ASTs queued GBLBLKASTS : UNSIGNED_LONGWORD; -- # of global buffer lock blocking ASTs queued APPBLKASTS : UNSIGNED_LONGWORD; -- # of shared append lock blocking ASTs queued LCACHEHITS : UNSIGNED_LONGWORD; -- # of cache hits on local buffers LCACHE_ATTEMPTS : UNSIGNED_LONGWORD; -- # of attempts to use the local buffer cache GCACHEHITS : UNSIGNED_LONGWORD; -- # of cache hits on global buffers GCACHE_ATTEMPTS : UNSIGNED_LONGWORD; -- # of attempts to use the global buffer cache GBRDIRIOS : UNSIGNED_LONGWORD; -- # of direct io's due to global buffer reads GBWDIRIOS : UNSIGNED_LONGWORD; -- # of direct io's due to global buffer writes LBRDIRIOS : UNSIGNED_LONGWORD; -- # of direct io's due to local buffer reads LBWDIRIOS : UNSIGNED_LONGWORD; -- # of direct io's due to local buffer writes BKTSPLT : UNSIGNED_LONGWORD; -- # of 2 bucket splits MBKTSPLT : UNSIGNED_LONGWORD; -- # of multi-bucket splits OPENS : UNSIGNED_LONGWORD; -- # of times the file is opened CLOSES : UNSIGNED_LONGWORD; -- # of times the file is closed GSBLKASTS : UNSIGNED_LONGWORD; -- # of global section lock blocking ASTs queued XQPQIOS : UNSIGNED_LONGWORD; -- Count of XQP QIOs requested by RMS FLWAITS : UNSIGNED_LONGWORD; -- # of waits forced by getting the file lock LBWAITS : UNSIGNED_LONGWORD; -- # of waits forced by getting local buffer locks GBWAITS : UNSIGNED_LONGWORD; -- # of waits forced by getting global buffer locks GSWAITS : UNSIGNED_LONGWORD; -- # of waits forced by getting the global section lock RLWAITS : UNSIGNED_LONGWORD; -- # of waits forced by getting record locks APWAITS : UNSIGNED_LONGWORD; -- # of waits forced by getting the Append lock TOTWAITS : UNSIGNED_LONGWORD; -- Total # of waits (or stalls) performed by RMS. OUTBUFQUO : UNSIGNED_LONGWORD; -- Number of times a process runs out of global buffer quota RMSDEV1 : UNSIGNED_LONGWORD; -- Reserved for RMS development private monitoring RMSDEV2 : UNSIGNED_LONGWORD; -- Reserved for RMS development private monitoring RMSDEV3 : UNSIGNED_LONGWORD; -- Reserved for RMS development private monitoring RMSDEV4 : UNSIGNED_LONGWORD; -- Reserved for RMS development private monitoring RMSDEV5 : UNSIGNED_LONGWORD; -- Reserved for RMS development private monitoring RMSDEV6 : UNSIGNED_LONGWORD; -- Reserved for RMS development private monitoring RMSDEV7 : UNSIGNED_LONGWORD; -- Reserved for RMS development private monitoring RMSDEV8 : UNSIGNED_LONGWORD; -- Reserved for RMS development private monitoring RMSDEV9 : UNSIGNED_LONGWORD; -- Reserved for RMS development private monitoring RMSDEV10 : UNSIGNED_LONGWORD; -- Reserved for RMS development private monitoring RMSDEV11 : UNSIGNED_LONGWORD; -- Reserved for RMS development private monitoring RMSDEV12 : UNSIGNED_LONGWORD; -- Reserved for RMS development private monitoring RMSDEV13 : UNSIGNED_LONGWORD; -- Reserved for RMS development private monitoring RMSDEV14 : UNSIGNED_LONGWORD; -- Reserved for RMS development private monitoring RMSDEV15 : UNSIGNED_LONGWORD; -- Reserved for RMS development private monitoring INTCOL_GBHSH : UNSIGNED_LONGWORD; -- Interlock collision on global buffer hash table ----Component(s) below are defined as comments since they ----overlap other fields ---- ----INTCOL_HSHTBL : UNSIGNED_LONGWORD; -- Old field name for compatibility INTCOL_GBH : UNSIGNED_LONGWORD; -- Interlock Collision on global buffer header INTRNDWN_GBHSH : UNSIGNED_LONGWORD; -- Interlock still held at rundown on GBHSH ----Component(s) below are defined as comments since they ----overlap other fields ---- ----INTRES_SETIMR : UNSIGNED_LONGWORD; -- Old field name for compatibility INTRNDWN_GBH : UNSIGNED_LONGWORD; -- Interlock still held at rundown on GBH ----Component(s) below are defined as comments since they ----overlap other fields ---- ----INTNOTRES : UNSIGNED_LONGWORD; -- Old field name for compatibility end record; for FSB_TYPE use record FILLER_1 at 0 range 0 .. 47; FLAGS at 6 range 0 .. 15; BID at 8 range 0 .. 7; BLN at 9 range 0 .. 7; ORG at 10 range 0 .. 7; VERSION at 11 range 0 .. 7; SEQGETS at 12 range 0 .. 31; KEYGETS at 16 range 0 .. 31; RFAGETS at 20 range 0 .. 31; GETBYTES at 24 range 0 .. 63; SEQPUTS at 32 range 0 .. 31; KEYPUTS at 36 range 0 .. 31; PUTBYTES at 40 range 0 .. 63; UPDATES at 48 range 0 .. 31; UPDATEBYTES at 52 range 0 .. 63; DELETES at 60 range 0 .. 31; TRUNCATES at 64 range 0 .. 31; TRUNCBLKS at 68 range 0 .. 31; SEQFINDS at 72 range 0 .. 31; KEYFINDS at 76 range 0 .. 31; RFAFINDS at 80 range 0 .. 31; READS at 84 range 0 .. 31; READBYTES at 88 range 0 .. 63; CONNECTS at 96 range 0 .. 31; DISCONNECTS at 100 range 0 .. 31; EXTENDS at 104 range 0 .. 31; EXTBLOCKS at 108 range 0 .. 31; FLUSHES at 112 range 0 .. 31; REWINDS at 116 range 0 .. 31; WRITES at 120 range 0 .. 31; WRITEBYTES at 124 range 0 .. 63; FLCKENQS at 132 range 0 .. 31; FLCKDEQS at 136 range 0 .. 31; FLCKCNVS at 140 range 0 .. 31; LBLCKENQS at 144 range 0 .. 31; LBLCKDEQS at 148 range 0 .. 31; LBLCKCNVS at 152 range 0 .. 31; GBLCKENQS at 156 range 0 .. 31; GBLCKDEQS at 160 range 0 .. 31; GBLCKCNVS at 164 range 0 .. 31; GSLCKENQS at 168 range 0 .. 31; GSLCKDEQS at 172 range 0 .. 31; GSLCKCNVS at 176 range 0 .. 31; RLCKENQS at 180 range 0 .. 31; RLCKDEQS at 184 range 0 .. 31; RLCKCNVS at 188 range 0 .. 31; APPLCKENQS at 192 range 0 .. 31; APPLCKDEQS at 196 range 0 .. 31; APPLCKCNVS at 200 range 0 .. 31; FLBLKASTS at 204 range 0 .. 31; LBLBLKASTS at 208 range 0 .. 31; GBLBLKASTS at 212 range 0 .. 31; APPBLKASTS at 216 range 0 .. 31; LCACHEHITS at 220 range 0 .. 31; LCACHE_ATTEMPTS at 224 range 0 .. 31; GCACHEHITS at 228 range 0 .. 31; GCACHE_ATTEMPTS at 232 range 0 .. 31; GBRDIRIOS at 236 range 0 .. 31; GBWDIRIOS at 240 range 0 .. 31; LBRDIRIOS at 244 range 0 .. 31; LBWDIRIOS at 248 range 0 .. 31; BKTSPLT at 252 range 0 .. 31; MBKTSPLT at 256 range 0 .. 31; OPENS at 260 range 0 .. 31; CLOSES at 264 range 0 .. 31; GSBLKASTS at 268 range 0 .. 31; XQPQIOS at 272 range 0 .. 31; FLWAITS at 276 range 0 .. 31; LBWAITS at 280 range 0 .. 31; GBWAITS at 284 range 0 .. 31; GSWAITS at 288 range 0 .. 31; RLWAITS at 292 range 0 .. 31; APWAITS at 296 range 0 .. 31; TOTWAITS at 300 range 0 .. 31; OUTBUFQUO at 304 range 0 .. 31; RMSDEV1 at 308 range 0 .. 31; RMSDEV2 at 312 range 0 .. 31; RMSDEV3 at 316 range 0 .. 31; RMSDEV4 at 320 range 0 .. 31; RMSDEV5 at 324 range 0 .. 31; RMSDEV6 at 328 range 0 .. 31; RMSDEV7 at 332 range 0 .. 31; RMSDEV8 at 336 range 0 .. 31; RMSDEV9 at 340 range 0 .. 31; RMSDEV10 at 344 range 0 .. 31; RMSDEV11 at 348 range 0 .. 31; RMSDEV12 at 352 range 0 .. 31; RMSDEV13 at 356 range 0 .. 31; RMSDEV14 at 360 range 0 .. 31; RMSDEV15 at 364 range 0 .. 31; INTCOL_GBHSH at 368 range 0 .. 31; ----Component representation spec(s) below are defined as ----comments since they overlap other fields ---- ----INTCOL_HSHTBL at 368 range 0 .. 31; INTCOL_GBH at 372 range 0 .. 31; INTRNDWN_GBHSH at 376 range 0 .. 31; ----Component representation spec(s) below are defined as ----comments since they overlap other fields ---- ----INTRES_SETIMR at 376 range 0 .. 31; INTRNDWN_GBH at 380 range 0 .. 31; ----Component representation spec(s) below are defined as ----comments since they overlap other fields ---- ----INTNOTRES at 380 range 0 .. 31; end record; for FSB_TYPE'SIZE use 3072; FSB_TYPE_INIT : constant FSB_TYPE := (FILLER_1 => (others => 0), FLAGS => FSB_FLAGS_TYPE_INIT, BID => 0, BLN => 0, ORG => 0, VERSION => 0, SEQGETS => 0, KEYGETS => 0, RFAGETS => 0, GETBYTES => (0, 0), SEQPUTS => 0, KEYPUTS => 0, PUTBYTES => (0, 0), UPDATES => 0, UPDATEBYTES => (0, 0), DELETES => 0, TRUNCATES => 0, TRUNCBLKS => 0, SEQFINDS => 0, KEYFINDS => 0, RFAFINDS => 0, READS => 0, READBYTES => (0, 0), CONNECTS => 0, DISCONNECTS => 0, EXTENDS => 0, EXTBLOCKS => 0, FLUSHES => 0, REWINDS => 0, WRITES => 0, WRITEBYTES => (0, 0), FLCKENQS => 0, FLCKDEQS => 0, FLCKCNVS => 0, LBLCKENQS => 0, LBLCKDEQS => 0, LBLCKCNVS => 0, GBLCKENQS => 0, GBLCKDEQS => 0, GBLCKCNVS => 0, GSLCKENQS => 0, GSLCKDEQS => 0, GSLCKCNVS => 0, RLCKENQS => 0, RLCKDEQS => 0, RLCKCNVS => 0, APPLCKENQS => 0, APPLCKDEQS => 0, APPLCKCNVS => 0, FLBLKASTS => 0, LBLBLKASTS => 0, GBLBLKASTS => 0, APPBLKASTS => 0, LCACHEHITS => 0, LCACHE_ATTEMPTS => 0, GCACHEHITS => 0, GCACHE_ATTEMPTS => 0, GBRDIRIOS => 0, GBWDIRIOS => 0, LBRDIRIOS => 0, LBWDIRIOS => 0, BKTSPLT => 0, MBKTSPLT => 0, OPENS => 0, CLOSES => 0, GSBLKASTS => 0, XQPQIOS => 0, FLWAITS => 0, LBWAITS => 0, GBWAITS => 0, GSWAITS => 0, RLWAITS => 0, APWAITS => 0, TOTWAITS => 0, OUTBUFQUO => 0, RMSDEV1 => 0, RMSDEV2 => 0, RMSDEV3 => 0, RMSDEV4 => 0, RMSDEV5 => 0, RMSDEV6 => 0, RMSDEV7 => 0, RMSDEV8 => 0, RMSDEV9 => 0, RMSDEV10 => 0, RMSDEV11 => 0, RMSDEV12 => 0, RMSDEV13 => 0, RMSDEV14 => 0, RMSDEV15 => 0, INTCOL_GBHSH => 0, INTCOL_GBH => 0, INTRNDWN_GBHSH => 0, INTRNDWN_GBH => 0 ); -- module $RMSEDTDEF -- -- RMS Extension Dispatch Table -- -- The RMS extension dispatch table defines the vector area for RMS processing -- callouts. -- RMSEDT_K_CURVER : constant := 1; RMSEDT_C_CURVER : constant := 1; RMSEDT_K_XAB_DISPLAY : constant := 63; RMSEDT_K_LENGTH : constant := 180; RMSEDT_C_LENGTH : constant := 180; RMSEDT_S_RMSEDTDEF : constant := 180; -- Old size name - synonym type RMSEDT_TYPE is record SIZE : UNSIGNED_WORD; VERSION : UNSIGNED_BYTE; FLAGS : UNSIGNED_BYTE; CLOSE : ADDRESS; CONNECT : ADDRESS; CREATE : ADDRESS; IMPLIED_CREATE : ADDRESS; DELETE : ADDRESS; DISCONNECT : ADDRESS; DISPLAY : ADDRESS; ERASE : ADDRESS; IMPLIED_ERASE : ADDRESS; EXTEND : ADDRESS; AUTOEXTEND : ADDRESS; FIND : ADDRESS; FLUSH : ADDRESS; GET : ADDRESS; OPEN : ADDRESS; PUT : ADDRESS; READ : ADDRESS; RENAME : ADDRESS; IMPLIED_RENAME : ADDRESS; REWIND : ADDRESS; INIT_WCC_SEARCH : ADDRESS; NEXT_ECXT_SEARCH : ADDRESS; DELETE_WCC_SEARCH : ADDRESS; SPACE : ADDRESS; TRUNCATE : ADDRESS; UPDATE : ADDRESS; WRITE : ADDRESS; OPEN_LTJ : ADDRESS; CLOSE_LTJ : ADDRESS; FORMAT_JOURNAL : ADDRESS; WRITE_JOURNAL : ADDRESS; FLUSH_JOURNAL : ADDRESS; CREATE_RUJ : ADDRESS; CLOSE_RUJ : ADDRESS; DISPOSE_RU : ADDRESS; WRITE_RUJ : ADDRESS; FLUSH_RUJ : ADDRESS; LOCK_RECORD : ADDRESS; UNLOCK_RECORD : ADDRESS; UNLOCK_ALL_RECORDS : ADDRESS; IS_RECORD_LOCKED : ADDRESS; IS_RECORD_WRITE_LOCKED : ADDRESS; IS_RECORD_LOCK_HELD : ADDRESS; XAB_DISPATCH : ADDRESS; end record; for RMSEDT_TYPE use record SIZE at 0 range 0 .. 15; VERSION at 2 range 0 .. 7; FLAGS at 3 range 0 .. 7; CLOSE at 4 range 0 .. 31; CONNECT at 8 range 0 .. 31; CREATE at 12 range 0 .. 31; IMPLIED_CREATE at 16 range 0 .. 31; DELETE at 20 range 0 .. 31; DISCONNECT at 24 range 0 .. 31; DISPLAY at 28 range 0 .. 31; ERASE at 32 range 0 .. 31; IMPLIED_ERASE at 36 range 0 .. 31; EXTEND at 40 range 0 .. 31; AUTOEXTEND at 44 range 0 .. 31; FIND at 48 range 0 .. 31; FLUSH at 52 range 0 .. 31; GET at 56 range 0 .. 31; OPEN at 60 range 0 .. 31; PUT at 64 range 0 .. 31; READ at 68 range 0 .. 31; RENAME at 72 range 0 .. 31; IMPLIED_RENAME at 76 range 0 .. 31; REWIND at 80 range 0 .. 31; INIT_WCC_SEARCH at 84 range 0 .. 31; NEXT_ECXT_SEARCH at 88 range 0 .. 31; DELETE_WCC_SEARCH at 92 range 0 .. 31; SPACE at 96 range 0 .. 31; TRUNCATE at 100 range 0 .. 31; UPDATE at 104 range 0 .. 31; WRITE at 108 range 0 .. 31; OPEN_LTJ at 112 range 0 .. 31; CLOSE_LTJ at 116 range 0 .. 31; FORMAT_JOURNAL at 120 range 0 .. 31; WRITE_JOURNAL at 124 range 0 .. 31; FLUSH_JOURNAL at 128 range 0 .. 31; CREATE_RUJ at 132 range 0 .. 31; CLOSE_RUJ at 136 range 0 .. 31; DISPOSE_RU at 140 range 0 .. 31; WRITE_RUJ at 144 range 0 .. 31; FLUSH_RUJ at 148 range 0 .. 31; LOCK_RECORD at 152 range 0 .. 31; UNLOCK_RECORD at 156 range 0 .. 31; UNLOCK_ALL_RECORDS at 160 range 0 .. 31; IS_RECORD_LOCKED at 164 range 0 .. 31; IS_RECORD_WRITE_LOCKED at 168 range 0 .. 31; IS_RECORD_LOCK_HELD at 172 range 0 .. 31; XAB_DISPATCH at 176 range 0 .. 31; end record; for RMSEDT_TYPE'SIZE use 1440; RMSEDT_TYPE_INIT : constant RMSEDT_TYPE := (SIZE => 0, VERSION => 0, FLAGS => 0, CLOSE => ADDRESS_ZERO, CONNECT => ADDRESS_ZERO, CREATE => ADDRESS_ZERO, IMPLIED_CREATE => ADDRESS_ZERO, DELETE => ADDRESS_ZERO, DISCONNECT => ADDRESS_ZERO, DISPLAY => ADDRESS_ZERO, ERASE => ADDRESS_ZERO, IMPLIED_ERASE => ADDRESS_ZERO, EXTEND => ADDRESS_ZERO, AUTOEXTEND => ADDRESS_ZERO, FIND => ADDRESS_ZERO, FLUSH => ADDRESS_ZERO, GET => ADDRESS_ZERO, OPEN => ADDRESS_ZERO, PUT => ADDRESS_ZERO, READ => ADDRESS_ZERO, RENAME => ADDRESS_ZERO, IMPLIED_RENAME => ADDRESS_ZERO, REWIND => ADDRESS_ZERO, INIT_WCC_SEARCH => ADDRESS_ZERO, NEXT_ECXT_SEARCH => ADDRESS_ZERO, DELETE_WCC_SEARCH => ADDRESS_ZERO, SPACE => ADDRESS_ZERO, TRUNCATE => ADDRESS_ZERO, UPDATE => ADDRESS_ZERO, WRITE => ADDRESS_ZERO, OPEN_LTJ => ADDRESS_ZERO, CLOSE_LTJ => ADDRESS_ZERO, FORMAT_JOURNAL => ADDRESS_ZERO, WRITE_JOURNAL => ADDRESS_ZERO, FLUSH_JOURNAL => ADDRESS_ZERO, CREATE_RUJ => ADDRESS_ZERO, CLOSE_RUJ => ADDRESS_ZERO, DISPOSE_RU => ADDRESS_ZERO, WRITE_RUJ => ADDRESS_ZERO, FLUSH_RUJ => ADDRESS_ZERO, LOCK_RECORD => ADDRESS_ZERO, UNLOCK_RECORD => ADDRESS_ZERO, UNLOCK_ALL_RECORDS => ADDRESS_ZERO, IS_RECORD_LOCKED => ADDRESS_ZERO, IS_RECORD_WRITE_LOCKED => ADDRESS_ZERO, IS_RECORD_LOCK_HELD => ADDRESS_ZERO, XAB_DISPATCH => ADDRESS_ZERO); -- module $DISPLAY_WILDEF -- -- $DISPLAY_WILD -- -- Display File -- -- $DISPLAY_WILD fab, [err], [suc], ctx -- -- fab_rab = address of fab or rab -- -- err = address of user error completion routine -- -- suc = address of user success completion routine -- ctx = address of a longword used to hold the next ifi. -- procedure DISPLAY_WILD ( STATUS : out COND_VALUE_TYPE; -- return value FAB_RAB : in out FAB_TYPE; ERR : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; SUC : in AST_PROCEDURE_TYPE := AST_PROCEDURE_TYPE'NULL_PARAMETER; CTX : in out LONG_TYPE); pragma INTERFACE (EXTERNAL, DISPLAY_WILD); pragma IMPORT_VALUED_PROCEDURE (DISPLAY_WILD, "SYS$DISPLAY", (COND_VALUE_TYPE, FAB_TYPE, AST_PROCEDURE_TYPE, AST_PROCEDURE_TYPE, LONG_TYPE), (VALUE, REFERENCE, REFERENCE, REFERENCE, REFERENCE)); -- module $MODDEF -- -- RMS MODify definitions -- -- The following values identify various requests for non-standard rms -- functions. They are currently input to the $modify function in the -- ctx field of the fab only if the esc bit is set in fop (rab functions -- are also accepted). Incorrect use of these capabilties could cause -- RMS to fail, hence great caution should be exercised in their use. -- -- These functions are also called RME$C_xxxx. They are defined -- in the public module [STARLET]RMSUSR.SDL and cannot be changed. -- Any addition made to $MODDEF in this module should also be made to -- $RMEDEF in that module. -- -- FAB function calls MOD_C_SETRFM : constant := 1; -- change rfm, mrs, and fsz (if vfc) in ifab only MOD_C_PPFECHO : constant := 2; -- enable echo of SYS$INPUT to SYS$OUTPUT MOD_C_SETRCF : constant := 3; -- change recovery mode MOD_C_KEEP_LOCK_ON : constant := 4; -- Turn on Keep Lock behavior MOD_C_KEEP_LOCK_OFF : constant := 5; -- Turn off Keep Lock behavior MOD_C_RU_ACE_ON : constant := 6; -- Turn on RU ACE locking MOD_C_RU_ACE_OFF : constant := 7; -- Turn off RU ACE locking MOD_C_SET_RECATTR : constant := 8; -- change rfm, org, rat, mrs, and fsz (if vfc) in ifab only -- RAB function calls MOD_C_LOCK_RECORD : constant := 1; -- Lock a record MOD_C_ASSOCIATE : constant := 2; -- Associate a stream with a transaction end RMSPUBSTR;