LOGNET          - LOGIN A NETWORK CONNECTED JOB                  22-AUG-1978 00:35:44   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (2)      33  DECLARATIONS

   (3)      66  LOGIN NETWORK CONNECTED JOB

LOGNET          - LOGIN A NETWORK CONNECTED JOB                  22-AUG-1978 00:35:44   VAX-11 MACRO X0.3-11               Page   1

X06                                                                                                                              (1)



                                     0000     1 	.TITLE	LOGNET - LOGIN A NETWORK CONNECTED JOB

                                     0000     2 	.IDENT	/X06/

                                     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:	SYSTEM UTILITY PROGRAM

                                     0000    25 ;

                                     0000    26 ; ABSTRACT:	LOGIN NETWORK JOB

                                     0000    27 ;

                                     0000    28 ; ENVIRONMENT:	NATIVE MODE PRIVILEGED PROCEEDURE

                                     0000    29 ;

                                     0000    30 ; AUTHOR:	R.HEINEN 17-APR-1978

                                     0000    31 ;--

LOGNET          - LOGIN A NETWORK CONNECTED JOB                  22-AUG-1978 00:35:44   VAX-11 MACRO X0.3-11               Page   2

X06             DECLARATIONS                                                                                                     (2)



                                     0000    33 	.SBTTL	DECLARATIONS

                                     0000    34 ;

                                     0000    35 ; INCLUDE FILES:

                                     0000    36 ;

                                     0000    37 ; MACROS:

                                     0000    38 ;

                                     0000    39 ; EQUATED SYMBOLS:

                                     0000    40 ;

                                     0000    41 	LGIWRKDEF			; LOGIN WORK AREA

                                     0000    42 	DEFPRCWRK			; DEFINE COMMAND WORK AREAS

                                     0000    43 	IDFDEF				; INDIRECT FRAME DEFINITIONS

                                     0000    44 	$DJIDEF				; DETACHED JOB INITIATE MESSAGE

                                     0000    45 	$FABDEF				; RMS DEFINITONS

                                     0000    46 	$MSGDEF				; MESSAGE DEFINITIONS

                                     0000    47 	$NAMDEF				;

                                     0000    48 	$PRDDEF				; DEFINE PROCESS RMS DATA OFFSETS

                                     01B8    49 	$RABDEF				; RMS RAB DEFINITIONS

                                     01B8    50 

                                     01B8    51 	ASSUME	LGI$K_BUFSIZ GE 160	; VERIFY BUFFER IS BIG ENOUGH

                                     01B8    52 ;

                                     01B8    53 ; OWN STORAGE:

                                     01B8    54 ;

                                 00000000    55 	.PSECT	PURE	RD,NOWRT,BYTE

                                     0000    56 ;

                                     0000    57 ; LOGICAL NAME STRING FOR SYS$NET INFORMATIONAL LOGICAL NAME

                                     0000    58 ;

                           00000007' 0000    59 SYS_NET:	.LONG	20$-10$

                           00000008' 0004    60 		.LONG	10$

               54 45 4E 24 53 59 53  0008    61 10$:		.ASCII	/SYS$NET/

                                     000F    62 20$:

4D 4F 43 2E 54 43 45 4E 4E 4F 43 00' 000F    63 NET_DEF:	.ASCIC	/CONNECT.COM/

                                 0B  000F       

                                     001B    64  

LOGNET          - LOGIN A NETWORK CONNECTED JOB                  22-AUG-1978 00:35:44   VAX-11 MACRO X0.3-11               Page   3

X06             LOGIN NETWORK CONNECTED JOB                                                                                      (3)



                                     001B    66 	.SBTTL	LOGIN NETWORK CONNECTED JOB

                                     001B    67 ;++

                                     001B    68 ; LGI$NETWORK - LOGIN NETWORK CONNECTED JOB

                                     001B    69 ;

                                     001B    70 ; FUNCTIONAL DESCRIPTION:

                                     001B    71 ;

                                     001B    72 ; THIS ROUTINE IS ENTERED TO SET UP THE PROCESS PERMANENTFILES AND LOGICAL

                                     001B    73 ; NAMES FOR NETWORK CONNECTED JOBS.

                                     001B    74 ; IT IS ENTERED FROM LOGIN BASED ON PCB$V_NETWORK. (SET BY CREPRC)

                                     001B    75 ;

                                     001B    76 ; INPUT PARAMETERS:

                                     001B    77 ;

                                     001B    78 ;	R8 = ADDRESS OF THE PROCESS RMS DATA AREA

                                     001B    79 ;	R10 = ADDRESS OF THE CURRENT INDIRECT FRAME

                                     001B    80 ;	R11 = ADDRESS OF THE PROCESS LOGIN DATA AREA

                                     001B    81 ;

                                     001B    82 ; OUTPUT PARAMETERS:	NONE

                                     001B    83 ;

                                     001B    84 ;--

                                     001B    85 LGI$NETWORK::				; LOGIN NETWORK JOB

         54 AB       0040 8F     A8  001B    86 	BISW	#PRC_M_MODE,PRC_W_FLAGS(R11) ; INDICATE NON-INTERACTIVE JOB

                                 C0  0021    87 	ADDL	#<PRD_K_XLENGTH-PRD_K_LENGTH>,- ; ADJUST STACK LIMIT

       0088 CB            20         0022    88 		PRC_L_STACKLM(R11)	; FOR EXTRA SPACE NEEDED FOR BATCH

                       02 AA     B4  0026    89 	CLRW	IDF_W_OUTIFI(R10)	; FLAG NO OUTPUT OPEN

                                     0029    90 ;

                                     0029    91 ; VALIDATE THE USER

                                     0029    92 ;

            55       0000'CF     9E  0029    93 	MOVAB	W^LGI$Q_SYSODSC,R5	; ADDRESS TRANSLATION FOR SYS$OUTPUT

            55         04 A5     D0  002E    94 	MOVL	4(R5),R5		; ADDRESS ACTUAL STRING

                       01 A5     9F  0032    95 	PUSHAB	1(R5)			; BEGIN PARAM BUILD FOR VALIDATE WITH NAME

            7E            85     9A  0035    96 	MOVZBL	(R5)+,-(SP)		;

            55            6E     C0  0038    97 	ADDL	(SP),R5			; ADDRESS PASSWORD SECTION

                       01 A5     9F  003B    98 	PUSHAB	1(R5)			; INSERT PASSWORD DATA

            7E            85     9A  003E    99 	MOVZBL	(R5)+,-(SP)		;

            55            6E     C0  0041   100 	ADDL	(SP),R5			; ADDRESS NEXT SECTION

            50            85     9A  0044   101 	MOVZBL	(R5)+,R0		; GET ACCOUNT SECTION SIZE

            55            50     C0  0047   102 	ADDL	R0,R5			; PASS IT

                     0000'CF     7F  004A   103 	PUSHAQ	W^LGI$Q_UAFREC		;

                       04 AE     9F  004E   104 	PUSHAB	4(SP)			; INSERT PASSWORD ADDRESS

                       10 AE     9F  0051   105 	PUSHAB	16(SP)			;

   00000000'EF            07     FB  0054   106 	CALLS	#<3+4>,LGI$VALIDATE	; FIND USERS RECORD

            2E            50     E8  005B   107 	BLBS	R0,40$			; BR IF USER FOUND OK

            10            10     ED  005E   108 	CMPZV	#16,#16,R0,#1		; WAS ERROR FROM RMS

            01            50         0061       

                          22     13  0063   109 	BEQL	30$			; BR IF YES - LET THE JOB RUN

       0094 CB            50     D0  0065   110 	MOVL	R0,PRC_L_LSTSTATUS(R11)	; SAVE STATUS FOR EXIT

                          50     D4  006A   111 	CLRL	R0			; SET NO OTHER ERROR

                          FF91'  30  006C   112 	BSBW	LGI$FATAL		; DELARE MESSAGE

65 73 75 20 6B 72 6F 77 74 65 6E 00' 006F   113 	.ASCIC	/network user validation/

6E 6F 69 74 61 64 69 6C 61 76 20 72  007B       

                                 17  006F       

                                     0087   114 30$:	SETBIT	LGI_V_NOACNT,LGI$W_FLAGS(AP) ; FLAG NO ACCOUNT FILE PRESENT

                          06     11  008A   115 	BRB	50$			;

                          FF71'  30  008C   116 40$:	BSBW	LGI$SETUSRDEF		; SET USER DEFAULTS

                          FF6E'  30  008F   117 	BSBW	LGI$CHK_JOBCNT		; SEE IF SYSTEM QUOTA EXCEEDED

                                     0092   118 ;

                                     0092   119 ; CREATE OUTPUT FILE NAME

LOGNET          - LOGIN A NETWORK CONNECTED JOB                  22-AUG-1978 00:35:44   VAX-11 MACRO X0.3-11               Page   4

X06             LOGIN NETWORK CONNECTED JOB                                                                                      (3)



                                     0092   120 ;

                                     0092   121 50$:

            54            85     9A  0092   122 	MOVZBL	(R5)+,R4		; GET FILE NAME SIZE

         34 A8            54     90  0095   123 	MOVB	R4,FAB$B_FNS(R8)	; SET UP INPUT FILE NAME

         2C A8            55     D0  0099   124 	MOVL	R5,FAB$L_FNA(R8)	;

         35 A8       FF6E CF     9A  009D   125 	MOVZBL	W^NET_DEF,FAB$B_DNS(R8)	; SET UP DEFAULT NAME

         30 A8       FF69 CF     9E  00A3   126 	MOVAB	W^NET_DEF+1,FAB$L_DNA(R8);

            54         5D 8F     3A  00A9   127 	LOCC	#^A/]/,R4,(R5)		; LOOK FOR NAME START

                          65         00AD       

                          0C     12  00AE   128 	BNEQ	80$			; IF NEQ THEN FOUND

            54            3E     3A  00B0   129 	LOCC	#^A/>/,R4,(R5)		;

                          65         00B3       

                          06     12  00B4   130 	BNEQ	80$			; IF NEQ THEN FOUND

            54            3A     3A  00B6   131 	LOCC	#^A/:/,R4,(R5)		; TRY DEVICE NAME

                          65         00B9       

                          07     13  00BA   132 	BEQL	90$			; IF EQL THEN STRING IS NAME

                          51     D6  00BC   133 80$:	INCL	R1			; PASS DELIM

                          50     D7  00BE   134 	DECL	R0			;

            54            50     7D  00C0   135 	MOVQ	R0,R4			; RESET NAME

            54            2E     3A  00C3   136 90$:	LOCC	#^A/./,R4,(R5)		; LOOK FOR END OF NAME

                          65         00C6       

            54            50     C2  00C7   137 	SUBL	R0,R4			; ADJUST SIZE

            56       0000'CF     9E  00CA   138 	MOVAB	W^LGI$G_OUTFAB,R6	; ADDRESS OUTPUT FILE FAB

         34 A6            54     90  00CF   139 	MOVB	R4,FAB$B_FNS(R6)	; SET UP OUTPUT NAME

         2C A6            55     D0  00D3   140 	MOVL	R5,FAB$L_FNA(R6)	;

                                     00D7   141 	$CREATE	FAB=(R6)		; OPEN THE FILE

                                     00E0   142 	IF_ERR	FATAL,<"SYS$OUTPUT" open>	;

            57       0154 C8     9E  00F8   143 	MOVAB	PRD_G_OUTRAB(R8),R7	; ADDRESS OUTPUT RAB

         3C A7            56     D0  00FD   144 	MOVL	R6,RAB$L_FAB(R7)	; SET ADDRESS OF OUTPUT FAB INTO RAB

         18 A7         40 A6     D0  0101   145 	MOVL	FAB$L_DEV(R6),RAB$L_CTX(R7) ; SAVE DEVICE CHAR IN USER CONTEXT

                                     0106   146 	$CONNECT  RAB=(R7)		; CONNECT TO OUTPUT

         3C A7            68     9E  010F   147 	MOVAB	(R8),RAB$L_FAB(R7)	; SET PROCESS FAB INCASE EVER USED

                          02     F0  0113   148 	INSV	#FAB$M_CR,#RAB$V_PPF_RAT,- ; SET DEFAULT RECORD TO

            08            06         0115   149 		#RAB$S_PPF_RAT,RAB$W_ISI(R7) ; CR/LF MODE

                       02 A7         0117       

         0C AB            57     D0  0119   150 	MOVL	R7,PRC_L_OUTRAB(R11)	; SET OUTPUT RAB FOR ERROR PRINTING

            51         28 A6     D0  011D   151 	MOVL	FAB$L_NAM(R6),R1	; GET ADDRESS OF OUTPUT NAME BLOCK

                                     0121   152 	ASSUME	PRD_W_OUTDID EQ PRD_W_OUTFID+6

                                     0121   153 	ASSUME	NAM$W_DID EQ NAM$W_FID+6

                          0C     28  0121   154 	MOVC	#<6+6>,NAM$W_FID(R1),-	; SET FILE AND DIRECTORY ID'S -

       0198 C8         24 A1         0123   155 		PRD_W_OUTFID(R8)	; INTO RMS DATA AREA OF PROCESS

            50         28 A6     D0  0128   156 	MOVL	FAB$L_NAM(R6),R0	; GET NAME BLOCK BACK

            55         04 A0     D0  012C   157 	MOVL	NAM$L_RSA(R0),R5	; SET ADDRESS OF RESULTANT NAME

            54         03 A0     9A  0130   158 	MOVZBL	NAM$B_RSL(R0),R4	; FORM DESCRIPTOR FOR THAT NAME

            54         5D 8F     3A  0134   159 	LOCC	#^A/]/,R4,(R5)		; LOOK FOR END OF DIRECTORY

                          65         0138       

                          04     12  0139   160 	BNEQ	60$			; BR IF FOUND

            54            3E     3A  013B   161 	LOCC	#^A/>/,R4,(R5)		; ELSE LOOK FOR OTHER DIRECTORY

                          65         013E       

            63            70     9E  013F   162 60$:	MOVAB	-(R0),(R3)		; INSERT LENGTH OF REMAINING NAME

         01 A1            50     28  0142   163 	MOVC	R0,1(R1),1(R3)		; COPY NAME INTO RMS DATA AREA

                       01 A3         0146       

         16 A8            02     90  0148   164 70$:	MOVB	#FAB$M_GET,FAB$B_FAC(R8); SET READ ACCESS ONLY

                                     014C   165 	$OPEN	FAB=(R8)		; OPEN THE INPUT FILE

                                     0155   166 	CLRBIT	FAB$V_NAM,FAB$L_FOP(R8)	; REMOVE OPEN BY NAME BLOCK REQUEST

                                     015A   167 	IF_ERR	FATAL,<"SYS$INPUT" open>

                     008A C8     B4  0171   168 	CLRW	RAB$W_ISI+PRD_G_INPRAB(R8); EFFECT FAST DISCONNECT

LOGNET          - LOGIN A NETWORK CONNECTED JOB                  22-AUG-1978 00:35:44   VAX-11 MACRO X0.3-11               Page   5

X06             LOGIN NETWORK CONNECTED JOB                                                                                      (3)



                                     0175   169 ;

                                     0175   170 ; SET UP SYS$NET LOGICAL NAME

                                     0175   171 ;

                                     0175   172 	$CRELOG_S	TBLFLG=#2,LOGNAM=W^SYS_NET,EQLNAM=W^LGI$Q_SYSEDSC

       0000'CF       0000'CF     7D  0188   173 	MOVQ	W^LGI$Q_SYSODSC,W^LGI$Q_SYSEDSC; SYS$ERROR BECOMES SYS$OUTPUT

                     0000'CF     94  018F   174 	CLRB	W^LGI$T_CLINAM		; SET NO CLI NAME FOR DCL

                                 05  0193   175 	RSB				; PROCEED WITH LOGIN

                                     0194   176 	.END	

LOGNET          - LOGIN A NETWORK CONNECTED JOB                  22-AUG-1978 00:35:44   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (3)



$$.TMP1        = 00000001            FAB$M_CIF      = 02000000            FAB$V_DFW      = 00000005            

$$.TMP2        = 00000068            FAB$M_CR       = 00000002            FAB$V_DLT      = 0000000F            

BIT...         = 00000020            FAB$M_CTG      = 00100000            FAB$V_DMO      = 0000000C            

DJI$B_FLAGS      00000002            FAB$M_DEL      = 00000004            FAB$V_ESC      = 0000001B            

DJI$C_SIZE       00000080            FAB$M_DFW      = 00000020            FAB$V_EXE      = 00000007            

DJI$K_SIZE       00000080            FAB$M_DLT      = 00008000            FAB$V_FTN      = 00000000            

DJI$L_UIC        00000004            FAB$M_DMO      = 00001000            FAB$V_GET      = 00000001            

DJI$T_ACNTNAM    00000014            FAB$M_ESC      = 08000000            FAB$V_INP      = 00000013            

DJI$T_JOBNAME    00000038            FAB$M_EXE      = 00000080            FAB$V_JNL      = 00000016            

DJI$T_PARMS      00000040            FAB$M_FTN      = 00000001            FAB$V_KFO      = 0000001E            

DJI$T_USERNAM    00000008            FAB$M_GET      = 00000002            FAB$V_MSE      = 00000004            

DJI$T_VOLNAM     0000001C            FAB$M_INP      = 00080000            FAB$V_MXV      = 00000001            

DJI$W_DIRID      00000032            FAB$M_JNL      = 00400000            FAB$V_NAM      = 00000018            

DJI$W_FILEID     0000002C            FAB$M_KFO      = 40000000            FAB$V_NEF      = 0000000A            

DJI$W_MSGTYP     00000000            FAB$M_MSE      = 00000010            FAB$V_NFS      = 00000010            

FAB$B_BID        00000000            FAB$M_MXV      = 00000002            FAB$V_NIL      = 00000005            

FAB$B_BKS        0000003E            FAB$M_NAM      = 01000000            FAB$V_OFP      = 0000001D            

FAB$B_BLN        00000001            FAB$M_NEF      = 00000400            FAB$V_ORG      = 00000004            

FAB$B_DNS        00000035            FAB$M_NFS      = 00010000            FAB$V_POS      = 00000008            

FAB$B_FAC        00000016            FAB$M_NIL      = 00000020            FAB$V_PPF      = 00000012            

FAB$B_FNS        00000034            FAB$M_OFP      = 20000000            FAB$V_PPF_IND  = 0000000E            

FAB$B_FSZ        0000003F            FAB$M_POS      = 00000100            FAB$V_PPF_RAT  = 00000006            

FAB$B_ORG        0000001D            FAB$M_PPF      = 00040000            FAB$V_PRN      = 00000002            

FAB$B_RAT        0000001E            FAB$M_PPF_IND  = 00004000            FAB$V_PUT      = 00000000            

FAB$B_RFM        0000001F            FAB$M_PPF_RAT  = 00003FC0            FAB$V_RCK      = 00000017            

FAB$B_RTV        0000001C            FAB$M_PRN      = 00000004            FAB$V_RWC      = 0000000B            

FAB$B_SHR        00000017            FAB$M_PUT      = 00000001            FAB$V_RWO      = 00000007            

FAB$C_BID      = 00000003            FAB$M_RCK      = 00800000            FAB$V_SCF      = 0000000E            

FAB$C_BLN        00000050            FAB$M_RWC      = 00000800            FAB$V_SHRDEL   = 00000002            

FAB$C_FIX      = 00000001            FAB$M_RWO      = 00000080            FAB$V_SHRGET   = 00000001            

FAB$C_HSH      = 00000030            FAB$M_SCF      = 00004000            FAB$V_SHRPUT   = 00000000            

FAB$C_IDX      = 00000020            FAB$M_SHRDEL   = 00000004            FAB$V_SHRUPD   = 00000003            

FAB$C_MAXRFM   = 00000003            FAB$M_SHRGET   = 00000002            FAB$V_SPL      = 0000000D            

FAB$C_REL      = 00000010            FAB$M_SHRPUT   = 00000001            FAB$V_SQO      = 00000006            

FAB$C_RFM_DFLT = 00000002            FAB$M_SHRUPD   = 00000008            FAB$V_SUP      = 00000002            

FAB$C_SEQ      = 00000000            FAB$M_SPL      = 00002000            FAB$V_TEF      = 0000001C            

FAB$C_UDF      = 00000000            FAB$M_SQO      = 00000040            FAB$V_TMD      = 00000004            

FAB$C_VAR      = 00000002            FAB$M_SUP      = 00000004            FAB$V_TMP      = 00000003            

FAB$C_VFC      = 00000003            FAB$M_TEF      = 10000000            FAB$V_TRN      = 00000004            

FAB$K_BLN        00000050            FAB$M_TMD      = 00000010            FAB$V_UFM      = 0000001A            

FAB$L_ALQ        00000010            FAB$M_TMP      = 00000008            FAB$V_UFO      = 00000011            

FAB$L_CTX        00000018            FAB$M_TRN      = 00000010            FAB$V_UPD      = 00000003            

FAB$L_DEV        00000040            FAB$M_UFM      = 04000000            FAB$V_UPI      = 00000006            

FAB$L_DNA        00000030            FAB$M_UFO      = 00020000            FAB$V_WCK      = 00000009            

FAB$L_FNA        0000002C            FAB$M_UPD      = 00000008            FAB$W_BLS        0000003C            

FAB$L_FOP        00000004            FAB$M_UPI      = 00000040            FAB$W_DEQ        00000014            

FAB$L_JNL        00000020            FAB$M_WCK      = 00000200            FAB$W_IFI        00000002            

FAB$L_MRN        00000038            FAB$S_ORG      = 00000004            FAB$W_MRS        00000036            

FAB$L_NAM        00000028            FAB$S_PPF_RAT  = 00000008            GBL...         = 00000000            

FAB$L_SDC        00000044            FAB$V_BIO      = 00000005            IDF_K_LENGTH     0000005C            

FAB$L_STS        00000008            FAB$V_BLK      = 00000003            IDF_L_INPRABCTX  0000000C            

FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            IDF_L_ONCTLY     00000058            

FAB$L_XAB        00000024            FAB$V_CBT      = 00000015            IDF_L_ONERROR    00000008            

FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            IDF_L_OUTRABCTX  00000010            

FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001            IDF_Q_LABEL      0000001C            

FAB$M_BRO      = 00000040            FAB$V_CTG      = 00000014            IDF_Q_LOCAL      00000014            

FAB$M_CBT      = 00200000            FAB$V_DEL      = 00000002            IDF_T_INPDVI     00000034            

LOGNET          - LOGIN A NETWORK CONNECTED JOB                  22-AUG-1978 00:35:44   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (3)



IDF_T_OUTDVI     00000024            MSG$_PROTOCOL  = 00000037            NAM$M_WILD_GRP = 01000000            

IDF_V_INPOPN   = 00000000            MSG$_REJECT    = 00000038            NAM$M_WILD_MBR = 02000000            

IDF_W_FLAG       00000056            MSG$_RESOPR    = 00000013            NAM$M_WILD_NAME= 00000020            

IDF_W_INPDID     0000004A            MSG$_SCANBAD   = 00000028            NAM$M_WILD_SFD1= 02000000            

IDF_W_INPFID     00000044            MSG$_SCANRSP   = 00000029            NAM$M_WILD_SFD2= 04000000            

IDF_W_INPIFI     00000000            MSG$_SMBDON    = 00000009            NAM$M_WILD_SFD3= 08000000            

IDF_W_INPRFA     00000050            MSG$_SMBINI    = 00000008            NAM$M_WILD_SFD4= 10000000            

IDF_W_ONLEVEL    00000006            MSG$_SMBRSP    = 00000020            NAM$M_WILD_SFD5= 20000000            

IDF_W_OUTIFI     00000002            MSG$_SNDACC    = 0000000A            NAM$M_WILD_SFD6= 40000000            

IDF_W_OUTISI     00000004            MSG$_SNDSMB    = 00000004            NAM$M_WILD_SFD7= 80000000            

LGI$CHK_JOBCNT   ********   X   03   MSG$_SUSOPR    = 00000012            NAM$M_WILD_TYPE= 00000010            

LGI$FATAL        ********   X   03   MSG$_THIRDPARTY= 00000039            NAM$M_WILD_UFD = 01000000            

LGI$G_OUTFAB     ********   X   03   MSG$_TIMEOUT   = 0000003A            NAM$M_WILD_VER = 00000008            

LGI$K_BUFSIZ   = 00000100            MSG$_TRMHANGUP = 00000006            NAM$S_DIR_LVLS = 00000003            

LGI$K_WORK       00000114            MSG$_TRMUNSOLIC= 00000001            NAM$T_DVI        00000014            

LGI$L_PREVHAND   00000004            MSG$_XM_ATTN   = 0000000D            NAM$V_DIR_LVLS = 00000015            

LGI$L_SAVSP      00000010            MSG$_XM_DATAVL = 0000000B            NAM$V_EXP_DEV  = 00000007            

LGI$NETWORK      0000001B RG    03   MSG$_XM_SHUTDN = 0000000C            NAM$V_EXP_DIR  = 00000006            

LGI$Q_IOSB       00000008            NAM$B_BID        00000000            NAM$V_EXP_NAME = 00000002            

LGI$Q_SYSEDSC    ********   X   03   NAM$B_BLN        00000001            NAM$V_EXP_TYPE = 00000001            

LGI$Q_SYSODSC    ********   X   03   NAM$B_CURLVL     00000038            NAM$V_EXP_VER  = 00000000            

LGI$Q_UAFREC     ********   X   03   NAM$B_ESL        0000000B            NAM$V_GRP_MBR  = 00000013            

LGI$SETUSRDEF    ********   X   03   NAM$B_ESS        0000000A            NAM$V_HIGHVER  = 0000000F            

LGI$T_CLINAM     ********   X   03   NAM$B_RSL        00000003            NAM$V_LOWVER   = 0000000E            

LGI$T_WRKBUF     00000014            NAM$B_RSS        00000002            NAM$V_NODE     = 00000011            

LGI$VALIDATE     ********   X   03   NAM$C_BID      = 00000002            NAM$V_PPF      = 00000010            

LGI$W_FLAGS      00000000            NAM$C_BLN        00000038            NAM$V_QUOTED   = 00000012            

LGI$W_MBCHAN     00000002            NAM$C_BLN_DIRWC  00000050            NAM$V_WILDCARD = 00000008            

LGI_M_CONTU    = 00000001            NAM$C_DVI      = 00000010            NAM$V_WILD_DIR = 00000014            

LGI_M_DELSEC   = 00000010            NAM$C_MAXRSS   = 00000080            NAM$V_WILD_GRP = 00000018            

LGI_M_FULMSG   = 00000020            NAM$C_MAXRSSLCL= 00000060            NAM$V_WILD_MBR = 00000019            

LGI_M_NOACNT   = 00000002            NAM$K_BLN        00000038            NAM$V_WILD_NAME= 00000005            

LGI_M_SETDEF   = 00000004            NAM$K_BLN_DIRWC  00000050            NAM$V_WILD_SFD1= 00000019            

LGI_M_SUBPRC   = 00000008            NAM$L_DIRWCC1    00000040            NAM$V_WILD_SFD2= 0000001A            

LGI_V_CONTU    = 00000000            NAM$L_DIRWCC2    00000044            NAM$V_WILD_SFD3= 0000001B            

LGI_V_DELSEC   = 00000004            NAM$L_DIRWCC3    00000048            NAM$V_WILD_SFD4= 0000001C            

LGI_V_FULMSG   = 00000005            NAM$L_DIRWCC4    0000004C            NAM$V_WILD_SFD5= 0000001D            

LGI_V_NOACNT   = 00000001            NAM$L_DWC        00000038            NAM$V_WILD_SFD6= 0000001E            

LGI_V_SETDEF   = 00000002            NAM$L_ESA        0000000C            NAM$V_WILD_SFD7= 0000001F            

LGI_V_SUBPRC   = 00000003            NAM$L_FNB        00000034            NAM$V_WILD_TYPE= 00000004            

MSG$_ABOOPR    = 00000011            NAM$L_RLF        00000010            NAM$V_WILD_UFD = 00000018            

MSG$_ABORT     = 00000030            NAM$L_RSA        00000004            NAM$V_WILD_VER = 00000003            

MSG$_ACCRSP    = 00000021            NAM$L_WCC        00000030            NAM$W_DID        0000002A            

MSG$_CONFIRM   = 00000031            NAM$M_DIR_LVLS = 00E00000            NAM$W_DID_NUM    0000002A            

MSG$_CONNECT   = 00000032            NAM$M_EXP_DEV  = 00000080            NAM$W_DID_RVN    0000002E            

MSG$_CRUNSOLIC = 00000002            NAM$M_EXP_DIR  = 00000040            NAM$W_DID_SEQ    0000002C            

MSG$_DELPROC   = 00000003            NAM$M_EXP_NAME = 00000004            NAM$W_FID        00000024            

MSG$_DELSMB    = 00000014            NAM$M_EXP_TYPE = 00000002            NAM$W_FID_NUM    00000024            

MSG$_DEVOFFLIN = 00000005            NAM$M_EXP_VER  = 00000001            NAM$W_FID_RVN    00000028            

MSG$_DEVONLIN  = 00000007            NAM$M_GRP_MBR  = 00080000            NAM$W_FID_SEQ    00000026            

MSG$_DISCON    = 00000033            NAM$M_HIGHVER  = 00008000            NAM$W_PRV_DID    0000003A            

MSG$_EXIT      = 00000034            NAM$M_LOWVER   = 00004000            NET_DEF          0000000F R     03   

MSG$_INIOPR    = 00000010            NAM$M_NODE     = 00020000            PRC_B_DEFRADIX   00000092            

MSG$_INTMSG    = 00000035            NAM$M_PPF      = 00010000            PRC_B_EXMDEPMOD  00000091            

MSG$_OPREPLY   = 00000009            NAM$M_QUOTED   = 00040000            PRC_B_EXMDEPWID  00000090            

MSG$_OPRQST    = 00000008            NAM$M_WILDCARD = 00000100            PRC_K_DEC      = 00000001            

MSG$_PATHLOST  = 00000036            NAM$M_WILD_DIR = 00100000            PRC_K_HEX      = 00000000            

LOGNET          - LOGIN A NETWORK CONNECTED JOB                  22-AUG-1978 00:35:44   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (3)



PRC_K_LENGTH     000000A0            PRC_V_HANGUP   = 0000000C            RAB$M_CCO      = 80000000            

PRC_K_OCT      = 00000002            PRC_V_IND      = 00000005            RAB$M_CVT      = 04000000            

PRC_L_CLIWRK0    0000005C            PRC_V_MODE     = 00000006            RAB$M_EOF      = 00000100            

PRC_L_CLIWRK1    00000060            PRC_V_NOCTLY   = 0000000E            RAB$M_FDL      = 00000040            

PRC_L_CLIWRK2    00000064            PRC_V_PAUSE    = 0000000D            RAB$M_HSH      = 00000080            

PRC_L_CLIWRK3    00000068            PRC_V_USRDET   = 00000008            RAB$M_KGE      = 00200000            

PRC_L_CLIWRK4    0000006C            PRC_V_VERIFY   = 00000007            RAB$M_KGT      = 00400000            

PRC_L_ERRRAB     00000010            PRC_V_YLEVEL   = 0000000B            RAB$M_LIM      = 00004000            

PRC_L_EXMDEPADR  0000008C            PRC_W_CLIFLAG    00000052            RAB$M_LOA      = 00002000            

PRC_L_EXTARG     00000078            PRC_W_ERRIFI     00000052            RAB$M_LOC      = 00010000            

PRC_L_EXTBLK     00000070            PRC_W_FLAGS      00000054            RAB$M_MAS      = 00000020            

PRC_L_EXTCOD     00000080            PRC_W_INPCHAN    00000050            RAB$M_NLK      = 00100000            

PRC_L_EXTHND     00000074            PRC_W_ONLEVEL    00000056            RAB$M_NXR      = 00800000            

PRC_L_EXTPRM     0000007C            PRD_G_ALTINPRAB  000000CC            RAB$M_PMT      = 40000000            

PRC_L_INDEPTH    00000048            PRD_G_ALTOUTRAB  00000110            RAB$M_PPF_IND  = 00004000            

PRC_L_INDFAB     0000001C            PRD_G_FAB        00000000            RAB$M_PPF_RAT  = 00003FC0            

PRC_L_INDINPRAB  00000014            PRD_G_INPRAB     00000088            RAB$M_PTA      = 20000000            

PRC_L_INDOUTRAB  00000018            PRD_G_NAM        00000050            RAB$M_RAH      = 00000200            

PRC_L_INPRAB     00000008            PRD_G_OUTRAB     00000154            RAB$M_RLK      = 00080000            

PRC_L_LSTSTATUS  00000094            PRD_K_LENGTH     00000198            RAB$M_RNE      = 01000000            

PRC_L_ONCTLY     0000009C            PRD_K_XLENGTH    000001B8            RAB$M_RNF      = 08000000            

PRC_L_ONERROR    00000058            PRD_T_OUTFNM     000001A4            RAB$M_TMO      = 02000000            

PRC_L_OUTRAB     0000000C            PRD_W_OUTDID     0000019E            RAB$M_TPT      = 00000002            

PRC_L_PROCUIC    00000098            PRD_W_OUTFID     00000198            RAB$M_UIF      = 00000010            

PRC_L_SAVAP      00000000            RAB$B_BID        00000000            RAB$M_ULK      = 00040000            

PRC_L_SAVFP      00000004            RAB$B_BLN        00000001            RAB$M_WAT      = 00020000            

PRC_L_SEVERITY   00000040            RAB$B_KRF        00000035            RAB$M_WBH      = 00000400            

PRC_L_STACKLM    00000088            RAB$B_KSZ        00000034            RAB$S_PPF_RAT  = 00000008            

PRC_L_STACKPT    00000084            RAB$B_MBC        00000037            RAB$V_ASY      = 00000000            

PRC_L_STATUS     00000044            RAB$B_MBF        00000036            RAB$V_BIO      = 0000000B            

PRC_L_SYMBOL     0000004C            RAB$B_PSZ        00000034            RAB$V_CCO      = 0000001F            

PRC_M_CNTRLY   = 00000002            RAB$B_RAC        0000001E            RAB$V_CVT      = 0000001A            

PRC_M_DBGQUAL  = 00000200            RAB$B_ROP1       00000005            RAB$V_EOF      = 00000008            

PRC_M_DBGTRUE  = 00000400            RAB$B_ROP2       00000006            RAB$V_FDL      = 00000006            

PRC_M_DISABL   = 00000004            RAB$B_ROP3       00000007            RAB$V_HSH      = 00000007            

PRC_M_EXIT     = 00000008            RAB$B_TMO        0000001F            RAB$V_KGE      = 00000015            

PRC_M_GOEOF    = 00000001            RAB$C_BID      = 00000001            RAB$V_KGT      = 00000016            

PRC_M_GOTO     = 00000010            RAB$C_BLN        00000044            RAB$V_LIM      = 0000000E            

PRC_M_HANGUP   = 00001000            RAB$C_KEY      = 00000001            RAB$V_LOA      = 0000000D            

PRC_M_IND      = 00000020            RAB$C_RFA      = 00000002            RAB$V_LOC      = 00000010            

PRC_M_MODE     = 00000040            RAB$C_SEQ      = 00000000            RAB$V_MAS      = 00000005            

PRC_M_NOCTLY   = 00004000            RAB$K_BLN        00000044            RAB$V_NLK      = 00000014            

PRC_M_PAUSE    = 00002000            RAB$L_BKT        00000038            RAB$V_NXR      = 00000017            

PRC_M_USRDET   = 00000100            RAB$L_CTX        00000018            RAB$V_PMT      = 0000001E            

PRC_M_VERIFY   = 00000080            RAB$L_DCT        00000038            RAB$V_PPF_IND  = 0000000E            

PRC_M_YLEVEL   = 00000800            RAB$L_FAB        0000003C            RAB$V_PPF_RAT  = 00000006            

PRC_Q_ALLOCREG   00000020            RAB$L_KBF        00000030            RAB$V_PTA      = 0000001D            

PRC_Q_GLOBAL     00000028            RAB$L_PBF        00000030            RAB$V_RAH      = 00000009            

PRC_Q_LABEL      00000030            RAB$L_RBF        00000028            RAB$V_RLK      = 00000013            

PRC_Q_LOCAL      00000038            RAB$L_RFA0       00000010            RAB$V_RNE      = 00000018            

PRC_V_CNTRLY   = 00000001            RAB$L_RHB        0000002C            RAB$V_RNF      = 0000001B            

PRC_V_DBGQUAL  = 00000009            RAB$L_ROP        00000004            RAB$V_TMO      = 00000019            

PRC_V_DBGTRUE  = 0000000A            RAB$L_STS        00000008            RAB$V_TPT      = 00000001            

PRC_V_DISABL   = 00000002            RAB$L_STV        0000000C            RAB$V_UIF      = 00000004            

PRC_V_EXIT     = 00000003            RAB$L_UBF        00000024            RAB$V_ULK      = 00000012            

PRC_V_GOEOF    = 00000000            RAB$M_ASY      = 00000001            RAB$V_WAT      = 00000011            

PRC_V_GOTO     = 00000004            RAB$M_BIO      = 00000800            RAB$V_WBH      = 0000000A            

LOGNET          - LOGIN A NETWORK CONNECTED JOB                  22-AUG-1978 00:35:44   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (3)



RAB$W_ISI        00000002            

RAB$W_RFA        00000010            

RAB$W_RFA4       00000014            

RAB$W_RSZ        00000022            

RAB$W_USZ        00000020            

SYS$CONNECT      ********  GX   03   

SYS$CREATE       ********  GX   03   

SYS$CRELOG       ********   X   03   

SYS$OPEN         ********  GX   03   

SYS_NET          00000000 R     03   

_$$_           = 000000EF            





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$            000001B8      02     NOPIC   USR   CON   ABS   LCL NOSHR   EXE   RD    WRT BYTE  

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





THERE WERE NO ERRORS OR WARNINGS.

11426. BYTES LEFT IN FREE MEMORY POOL.

1378. BYTES OF RECLAIMED MEMORY.

OBJ$:LOGNET,LIS$:LOGNET/-SP=EXECML$/ML,LIB$:LOGIN/ML,SRC$:LOGNET

47 MLB DIR RDS - 808 GETS TO DEFINE 29 MACROS. 60 INTER. FILE WRITES. 

