CLIOPEN         - COMMAND LANGUAGE INTERFACE OPEN ROUTINE        21-AUG-1978 18:55:33   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      38  DECLARATIONS

   (2)      59  OPEN FIRST INPUT FILE

   (3)     125  OPEN NEXT INPUT FILE

CLIOPEN         - COMMAND LANGUAGE INTERFACE OPEN ROUTINE        21-AUG-1978 18:55:33   VAX-11 MACRO X0.3-11               Page   1

V01                                                                                                                              (1)



                                     0000     1 	.TITLE	CLIOPEN - COMMAND LANGUAGE INTERFACE OPEN ROUTINE

                                     0000     2 	.IDENT	/V01/

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ;			  COPYRIGHT (c) 1977 BY

                                     0000     6 ;	      DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS.

                                     0000     7 ;

                                     0000     8 ; THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND  COPIED

                                     0000     9 ; ONLY  IN  ACCORDANCE  WITH  THE  TERMS  OF  SUCH  LICENSE AND WITH THE

                                     0000    10 ; INCLUSION OF THE ABOVE COPYRIGHT NOTICE.  THIS SOFTWARE OR  ANY  OTHER

                                     0000    11 ; COPIES  THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY

                                     0000    12 ; OTHER PERSON.  NO TITLE TO AND OWNERSHIP OF  THE  SOFTWARE  IS  HEREBY

                                     0000    13 ; TRANSFERRED.

                                     0000    14 ;

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

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

                                     0000    17 ; CORPORATION.

                                     0000    18 ;

                                     0000    19 ; DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR  RELIABILITY  OF  ITS

                                     0000    20 ; SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.

                                     0000    21 ;

                                     0000    22 

                                     0000    23 ;++

                                     0000    24 ; FACILITY:	STARLET CLI UTILITIES

                                     0000    25 ;

                                     0000    26 ; ABSTRACT:	OPEN FILES FOR COMMAND INPUT(OR OUTPUT)

                                     0000    27 ;

                                     0000    28 ;

                                     0000    29 ; ENVIRONMENT:	NATIVE/USER MODE CODE

                                     0000    30 ;

                                     0000    31 ; AUTHOR:	W. H. BROWN, CREATION DATE: 27-JUL-1977

                                     0000    32 ;

                                     0000    33 ; MODIFIED BY:

                                     0000    34 ;

                                     0000    35 ;	, : VERSION

                                     0000    36 ; 01	- 

                                     0000    37 ;--

                                     0000    38 	.SBTTL	DECLARATIONS

                                     0000    39 ;

                                     0000    40 ; INCLUDE FILES:

                                     0000    41 ;

                                     0000    42 ;	[231,10]U.MLB			; UTILITY MACRO LIBRARY

                                     0000    43 ;

                                     0000    44 ; MACROS:

                                     0000    45 ;

                                     0000    46 ;	CONTAINED IN U.MLB

                                     0000    47 ;

                                     0000    48 ; EQUATED SYMBOLS:

                                     0000    49 ;

                                     0000    50 	$FABDEF				; FILE ACCESS BLOCKS

                                     0000    51 	$NAMDEF				; NAME BLOCK DEFINITIONS

                                     0000    52 	$CLIMSGDEF			; DEFINE CLI MESSAGE CODES

                                     0000    53 ;

                                     0000    54 ; OWN STORAGE:

                                     0000    55 ;

                                     0000    56 ;	NONE

                                     0000    57 ;

CLIOPEN         - COMMAND LANGUAGE INTERFACE OPEN ROUTINE        21-AUG-1978 18:55:33   VAX-11 MACRO X0.3-11               Page   2

V01             OPEN FIRST INPUT FILE                                                                                            (2)



                                     0000    59 	.SBTTL	OPEN FIRST INPUT FILE

                                     0000    60 ;++

                                     0000    61 ; FUNCTIONAL DESCRIPTION:

                                     0000    62 ;

                                     0000    63 ;	THIS ROUTINE IS CALLED OPEN THE FIRST FILE AND SET UP

                                     0000    64 ;	AS NECESSARY FOR WILD CARD PROCESSING.

                                     0000    65 ;

                                     0000    66 ; CALLING SEQUENCE:

                                     0000    67 ;

                                     0000    68 ;	SAME IS IF THE CALLER WERE CALLING OPEN DIRECTLY

                                     0000    69 ;

                                     0000    70 ; INPUT PARAMETERS:

                                     0000    71 ;

                                     0000    72 ;	4(AP) IS THE FAB ADDRESS

                                     0000    73 ;

                                     0000    74 ; IMPLICIT INPUTS:

                                     0000    75 ;

                                     0000    76 ;	FAB HAS A NAME BLOCK, WITH EXPANDED NAME STRING AND RESULTANT 

                                     0000    77 ;	NAME STRING BUFFERS AS UNIQUE MEMORY LOCATION. THE RELATED FILE

                                     0000    78 ;	NAME BLOCK HAS ADDRESS OF EXPANDED STRING AS RESULTANT NAME 

                                     0000    79 ;	ADDRESS IN ORDER TO GET WILD CARD DEFAULTING CORRECT.

                                     0000    80 ;

                                     0000    81 ; OUTPUT PARAMETERS:

                                     0000    82 ;

                                     0000    83 ;	THE FILE IS OPENED AND WILD CARD PROCESSING IS INITED.

                                     0000    84 ;

                                     0000    85 ; IMPLICIT OUTPUTS:

                                     0000    86 ;

                                     0000    87 ;	NONE

                                     0000    88 ;

                                     0000    89 ; COMPLETION CODES:

                                     0000    90 ;

                                     0000    91 ;	AS SET BY RMS

                                     0000    92 ;

                                     0000    93 ; SIDE EFFECTS:

                                     0000    94 ;

                                     0000    95 ;	DEFAULT NAME STRING ADDRESS IS ZEROED INORDER TO USE THE

                                     0000    96 ;	TYPE FROM THE PREVIOUS OPEN AS DEFUALT

                                     0000    97 ;

                                     0000    98 ;--

                                     0000    99  

                                     0000   100 	.ENABL	LSB			;

                                     0000   101 	PURE_SECTION

                                     0000   102  

                               003C' 0000   103 	.ENTRY	CLI$OPENFILE,^M<R2,R3,R4,R5>

                                     0002   104  

                          0062   30  0002   105 	BSBW	SETUP			; SET COMMON REGISTER VALUES

                       03 A3     94  0005   106 	CLRB	NAM$B_RSL(R3)		; ZERO LENGTH OF RESULTANT STRING

                       0B A3     94  0008   107 	CLRB	NAM$B_ESL(R3)		; SET TO ZERO TO TELL IF ONE COMES BACK

                                     000B   108 	CLRBIT	FAB$V_NAM,FAB$L_FOP(R2)	; TELL RMS TO IGNORE NAME BLOCK FOR NOW

   00000000'9F            6C     FA  0010   109 	CALLG	(AP),@#SYS$PARSE	; PARSE THE FILE SPEC

            2D            50     E9  0017   110 	BLBC	R0,80$			; BR IF NO PARSE POSSIBLE

                                     001A   111 	SETBIT	FAB$V_NAM,FAB$L_FOP(R2)	; NOW USE NAME BLOCKED JUST FILLED IN

                                 90  001F   112 	MOVB	NAM$B_ESL(R3),-		; GET LENGTH OF PREVIOUS EXPANDED STRING

         03 A4         0B A3         0020   113 		NAM$B_RSL(R4)		; AND SET AS LENGTH OF RELATED FILE

                       35 A2     94  0024   114 	CLRB	FAB$B_DNS(R2)		; DON'T USE DEFAULTS ANY MORE

         34 A3            08     E1  0027   115 	BBC	#NAM$V_WILDCARD,NAM$L_FNB(R3),60$ ; BR IF NO WILD CARDS SEEN

CLIOPEN         - COMMAND LANGUAGE INTERFACE OPEN ROUTINE        21-AUG-1978 18:55:33   VAX-11 MACRO X0.3-11               Page   3

V01             OPEN FIRST INPUT FILE                                                                                            (2)



                          0A         002B       

   00000000'9F            6C     FA  002C   116 40$:	CALLG	(AP),@#SYS$SEARCH	; SEARCH FOR THE NEXT FILE

            0A            50     E9  0033   117 	BLBC	R0,70$			; ANOTHER BAD ERROR

   00000000'9F            6C     FA  0036   118 60$:	CALLG	(AP),@#SYS$OPEN		; OPEN THE FILE

            0C            50     E8  003D   119 	BLBS	R0,90$			; BR IF OPEN OK!

            50       0000'8F     B1  0040   120 70$:	CMPW	#<RMS$_FNF&^XFFFF>,R0	; WAS ERROR FILE NOT FOUND

                          05     12  0045   121 	BNEQ	90$			; MAY CONTIUE WILD CARDS

                                     0047   122 80$:	CLRBIT	NAM$V_WILDCARD,NAM$L_FNB(R3) ; MAKE SURE WILD CARDS STOP

                                 04  004C   123 90$:	RET				; RETURN TO CALLER

CLIOPEN         - COMMAND LANGUAGE INTERFACE OPEN ROUTINE        21-AUG-1978 18:55:33   VAX-11 MACRO X0.3-11               Page   4

V01             OPEN NEXT INPUT FILE                                                                                             (3)



                                     004D   125 	.SBTTL	OPEN NEXT INPUT FILE

                                     004D   126 ;++

                                     004D   127 ; FUNCTIONAL DESCRIPTION:

                                     004D   128 ;

                                     004D   129 ;	THIS ROUTINE IS CALLED OPEN THE NEXT FILE IN A

                                     004D   130 ;	WILD CARD PROCESSING SEQUENCE.

                                     004D   131 ;

                                     004D   132 ; CALLING SEQUENCE:

                                     004D   133 ;

                                     004D   134 ;	SAME IS IF THE CALLER WERE CALLING OPEN DIRECTLY

                                     004D   135 ;

                                     004D   136 ; INPUT PARAMETERS:

                                     004D   137 ;

                                     004D   138 ;	4(AP) IS THE FAB ADDRESS

                                     004D   139 ;

                                     004D   140 ; IMPLICIT INPUTS:

                                     004D   141 ;

                                     004D   142 ;	FAB HAS A NAME BLOCK, WITH:

                                     004D   143 ;

                                     004D   144 ;		1) EXPANDED NAME STRING BUFFER

                                     004D   145 ;		2) RESULTANT NAME STRING BUFFER

                                     004D   146 ;		3) A DEFAULT NAME STRING BUFFER

                                     004D   147 ;

                                     004D   148 ; OUTPUT PARAMETERS:

                                     004D   149 ;

                                     004D   150 ;	THE CURRENTLY OPEN FILE IS CLOSED AND THE NEXT

                                     004D   151 ;	FILE IS OPENED AND WILD CARD PROCESSING IS UPDATED.

                                     004D   152 ;

                                     004D   153 ; IMPLICIT OUTPUTS:

                                     004D   154 ;

                                     004D   155 ;	NONE

                                     004D   156 ;

                                     004D   157 ; COMPLETION CODES:

                                     004D   158 ;

                                     004D   159 ;	AS SET BY RMS

                                     004D   160 ;

                                     004D   161 ; SIDE EFFECTS:

                                     004D   162 ;

                                     004D   163 ;	NONE

                                     004D   164 ;

                                     004D   165 ;--

                               003C' 004D   166 	.ENTRY	CLI$OPENNEXT,^M<R2,R3,R4,R5>

                                     004F   167  

                          16     10  004F   168 	BSBB	SETUP			; SET UP COMMON REGISTER VALUES

                                     0051   169 	$CLOSE	(R2)			; CLOSE THE INPUT

            50   00000000'8F     D0  005A   170 	MOVL	#RMS$_NMF,R0		; ASSUME WARNING STATUS OF NO MORE FILES

                                 E0  0061   171 	BBS	#NAM$V_WILDCARD,-	; BR IF WILD CARDS SEEN DURING

         34 A3            08         0062   172 		NAM$L_FNB(R3),40$	; AND SEARCH FOR NEXT FILE

                          C6         0065       

                                 04  0066   173 	RET				;

                                     0067   174  

                                     0067   175 ;

                                     0067   176 ; SETUP - SET UP COMMON REGISTER VALUES

                                     0067   177 ;

                                     0067   178  

            52         04 BC     9E  0067   179 SETUP:	MOVAB	@4(AP),R2		; GET FAB ADDRESS

            53         28 B2     9E  006B   180 	MOVAB	@FAB$L_NAM(R2),R3	; AND THE NAME BLOCK

CLIOPEN         - COMMAND LANGUAGE INTERFACE OPEN ROUTINE        21-AUG-1978 18:55:33   VAX-11 MACRO X0.3-11               Page   5

V01             OPEN NEXT INPUT FILE                                                                                             (3)



            54         10 B3     9E  006F   181 	MOVAB	@NAM$L_RLF(R3),R4	; SET ADDRESS OF RELATED FILE NAME BLOCK

                                 05  0073   182 	RSB

                                     0074   183  

                                     0074   184 	.END

CLIOPEN         - COMMAND LANGUAGE INTERFACE OPEN ROUTINE        21-AUG-1978 18:55:33   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (3)



$$.TMP1        = 00000001            CLI$_ONERR     = 000380F8            FAB$L_NAM        00000028            

$$.TMP2        = 00000062            CLI$_ONEVAL    = 00038158            FAB$L_SDC        00000044            

BIT...         = 0003FFE9            CLI$_ONLEVL    = 00038100            FAB$L_STS        00000008            

CLI$OPENFILE     00000000 RG    03   CLI$_ONOVF     = 00038108            FAB$L_STV        0000000C            

CLI$OPENNEXT     0000004D RG    03   CLI$_OVRFLW    = 00038160            FAB$L_XAB        00000024            

CLI$_ABFNAM    = 000381B8            CLI$_PARMDEL   = 00038110            FAB$M_BIO      = 00000020            

CLI$_ABKEYW    = 00038000            CLI$_PROC_ID   = 0003FFF1            FAB$M_BLK      = 00000008            

CLI$_ABVERB    = 00038008            CLI$_QUEJOBCRE = 0003FFF9            FAB$M_BRO      = 00000040            

CLI$_BADRET    = 00038198            CLI$_REQPRMABS = 00038812            FAB$M_CBT      = 00200000            

CLI$_BADTEXT   = 000381B0            CLI$_RSLOVF    = 00038118            FAB$M_CIF      = 02000000            

CLI$_BUFOVF    = 00038018            CLI$_SKPDAT    = 00038120            FAB$M_CR       = 00000002            

CLI$_COMPLX    = 00038020            CLI$_SPARE0    = 00038010            FAB$M_CTG      = 00100000            

CLI$_CONFQUAL  = 00038802            CLI$_SPARE1    = 00038058            FAB$M_DEL      = 00000004            

CLI$_CREQUEJOB = 0003884A            CLI$_STKOVF    = 00038128            FAB$M_DFW      = 00000020            

CLI$_DEFOVF    = 00038028            CLI$_SUBMITERR = 00038852            FAB$M_DLT      = 00008000            

CLI$_DEVALSPL  = 0003885A            CLI$_SYMDEL    = 00038130            FAB$M_DMO      = 00001000            

CLI$_DEVNOTFOR = 0003887A            CLI$_SYMOVF    = 00038138            FAB$M_ESC      = 08000000            

CLI$_DEVNOTSPL = 00038862            CLI$_UNDFIL    = 00038188            FAB$M_EXE      = 00000080            

CLI$_DIRECT    = 00038030            CLI$_UNDSYM    = 00038140            FAB$M_FTN      = 00000001            

CLI$_EXPSYN    = 00038038            CLI$_UNPROPARM = 00038170            FAB$M_GET      = 00000002            

CLI$_FILOPN    = 00038190            CLI$_UNPROQUAL = 00038168            FAB$M_INP      = 00080000            

CLI$_ILLVAL    = 0003883A            CLI$_USGOTO    = 00038148            FAB$M_JNL      = 00400000            

CLI$_IMCHNG    = 00038040            CLI$_VALCNVERR = 00038832            FAB$M_KFO      = 40000000            

CLI$_IMGFNF    = 00038872            CLI$_VALREQ    = 00038150            FAB$M_MSE      = 00000010            

CLI$_INSFPRM   = 00038048            FAB$B_BID        00000000            FAB$M_MXV      = 00000002            

CLI$_INVKEY    = 00038178            FAB$B_BKS        0000003E            FAB$M_NAM      = 01000000            

CLI$_INVQUAL   = 0003880A            FAB$B_BLN        00000001            FAB$M_NEF      = 00000400            

CLI$_INVQUALNUM= 0003881A            FAB$B_DNS        00000035            FAB$M_NFS      = 00010000            

CLI$_INVREQTYP = 00038822            FAB$B_FAC        00000016            FAB$M_NIL      = 00000020            

CLI$_INVRSP    = 00038180            FAB$B_FNS        00000034            FAB$M_OFP      = 20000000            

CLI$_INVUIC    = 000381A8            FAB$B_FSZ        0000003F            FAB$M_POS      = 00000100            

CLI$_IVCHAR    = 00038050            FAB$B_ORG        0000001D            FAB$M_PPF      = 00040000            

CLI$_IVDEVTYPE = 0003886A            FAB$B_RAT        0000001E            FAB$M_PPF_IND  = 00004000            

CLI$_IVFNAM    = 000381C0            FAB$B_RFM        0000001F            FAB$M_PPF_RAT  = 00003FC0            

CLI$_IVKEYW    = 00038060            FAB$B_RTV        0000001C            FAB$M_PRN      = 00000004            

CLI$_IVOPER    = 00038068            FAB$B_SHR        00000017            FAB$M_PUT      = 00000001            

CLI$_IVPROT    = 00038070            FAB$C_BID      = 00000003            FAB$M_RCK      = 00800000            

CLI$_IVQLOC    = 00038078            FAB$C_BLN        00000050            FAB$M_RWC      = 00000800            

CLI$_IVSYMB    = 00038080            FAB$C_FIX      = 00000001            FAB$M_RWO      = 00000080            

CLI$_IVVALU    = 00038088            FAB$C_HSH      = 00000030            FAB$M_SCF      = 00004000            

CLI$_IVVERB    = 00038090            FAB$C_IDX      = 00000020            FAB$M_SHRDEL   = 00000004            

CLI$_MAXPARM   = 00038098            FAB$C_MAXRFM   = 00000003            FAB$M_SHRGET   = 00000002            

CLI$_MULKEY    = 000381A0            FAB$C_REL      = 00000010            FAB$M_SHRPUT   = 00000001            

CLI$_NOATFIL   = 000380A0            FAB$C_RFM_DFLT = 00000002            FAB$M_SHRUPD   = 00000008            

CLI$_NOCCAT    = 000380A8            FAB$C_SEQ      = 00000000            FAB$M_SPL      = 00002000            

CLI$_NOCOMD    = 000380B0            FAB$C_UDF      = 00000000            FAB$M_SQO      = 00000040            

CLI$_NOKEYW    = 000380B8            FAB$C_VAR      = 00000002            FAB$M_SUP      = 00000004            

CLI$_NOLIST    = 000380C0            FAB$C_VFC      = 00000003            FAB$M_TEF      = 10000000            

CLI$_NOOPTPRS  = 00038842            FAB$K_BLN        00000050            FAB$M_TMD      = 00000010            

CLI$_NOQUAL    = 000380C8            FAB$L_ALQ        00000010            FAB$M_TMP      = 00000008            

CLI$_NORMAL    = 00030001            FAB$L_CTX        00000018            FAB$M_TRN      = 00000010            

CLI$_NOTNEG    = 000380D8            FAB$L_DEV        00000040            FAB$M_UFM      = 04000000            

CLI$_NOVALU    = 000380D0            FAB$L_DNA        00000030            FAB$M_UFO      = 00020000            

CLI$_NOVALUE   = 0003882A            FAB$L_FNA        0000002C            FAB$M_UPD      = 00000008            

CLI$_NULFIL    = 000380E0            FAB$L_FOP        00000004            FAB$M_UPI      = 00000040            

CLI$_NUMBER    = 000380E8            FAB$L_JNL        00000020            FAB$M_WCK      = 00000200            

CLI$_ONCOMD    = 000380F0            FAB$L_MRN        00000038            FAB$S_ORG      = 00000004            

CLIOPEN         - COMMAND LANGUAGE INTERFACE OPEN ROUTINE        21-AUG-1978 18:55:33   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (3)



FAB$S_PPF_RAT  = 00000008            GBL...         = 00000000            NAM$V_EXP_DIR  = 00000006            

FAB$V_BIO      = 00000005            NAM$B_BID        00000000            NAM$V_EXP_NAME = 00000002            

FAB$V_BLK      = 00000003            NAM$B_BLN        00000001            NAM$V_EXP_TYPE = 00000001            

FAB$V_BRO      = 00000006            NAM$B_CURLVL     00000038            NAM$V_EXP_VER  = 00000000            

FAB$V_CBT      = 00000015            NAM$B_ESL        0000000B            NAM$V_GRP_MBR  = 00000013            

FAB$V_CIF      = 00000019            NAM$B_ESS        0000000A            NAM$V_HIGHVER  = 0000000F            

FAB$V_CR       = 00000001            NAM$B_RSL        00000003            NAM$V_LOWVER   = 0000000E            

FAB$V_CTG      = 00000014            NAM$B_RSS        00000002            NAM$V_NODE     = 00000011            

FAB$V_DEL      = 00000002            NAM$C_BID      = 00000002            NAM$V_PPF      = 00000010            

FAB$V_DFW      = 00000005            NAM$C_BLN        00000038            NAM$V_QUOTED   = 00000012            

FAB$V_DLT      = 0000000F            NAM$C_BLN_DIRWC  00000050            NAM$V_WILDCARD = 00000008            

FAB$V_DMO      = 0000000C            NAM$C_DVI      = 00000010            NAM$V_WILD_DIR = 00000014            

FAB$V_ESC      = 0000001B            NAM$C_MAXRSS   = 00000080            NAM$V_WILD_GRP = 00000018            

FAB$V_EXE      = 00000007            NAM$C_MAXRSSLCL= 00000060            NAM$V_WILD_MBR = 00000019            

FAB$V_FTN      = 00000000            NAM$K_BLN        00000038            NAM$V_WILD_NAME= 00000005            

FAB$V_GET      = 00000001            NAM$K_BLN_DIRWC  00000050            NAM$V_WILD_SFD1= 00000019            

FAB$V_INP      = 00000013            NAM$L_DIRWCC1    00000040            NAM$V_WILD_SFD2= 0000001A            

FAB$V_JNL      = 00000016            NAM$L_DIRWCC2    00000044            NAM$V_WILD_SFD3= 0000001B            

FAB$V_KFO      = 0000001E            NAM$L_DIRWCC3    00000048            NAM$V_WILD_SFD4= 0000001C            

FAB$V_MSE      = 00000004            NAM$L_DIRWCC4    0000004C            NAM$V_WILD_SFD5= 0000001D            

FAB$V_MXV      = 00000001            NAM$L_DWC        00000038            NAM$V_WILD_SFD6= 0000001E            

FAB$V_NAM      = 00000018            NAM$L_ESA        0000000C            NAM$V_WILD_SFD7= 0000001F            

FAB$V_NEF      = 0000000A            NAM$L_FNB        00000034            NAM$V_WILD_TYPE= 00000004            

FAB$V_NFS      = 00000010            NAM$L_RLF        00000010            NAM$V_WILD_UFD = 00000018            

FAB$V_NIL      = 00000005            NAM$L_RSA        00000004            NAM$V_WILD_VER = 00000003            

FAB$V_OFP      = 0000001D            NAM$L_WCC        00000030            NAM$W_DID        0000002A            

FAB$V_ORG      = 00000004            NAM$M_DIR_LVLS = 00E00000            NAM$W_DID_NUM    0000002A            

FAB$V_POS      = 00000008            NAM$M_EXP_DEV  = 00000080            NAM$W_DID_RVN    0000002E            

FAB$V_PPF      = 00000012            NAM$M_EXP_DIR  = 00000040            NAM$W_DID_SEQ    0000002C            

FAB$V_PPF_IND  = 0000000E            NAM$M_EXP_NAME = 00000004            NAM$W_FID        00000024            

FAB$V_PPF_RAT  = 00000006            NAM$M_EXP_TYPE = 00000002            NAM$W_FID_NUM    00000024            

FAB$V_PRN      = 00000002            NAM$M_EXP_VER  = 00000001            NAM$W_FID_RVN    00000028            

FAB$V_PUT      = 00000000            NAM$M_GRP_MBR  = 00080000            NAM$W_FID_SEQ    00000026            

FAB$V_RCK      = 00000017            NAM$M_HIGHVER  = 00008000            NAM$W_PRV_DID    0000003A            

FAB$V_RWC      = 0000000B            NAM$M_LOWVER   = 00004000            RMS$_FNF         ********   X   03   

FAB$V_RWO      = 00000007            NAM$M_NODE     = 00020000            RMS$_NMF         ********   X   03   

FAB$V_SCF      = 0000000E            NAM$M_PPF      = 00010000            SETUP            00000067 R     03   

FAB$V_SHRDEL   = 00000002            NAM$M_QUOTED   = 00040000            SYS$CLOSE        ********  GX   03   

FAB$V_SHRGET   = 00000001            NAM$M_WILDCARD = 00000100            SYS$OPEN         ********   X   03   

FAB$V_SHRPUT   = 00000000            NAM$M_WILD_DIR = 00100000            SYS$PARSE        ********   X   03   

FAB$V_SHRUPD   = 00000003            NAM$M_WILD_GRP = 01000000            SYS$SEARCH       ********   X   03   

FAB$V_SPL      = 0000000D            NAM$M_WILD_MBR = 02000000            _$$_           = 000000EF            

FAB$V_SQO      = 00000006            NAM$M_WILD_NAME= 00000020            

FAB$V_SUP      = 00000002            NAM$M_WILD_SFD1= 02000000            

FAB$V_TEF      = 0000001C            NAM$M_WILD_SFD2= 04000000            

FAB$V_TMD      = 00000004            NAM$M_WILD_SFD3= 08000000            

FAB$V_TMP      = 00000003            NAM$M_WILD_SFD4= 10000000            

FAB$V_TRN      = 00000004            NAM$M_WILD_SFD5= 20000000            

FAB$V_UFM      = 0000001A            NAM$M_WILD_SFD6= 40000000            

FAB$V_UFO      = 00000011            NAM$M_WILD_SFD7= 80000000            

FAB$V_UPD      = 00000003            NAM$M_WILD_TYPE= 00000010            

FAB$V_UPI      = 00000006            NAM$M_WILD_UFD = 01000000            

FAB$V_WCK      = 00000009            NAM$M_WILD_VER = 00000008            

FAB$W_BLS        0000003C            NAM$S_DIR_LVLS = 00000003            

FAB$W_DEQ        00000014            NAM$T_DVI        00000014            

FAB$W_IFI        00000002            NAM$V_DIR_LVLS = 00000015            

FAB$W_MRS        00000036            NAM$V_EXP_DEV  = 00000007            

CLIOPEN         - COMMAND LANGUAGE INTERFACE OPEN ROUTINE        21-AUG-1978 18:55:33   VAX-11 MACRO X0.3-11               Page   8

PROGRAM SECTION SYNOPSIS                                                                                                         (3)







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  

$ABS$            00000050      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

PURE             00000074      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

16894. BYTES LEFT IN FREE MEMORY POOL.

1436. BYTES OF RECLAIMED MEMORY.

OBJ$:CLIOPEN,LIS$:CLIOPEN/-SP=EXECML$/ML,LIB$:CLIUTL/ML,SRC$:CLIOPEN

32 MLB DIR RDS - 520 GETS TO DEFINE 17 MACROS. 38 INTER. FILE WRITES. 

