RM2OPEN         RELATIVE SPECIFIC OPEN                           21-AUG-1978 21:54:18   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      42  DECLARATIONS

   (1)      65  RM$OPEN2  -  PROCESS RELATIVE FILE PROLOG

RM2OPEN         RELATIVE SPECIFIC OPEN                           21-AUG-1978 21:54:18   VAX-11 MACRO X0.3-11               Page   1

005                                                                                                                              (1)



                                     0000     1 	$BEGIN RM2OPEN,005,F$RMSOPEN2,<RELATIVE SPECIFIC OPEN>

                                     0000     2 

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977, 1978

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     7 ;

                                     0000     8 ; THIS SOFTWARE IS FURNISHED  UNDER A LICENSE FOR USE ONLY ON A SINGLE

                                     0000     9 ; COMPUTER  SYSTEM AND  MAY BE  COPIED ONLY WITH  THE INCLUSION OF THE

                                     0000    10 ; ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE, OR ANY OTHER COPIES THEREOF,

                                     0000    11 ; MAY NOT BE PROVIDED OR  OTHERWISE MADE AVAILABLE TO ANY OTHER PERSON

                                     0000    12 ; EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO AGREES TO THESE LICENSE

                                     0000    13 ; TERMS.  TITLE TO AND  OWNERSHIP OF THE  SOFTWARE  SHALL AT ALL TIMES

                                     0000    14 ; REMAIN IN DEC.

                                     0000    15 ;

                                     0000    16 ; THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE

                                     0000    17 ; AND SHOULD  NOT BE CONSTRUED  AS A COMMITMENT  BY DIGITAL  EQUIPMENT

                                     0000    18 ; CORPORATION.

                                     0000    19 ;

                                     0000    20 ; DEC ASSUMES  NO  RESPONSIBILITY  FOR  THE USE OR  RELIABILITY OF ITS

                                     0000    21 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.

                                     0000    22 ;

                                     0000    23 ;++

                                     0000    24 ; FACILITY: RMS32

                                     0000    25 ;

                                     0000    26 ; ABSTRACT:

                                     0000    27 ;	THIS MODULE PROVIDES THE ORGANIZATION-SPECIFIC

                                     0000    28 ;	OPEN PROCESSING FOR RELATIVE FILES.

                                     0000    29 ;

                                     0000    30 ; ENVIRONMENT:

                                     0000    31 ;		STAR PROCESSOR RUNNING STARLET EXEC.

                                     0000    32 ;

                                     0000    33 ; AUTHOR: L F LAVERDURE,	 CREATION DATE: 10-OCT-77

                                     0000    34 ;

                                     0000    35 ; MODIFIED BY:

                                     0000    36 ;

                                     0000    37 ;	L F LAVERDURE,   17-FEB-78  15:39

                                     0000    38 ;	J A KRYCKA,	 01-AUG-78  08:00

                                     0000    39 ; 01	- 

                                     0000    40 ;--

RM2OPEN         RELATIVE SPECIFIC OPEN                           21-AUG-1978 21:54:18   VAX-11 MACRO X0.3-11               Page   2

005             DECLARATIONS                                                                                                     (1)



                                     0000    42 	.SBTTL	DECLARATIONS

                                     0000    43 ;

                                     0000    44 ; INCLUDE FILES:

                                     0000    45 ;

                                     0000    46 

                                     0000    47 ;

                                     0000    48 ; MACROS:

                                     0000    49 ;

                                     0000    50 	$BDBDEF

                                     0000    51 	$FABDEF

                                     0000    52 	$IFBDEF

                                     0000    53 	$PLGDEF

                                     0000    54 	$RMSDEF

                                     0000    55 

                                     0000    56 ;

                                     0000    57 ; EQUATED SYMBOLS:

                                     0000    58 ;

                                     0000    59 

                                     0000    60 ;

                                     0000    61 ; OWN STORAGE:

                                     0000    62 ;

                                     0000    63 

RM2OPEN         RELATIVE SPECIFIC OPEN                           21-AUG-1978 21:54:18   VAX-11 MACRO X0.3-11               Page   3

005             RM$OPEN2  -  PROCESS RELATIVE FILE PROLOG                                                                        (1)



                                     0000    65 	.SBTTL RM$OPEN2  -  PROCESS RELATIVE FILE PROLOG

                                     0000    66 ;++

                                     0000    67 ; FUNCTIONAL DESCRIPTION:

                                     0000    68 ;

                                     0000    69 ;	THIS ROUTINE PERFORMS THE FILE OPEN FUNCTIONS THAT ARE

                                     0000    70 ;	SPECIFIC TO THE RELATIVE FILE ORGANIZATION, INCLUDING:

                                     0000    71 ;

                                     0000    72 ;	1  -  VERIFY INTER-PROCESS RECORD LOCKING NOT SPECIFIED

                                     0000    73 ;	      SINCE NOT YET IMPLEMENTED

                                     0000    74 ;	2  -  READING IN THE PROLOG AND SETTING THE EBK,DVBN,

                                     0000    75 ;	      AND MRN IFAB FIELDS BASED UPON ITS CONTENTS.

                                     0000    76 ;	3  -  SETTING THE MRN FAB FIELD.

                                     0000    77 ;

                                     0000    78 ; CALLING SEQUENCE:

                                     0000    79 ;

                                     0000    80 ;	ENTERED VIA CASE BRANCH FROM RMS$OPEN. RETURNS BY 

                                     0000    81 ;	JUMPING TO RM$COPRTN.

                                     0000    82 ;

                                     0000    83 ; INPUT PARAMETERS:

                                     0000    84 ;

                                     0000    85 ;	R11	IMPURE AREA ADDRESS

                                     0000    86 ;	R9	IFAB ADDRESS

                                     0000    87 ;	R8	FAB ADDRESS

                                     0000    88 ;

                                     0000    89 ; IMPLICIT INPUTS:

                                     0000    90 ;

                                     0000    91 ;	THE CONTENTS OF THE IFAB

                                     0000    92 ;

                                     0000    93 ; OUTPUT PARAMETERS:

                                     0000    94 ;

                                     0000    95 ;	R0		STATUS CODE

                                     0000    96 ;	R10		IFAB ADDR

                                     0000    97 ;	R1-R5,AP	DESTROYED

                                     0000    98 ;

                                     0000    99 ; IMPLICIT OUTPUTS:

                                     0000   100 ;

                                     0000   101 ;	VARIOUS FIELDS IN THE IFAB AND FAB ARE INITIALIZED.

                                     0000   102 ;

                                     0000   103 ; COMPLETION CODES:

                                     0000   104 ;

                                     0000   105 ;	STANDARD RMS, IN PARTICULAR SUC,PLG,SHR,RPL, AND VER.

                                     0000   106 ;

                                     0000   107 ; SIDE EFFECTS:

                                     0000   108 ;

                                     0000   109 ;	MAY WAIT QUITE SOME TIME FOR PROLOG TO BECOME

                                     0000   110 ;	FREE INITIALLY. LEAVES PROLOG LOCKED.

                                     0000   111 ;

                                     0000   112 ;--

RM2OPEN         RELATIVE SPECIFIC OPEN                           21-AUG-1978 21:54:18   VAX-11 MACRO X0.3-11               Page   4

005             RM$OPEN2  -  PROCESS RELATIVE FILE PROLOG                                                                        (1)



                                     0000   114 RM$OPEN2::

            69            3E     E0  0000   115 	BBS	#IFB$V_DAP,(R9),NTOPEN		; BRANCH IF NETWORK FILE OPEN

                          52         0003       

                                     0004   116 ;

                                     0004   117 ; CHECK RECORD LOCKING NOT REQUIRED

                                     0004   118 ;

            69            33     E0  0004   119 	BBS	#IFB$V_NORECLK,(R9),10$		; BRANCH IF NO RECORD LOCKING

                          06         0007       

                                 93  0008   120 	BITB	#<FAB$M_GET!FAB$M_PUT!FAB$M_UPD!FAB$M_DEL>,-

         17 A8            0F         0009   121 		FAB$B_SHR(R8)			; ANY SHARING?

                          4B     12  000C   122 	BNEQ	ERRSHR				; BRANCH IF YES

                                     000E   123 						; CAN'T DO CROSS PROCESS LOCKING

                                     000E   124 10$:

                                     000E   125 ;

                                     000E   126 ; READ AND PROCESS PROLOG

                                     000E   127 ;

            5A            59     D0  000E   128 	MOVL	R9,R10				; SET IFAB ADDR

                                     0011   129 	$CACHE	VBN=#1,SIZE=#512,FLAGS=LOCK,ERR=ERRRPL

                                     0022   130 						; READ THE PROLOG

                                     0022   131 						; (R5=BUFFER ADDR)

                          FFDB'  30  0022   132 	BSBW	RM$CHKSUM			; VALIDATE ITS CHECKSUM

            2B            50     E9  0025   133 	BLBC	R0,EXIT				; GET OUT ON ERROR

            01         74 A5     B1  0028   134 	CMPW	PLG$W_VER_NO(R5),#PLG$C_VER_NO	; SUPPORTED VERSION?

                          31     12  002C   135 	BNEQ	ERRPLV				; BRANCH IF NOT

                                     002E   136 ;

                                     002E   137 ; SET UP IFAB VALUES

                                     002E   138 ;

         44 A9         70 A5     D0  002E   139 	MOVL	PLG$L_EOF(R5),IFB$L_EBK(R9)	; COPY EOF VBN

         58 A9         68 A5     3C  0033   140 	MOVZWL	PLG$W_DVBN(R5),IFB$L_DVBN(R9)	; COPY VBN OF FIRST DATA BUCKET

         54 A9         6C A5     D0  0038   141 	MOVL	PLG$L_MRN(R5),IFB$L_MRN(R9)	; COPY MAX. RECORD NUMBER

                       48 A9     B4  003D   142 	CLRW	IFB$W_FFB(R9)			; SET BLK OFFSET=0

                                     0040   143 ;

                                     0040   144 ; SET MRN IN FAB AND BKS SIZE IN BYTES IN IFAB

                                     0040   145 ;

         38 A8         54 A9     D0  0040   146 SET:	MOVL	IFB$L_MRN(R9),FAB$L_MRN(R8)	; SET MRN

            50         4A A9     9A  0045   147 	MOVZBL	IFB$B_BKS(R9),R0		; GET BUCKET SIZE

                          17     13  0049   148 	BEQL	ERRIFA				; BRANCH IF 0

                                     004B   149 	ASSUME	IFB$W_BKS_RECS EQ IFB$W_BKS_BYTES+2

            50            09     9C  004B   150 	ROTL	#9,R0,IFB$W_BKS_BYTES(R10)	; COMPUTE BUCKET SIZE IN BYTES

                       5C AA         004E       

                                     0050   151 						; (ALSO ZEROES IFB$W_BKS_RECS)

                                     0050   152 	RMSSUC					; SHOW SUCCESS

                          FFAA'  31  0053   153 EXIT:	BRW	RM$COPRTN			; & REJOIN COMMON OPEN CODE

                                     0056   154 						; NOTE: THE BDB WILL

                                     0056   155 						; BE RELEASED THERE

                                     0056   156 ;++

                                     0056   157 ;

                                     0056   158 ;  PERFORM NETWORK OPEN FUNCTION

                                     0056   159 ;

                                     0056   160 ;--

                                     0056   161 NTOPEN:	$PSECT_BR	NF$NETWORK

                          FFFD'  30  0000   162 	BSBW	NT$OPEN2			; OPEN FILE ON REMOTE NODE

            03            50     E9  0003   163 	BLBC	R0,10$				; BRANCH OF ERROR

                          0037'  31  0006   164 	BRW	SET				; JOIN COMMON CODE

                          FFF4'  31  0009   165 10$:	BRW	RM$COPRTN			; JOIN COMMON CODE

                                     000C   166 	$PSECT_RESTORE

RM2OPEN         RELATIVE SPECIFIC OPEN                           21-AUG-1978 21:54:18   VAX-11 MACRO X0.3-11               Page   5

005             RM$OPEN2  -  PROCESS RELATIVE FILE PROLOG                                                                        (1)



                                     0059   168 ;++

                                     0059   169 ; HANDLE ERRORS

                                     0059   170 ;--

                                     0059   171 ERRSHR:	$PSECT_BR	L$RMS2

                                     0000   172 	RMSERR	SHR				; CROSS-PROCESS SHARING NOT YET IMPLEMENTED

                          FFF8'  31  0005   173 ERRXIT:	BRW	RM$COPRTN			; GO CLEAN UP

                                     0008   174 	$PSECT_RESTORE

                                     005C   175 ;

                                     005C   176 ERRRPL:	$PSECT_BR	L$RMS2

                                     0008   177 	RMSERR	RPL				; PROLOG READ ERROR

                                     000D   178 						; (STV HAS SS ERROR CODE)

                          F6     11  000D   179 	BRB	ERRXIT

                                     000F   180 	$PSECT_RESTORE

                                     005F   181 ;

                                     005F   182 ERRPLV:	$PSECT_BR	L$RMS2	

                                     000F   183 	RMSERR	PLV				; UNSUPPORTED PROLOG VERSION

                          EF     11  0014   184 	BRB	ERRXIT

                                     0016   185 	$PSECT_RESTORE

                                     0062   186 ;

                                     0062   187 ERRIFA:	$PSECT_BR	L$RMS2

         0C A8   0001841C 8F     D0  0016   188 	MOVL	#RMS$_BKS,FAB$L_STV(R8)		; SET SECONDARY ERROR INFO

                                     001E   189 	RMSERR	IFA				; ILLEGAL FILE ATTRIBUTES

                          E0     11  0023   190 	BRB	ERRXIT

                                     0025   191 	$PSECT_RESTORE

                                     0065   192 

                                     0065   193 	.END

RM2OPEN         RELATIVE SPECIFIC OPEN                           21-AUG-1978 21:54:18   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (1)



$$.PSECT_EP    = 00000005            ERRRPL           0000005C R     02   FAB$M_INP      = 00080000            

$$.TMP         = 00000001            ERRSHR           00000059 R     02   FAB$M_JNL      = 00400000            

$$RMSTEST      = 0000001A            ERRXIT           00000005 R     05   FAB$M_KFO      = 40000000            

$$RMS_PBUGCHK  = 00000010            EXIT             00000053 R     02   FAB$M_MSE      = 00000010            

$$RMS_TBUGCHK  = 00000008            FAB$B_BID        00000000            FAB$M_MXV      = 00000002            

$$RMS_UMODE    = 00000004            FAB$B_BKS        0000003E            FAB$M_NAM      = 01000000            

BDB$B_BID        00000008            FAB$B_BLN        00000001            FAB$M_NEF      = 00000400            

BDB$B_BLN        00000009            FAB$B_DNS        00000035            FAB$M_NFS      = 00010000            

BDB$B_FLGS       0000000A            FAB$B_FAC        00000016            FAB$M_NIL      = 00000020            

BDB$B_POST_CCTL  00000023            FAB$B_FNS        00000034            FAB$M_OFP      = 20000000            

BDB$B_PRE_CCTL   00000022            FAB$B_FSZ        0000003F            FAB$M_POS      = 00000100            

BDB$B_REL_VBN    00000020            FAB$B_ORG        0000001D            FAB$M_PPF      = 00040000            

BDB$B_USECNT     0000000B            FAB$B_RAT        0000001E            FAB$M_PPF_IND  = 00004000            

BDB$B_VAL_VBNS   00000021            FAB$B_RFM        0000001F            FAB$M_PPF_RAT  = 00003FC0            

BDB$C_BID      = 0000000C            FAB$B_RTV        0000001C            FAB$M_PRN      = 00000004            

BDB$C_BLN        00000028            FAB$B_SHR        00000017            FAB$M_PUT      = 00000001            

BDB$K_BLN        00000028            FAB$C_BID      = 00000003            FAB$M_RCK      = 00800000            

BDB$L_ADDR       00000014            FAB$C_BLN        00000050            FAB$M_RWC      = 00000800            

BDB$L_BLINK      00000004            FAB$C_FIX      = 00000001            FAB$M_RWO      = 00000080            

BDB$L_CURBUFADR  00000024            FAB$C_HSH      = 00000030            FAB$M_SCF      = 00004000            

BDB$L_FLINK      00000000            FAB$C_IDX      = 00000020            FAB$M_SHRDEL   = 00000004            

BDB$L_IOSB       00000020            FAB$C_MAXRFM   = 00000003            FAB$M_SHRGET   = 00000002            

BDB$L_OWN        0000000C            FAB$C_REL      = 00000010            FAB$M_SHRPUT   = 00000001            

BDB$L_VBN        00000018            FAB$C_RFM_DFLT = 00000002            FAB$M_SHRUPD   = 00000008            

BDB$L_WAIT       0000001C            FAB$C_SEQ      = 00000000            FAB$M_SPL      = 00002000            

BDB$L_WK1        00000020            FAB$C_UDF      = 00000000            FAB$M_SQO      = 00000040            

BDB$M_AST_DCL  = 00000040            FAB$C_VAR      = 00000002            FAB$M_SUP      = 00000004            

BDB$M_DRT      = 00000002            FAB$C_VFC      = 00000003            FAB$M_TEF      = 10000000            

BDB$M_IOP      = 00000004            FAB$K_BLN        00000050            FAB$M_TMD      = 00000010            

BDB$M_LKDINWS  = 00000080            FAB$L_ALQ        00000010            FAB$M_TMP      = 00000008            

BDB$M_NOLOCATE = 00000010            FAB$L_CTX        00000018            FAB$M_TRN      = 00000010            

BDB$M_PRM      = 00000008            FAB$L_DEV        00000040            FAB$M_UFM      = 04000000            

BDB$M_VAL      = 00000001            FAB$L_DNA        00000030            FAB$M_UFO      = 00020000            

BDB$M_WFO      = 00000020            FAB$L_FNA        0000002C            FAB$M_UPD      = 00000008            

BDB$V_AST_DCL  = 00000006            FAB$L_FOP        00000004            FAB$M_UPI      = 00000040            

BDB$V_DRT      = 00000001            FAB$L_JNL        00000020            FAB$M_WCK      = 00000200            

BDB$V_IOP      = 00000002            FAB$L_MRN        00000038            FAB$S_ORG      = 00000004            

BDB$V_LKDINWS  = 00000007            FAB$L_NAM        00000028            FAB$S_PPF_RAT  = 00000008            

BDB$V_NOLOCATE = 00000004            FAB$L_SDC        00000044            FAB$V_BIO      = 00000005            

BDB$V_PRM      = 00000003            FAB$L_STS        00000008            FAB$V_BLK      = 00000003            

BDB$V_VAL      = 00000000            FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            

BDB$V_WFO      = 00000005            FAB$L_XAB        00000024            FAB$V_CBT      = 00000015            

BDB$W_NUMB       00000010            FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            

BDB$W_SIZE       00000012            FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001            

BIT...         = 00000005            FAB$M_BRO      = 00000040            FAB$V_CTG      = 00000014            

CSH$M_LOCK     = 00000001            FAB$M_CBT      = 00200000            FAB$V_DEL      = 00000002            

CSH$M_NOBUFFER = 00000010            FAB$M_CIF      = 02000000            FAB$V_DFW      = 00000005            

CSH$M_NOREAD   = 00000004            FAB$M_CR       = 00000002            FAB$V_DLT      = 0000000F            

CSH$M_NOWAIT   = 00000002            FAB$M_CTG      = 00100000            FAB$V_DMO      = 0000000C            

CSH$M_READAHEAD= 00000008            FAB$M_DEL      = 00000004            FAB$V_ESC      = 0000001B            

CSH$V_LOCK     = 00000000            FAB$M_DFW      = 00000020            FAB$V_EXE      = 00000007            

CSH$V_NOBUFFER = 00000004            FAB$M_DLT      = 00008000            FAB$V_FTN      = 00000000            

CSH$V_NOREAD   = 00000002            FAB$M_DMO      = 00001000            FAB$V_GET      = 00000001            

CSH$V_NOWAIT   = 00000001            FAB$M_ESC      = 08000000            FAB$V_INP      = 00000013            

CSH$V_READAHEAD= 00000003            FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            

ERRIFA           00000062 R     02   FAB$M_FTN      = 00000001            FAB$V_KFO      = 0000001E            

ERRPLV           0000005F R     02   FAB$M_GET      = 00000002            FAB$V_MSE      = 00000004            

RM2OPEN         RELATIVE SPECIFIC OPEN                           21-AUG-1978 21:54:18   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (1)



FAB$V_MXV      = 00000001            IFB$C_BLN_REL    00000060            IFB$V_DEL      = 00000002            

FAB$V_NAM      = 00000018            IFB$C_BLN_SEQ    0000005C            IFB$V_DFW      = 0000002C            

FAB$V_NEF      = 0000000A            IFB$C_DIR      = 00000003            IFB$V_DLT      = 0000002B            

FAB$V_NFS      = 00000010            IFB$C_FHAEND     00000050            IFB$V_DMO      = 00000028            

FAB$V_NIL      = 00000005            IFB$C_IDX      = 00000002            IFB$V_EOF      = 00000021            

FAB$V_OFP      = 0000001D            IFB$C_MAXORG   = 00000002            IFB$V_EXE      = 00000007            

FAB$V_ORG      = 00000004            IFB$C_REL      = 00000001            IFB$V_GET      = 00000001            

FAB$V_POS      = 00000008            IFB$C_SEQ      = 00000000            IFB$V_MSE      = 00000031            

FAB$V_PPF      = 00000012            IFB$K_BLN        00000060            IFB$V_NORECLK  = 00000033            

FAB$V_PPF_IND  = 0000000E            IFB$K_BLN_IDX    00000060            IFB$V_NSP      = 0000003F            

FAB$V_PPF_RAT  = 00000006            IFB$K_BLN_REL    00000060            IFB$V_NWA      = 0000003C            

FAB$V_PRN      = 00000002            IFB$K_BLN_SEQ    0000005C            IFB$V_ORG      = 00000004            

FAB$V_PUT      = 00000000            IFB$K_FHAEND     00000050            IFB$V_PPF_IMAGE= 00000022            

FAB$V_RCK      = 00000017            IFB$L_ARGLST     00000018            IFB$V_PPF_INPUT= 0000002E            

FAB$V_RWC      = 0000000B            IFB$L_ASBADDR    00000014            IFB$V_PUT      = 00000000            

FAB$V_RWO      = 00000007            IFB$L_AS_DEV     00000054            IFB$V_RFM      = 00000000            

FAB$V_SCF      = 0000000E            IFB$L_BDB_BLNK   00000034            IFB$V_RWC      = 00000027            

FAB$V_SHRDEL   = 00000002            IFB$L_BDB_FLNK   00000030            IFB$V_RW_ATTR  = 00000034            

FAB$V_SHRGET   = 00000001            IFB$L_BKPBITS    00000004            IFB$V_SCF      = 0000002A            

FAB$V_SHRPUT   = 00000000            IFB$L_BWB        0000000C            IFB$V_SPL      = 00000029            

FAB$V_SHRUPD   = 00000003            IFB$L_DVBN       00000058            IFB$V_SQO      = 0000002D            

FAB$V_SPL      = 0000000D            IFB$L_EBK        00000044            IFB$V_TEF      = 00000036            

FAB$V_SQO      = 00000006            IFB$L_FRB_PTR    00000028            IFB$V_TMP      = 00000035            

FAB$V_SUP      = 00000002            IFB$L_FWA_BDB    00000050            IFB$V_TRN      = 00000004            

FAB$V_TEF      = 0000001C            IFB$L_HBK        00000040            IFB$V_UPD      = 00000003            

FAB$V_TMD      = 00000004            IFB$L_IDX_PTR    00000054            IFB$V_WRTACC   = 00000030            

FAB$V_TMP      = 00000003            IFB$L_IOS        0000000C            IFB$W_ASDEVBSIZ  0000005A            

FAB$V_TRN      = 00000004            IFB$L_IOS4       00000010            IFB$W_BKS_BYTES  0000005C            

FAB$V_UFM      = 0000001A            IFB$L_IRAB_LNK   0000001C            IFB$W_BKS_RECS   0000005E            

FAB$V_UFO      = 00000011            IFB$L_LAST_FAB   00000024            IFB$W_CHNL       00000020            

FAB$V_UPD      = 00000003            IFB$L_LOCK_BDB   00000050            IFB$W_DEQ        0000004E            

FAB$V_UPI      = 00000006            IFB$L_MRN        00000054            IFB$W_DEVBUFSIZ  00000038            

FAB$V_WCK      = 00000009            IFB$L_NRP_LNK    00000050            IFB$W_EBK0       00000044            

FAB$W_BLS        0000003C            IFB$L_NWA_PTR    00000028            IFB$W_EBK2       00000046            

FAB$W_DEQ        00000014            IFB$L_PRIM_DEV   00000000            IFB$W_FFB        00000048            

FAB$W_IFI        00000002            IFB$L_RLB_LNK    0000002C            IFB$W_IOS2       0000000E            

FAB$W_MRS        00000036            IFB$L_RNS_LEN    00000050            IFB$W_LRL        0000003E            

GBL...         = 00000000            IFB$M_BIO      = 00000020            IFB$W_MRS        0000004C            

IFB$B_AMAX       00000059            IFB$M_BRO      = 00000040            IFB$W_RTDEQ      0000003A            

IFB$B_AVBN       00000058            IFB$M_DEL      = 00000004            L$RMS21          00000000 R     05   

IFB$B_BID        00000008            IFB$M_EXE      = 00000080            L$RMS22          00000008 R     05   

IFB$B_BKS        0000004A            IFB$M_GET      = 00000002            L$RMS23          0000000F R     05   

IFB$B_BLN        00000009            IFB$M_PUT      = 00000001            L$RMS24          00000016 R     05   

IFB$B_EFN        0000000B            IFB$M_TRN      = 00000010            NF$NETWORK0      00000000 R     04   

IFB$B_EXTRABUF   0000005D            IFB$M_UPD      = 00000008            NT$OPEN2         ********   X   04   

IFB$B_FAC        00000022            IFB$S_ORG      = 00000004            NTOPEN           00000056 R     02   

IFB$B_FSZ        0000004B            IFB$S_RFM      = 00000004            PLG$B_AMAX       00000067            

IFB$B_KBUFSZ     0000005C            IFB$V_ACCESSED = 00000025            PLG$B_AVBN       00000066            

IFB$B_MODE       0000000A            IFB$V_ANSI_D   = 00000026            PLG$B_DBKTSIZ    0000000B            

IFB$B_NUM_KEYS   0000005A            IFB$V_ASYNC    = 00000023            PLG$B_FLAGS      00000010            

IFB$B_ORGCASE    00000023            IFB$V_ASYNCWAIT= 00000024            PLG$C_BLN        00000076            

IFB$B_RAT        0000003D            IFB$V_BIO      = 00000005            PLG$C_VER_NO   = 00000001            

IFB$B_RFMORG     0000003C            IFB$V_BRO      = 00000006            PLG$K_BLN        00000076            

IFB$B_UBUFSZ     0000005B            IFB$V_BUSY     = 00000020            PLG$L_EOF        00000070            

IFB$C_BID      = 0000000B            IFB$V_CREATE   = 00000032            PLG$L_MRN        0000006C            

IFB$C_BLN        00000060            IFB$V_DAP      = 0000003E            PLG$V_NOEXTEND = 00000000            

IFB$C_BLN_IDX    00000060            IFB$V_DAP_OPEN = 0000003D            PLG$W_DVBN       00000068            

RM2OPEN         RELATIVE SPECIFIC OPEN                           21-AUG-1978 21:54:18   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (1)



PLG$W_VER_NO     00000074            RMS$_DVI       = 000184F4            RMS$_OK_RLK    = 00018021            

RM$CACHE         ********   X   02   RMS$_ENT       = 0001C01A            RMS$_OK_RNF    = 00018049            

RM$CHKSUM        ********   X   02   RMS$_ENV       = 00018724            RMS$_OK_RRV    = 00018029            

RM$COPRTN        ********   X   02   RMS$_EOF       = 0001827A            RMS$_ORD       = 00018604            

RM$OPEN2         00000000 RG    02   RMS$_ESA       = 000184FC            RMS$_ORG       = 0001860C            

RMS$V_STVSTATUS= 0000000E            RMS$_ESL       = 00018714            RMS$_PBF       = 00018614            

RMS$_ABO       = 000183EC            RMS$_ESS       = 00018504            RMS$_PENDING   = 00018009            

RMS$_ACC       = 0001C002            RMS$_EXP       = 000182C2            RMS$_PLG       = 0001861C            

RMS$_ACT       = 0001825A            RMS$_EXT       = 0001C022            RMS$_PLV       = 0001872C            

RMS$_AID       = 000183F4            RMS$_FAB       = 0001850C            RMS$_POS       = 00018624            

RMS$_ALN       = 000183FC            RMS$_FAC       = 00018514            RMS$_PRM       = 0001862C            

RMS$_ALQ       = 00018404            RMS$_FEX       = 00018282            RMS$_PRV       = 0001829A            

RMS$_ANI       = 0001840C            RMS$_FLG       = 0001851C            RMS$_QUO       = 00018634            

RMS$_AOP       = 00018414            RMS$_FLK       = 0001828A            RMS$_RAB       = 0001863C            

RMS$_ATR       = 0001C0CC            RMS$_FNA       = 00018524            RMS$_RAC       = 00018644            

RMS$_ATW       = 0001C0D4            RMS$_FND       = 0001C02A            RMS$_RAT       = 0001864C            

RMS$_BKS       = 0001841C            RMS$_FNF       = 00018292            RMS$_RBF       = 00018654            

RMS$_BKZ       = 00018424            RMS$_FNM       = 0001852C            RMS$_RER       = 0001C0F4            

RMS$_BLN       = 0001842C            RMS$_FOP       = 0001853C            RMS$_REX       = 000182A2            

RMS$_BOF       = 00018198            RMS$_FSZ       = 00018534            RMS$_RFA       = 0001865C            

RMS$_BUG       = 00018434            RMS$_FUL       = 00018544            RMS$_RFM       = 00018664            

RMS$_BUG_DAP   = 00018444            RMS$_IAL       = 0001854C            RMS$_RHB       = 0001866C            

RMS$_BUG_DDI   = 0001843C            RMS$_IAN       = 00018554            RMS$_RLF       = 00018674            

RMS$_BUG_XX2   = 0001844C            RMS$_IBF       = 00018754            RMS$_RLK       = 000182AA            

RMS$_BUG_XX3   = 00018454            RMS$_IDX       = 0001855C            RMS$_RMV       = 0001C0FC            

RMS$_BUG_XX4   = 0001845C            RMS$_IFA       = 0001C124            RMS$_RNF       = 000182B2            

RMS$_BUG_XX5   = 00018464            RMS$_IFI       = 00018564            RMS$_RNL       = 000181A0            

RMS$_BUG_XX6   = 0001846C            RMS$_IMX       = 0001856C            RMS$_ROP       = 0001867C            

RMS$_BUG_XX7   = 00018474            RMS$_IOP       = 00018574            RMS$_RPL       = 0001C104            

RMS$_BUG_XX8   = 0001847C            RMS$_IRC       = 0001857C            RMS$_RRV       = 00018684            

RMS$_BUG_XX9   = 00018484            RMS$_ISI       = 00018584            RMS$_RSA       = 000182DA            

RMS$_CAA       = 0001848C            RMS$_KBF       = 0001858C            RMS$_RSL       = 0001873C            

RMS$_CCF       = 0001C0DC            RMS$_KEY       = 00018594            RMS$_RSS       = 00018694            

RMS$_CCR       = 00018494            RMS$_KFF       = 00018031            RMS$_RST       = 0001869C            

RMS$_CDA       = 0001C0E4            RMS$_KRF       = 0001859C            RMS$_RSZ       = 000186A4            

RMS$_CHG       = 0001849C            RMS$_KSZ       = 000185A4            RMS$_RTB       = 000181A8            

RMS$_CHK       = 000184A4            RMS$_LAN       = 000185AC            RMS$_SEQ       = 000186AC            

RMS$_CHN       = 0001C0EC            RMS$_LBL       = 000185B4            RMS$_SHR       = 000186B4            

RMS$_COD       = 000184AC            RMS$_LNE       = 000185BC            RMS$_SIZ       = 000186BC            

RMS$_CONTROLC  = 00010651            RMS$_LOC       = 000185C4            RMS$_SPL       = 0001C042            

RMS$_CONTROLO  = 00010609            RMS$_MBC       = 00018734            RMS$_SQO       = 000186C4            

RMS$_CONTROLY  = 00010611            RMS$_MKD       = 0001C032            RMS$_STALL     = 00018001            

RMS$_CRE       = 0001C00A            RMS$_MRN       = 000185CC            RMS$_STK       = 000186CC            

RMS$_CREATED   = 00010619            RMS$_MRS       = 000185D4            RMS$_SUC       = 00010001            

RMS$_CUR       = 000184B4            RMS$_NAM       = 000185DC            RMS$_SUP       = 000182D2            

RMS$_DAC       = 0001C012            RMS$_NEF       = 000185E4            RMS$_SUPERSEDE = 00010631            

RMS$_DAN       = 000184BC            RMS$_NET       = 0001874C            RMS$_SYN       = 000186D4            

RMS$_DEL       = 00018262            RMS$_NID       = 000185EC            RMS$_SYS       = 0001C10C            

RMS$_DEV       = 000184C4            RMS$_NMF       = 000182CA            RMS$_TEMP1     = 0001826A            

RMS$_DIR       = 000184CC            RMS$_NOD       = 000185F4            RMS$_TEMP2     = 0001868C            

RMS$_DME       = 000184D4            RMS$_NORMAL    = 00010001            RMS$_TMO       = 000181B0            

RMS$_DNA       = 000184DC            RMS$_NPK       = 000185FC            RMS$_TRE       = 000186DC            

RMS$_DNF       = 0001C04A            RMS$_OK_ALK    = 00018039            RMS$_TYP       = 000186E4            

RMS$_DNR       = 00018272            RMS$_OK_DEL    = 00018041            RMS$_UBF       = 000186EC            

RMS$_DPE       = 0001C03A            RMS$_OK_DUP    = 00018011            RMS$_USZ       = 000186F4            

RMS$_DTP       = 000184E4            RMS$_OK_IDX    = 00018019            RMS$_VER       = 000186FC            

RMS$_DUP       = 000184EC            RMS$_OK_LIM    = 00018051            RMS$_VOL       = 00018704            

RM2OPEN         RELATIVE SPECIFIC OPEN                           21-AUG-1978 21:54:18   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (1)



RMS$_WBE       = 0001C12C            

RMS$_WER       = 0001C114            

RMS$_WLD       = 00018744            

RMS$_WLK       = 000182BA            

RMS$_WPL       = 0001C11C            

RMS$_WSF       = 0001871C            

RMS$_XAB       = 0001870C            

SET              00000040 R     02   





PROGRAM SECTION SYNOPSIS



.  ABS  .        00000000      00     NOPIC   USR   CON   ABS   LCL NOSHR NOEXE NORD  NOWRT BYTE  

. BLANK .        00000000      01     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD    WRT BYTE  

F$RMSOPEN2       00000065      02     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  

$ABS$            00000076      03     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

NF$NETWORK       0000000C      04     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  

L$RMS2           00000025      05     NOPIC   USR   CON   REL   GBL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

11254. BYTES LEFT IN FREE MEMORY POOL.

2790. BYTES OF RECLAIMED MEMORY.

OBJ$:RM2OPEN,LIS$:RM2OPEN/-SP=EXECML$/ML,LIB$:R/ML,SRC$:RM2OPEN

25 MLB DIR RDS - 889 GETS TO DEFINE 25 MACROS. 61 INTER. FILE WRITES. 

