JBCPRACNT       - PROCESS ACCOUNTING MODULE                      22-AUG-1978 00:44:17   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      40  DECLARATIONS

   (2)      94  ACCOUNT FILE MAINTAINANCE ROUTINES

   (3)     171  ACCOUNT FILE OPEN ROUTINE

   (4)     215  ACCOUNTING MANAGER FUNCTIONS

JBCPRACNT       - PROCESS ACCOUNTING MODULE                      22-AUG-1978 00:44:17   VAX-11 MACRO X0.3-11               Page   1

V01                                                                                                                              (1)



                                     0000     1 	.TITLE	JBCPRACNT - PROCESS ACCOUNTING MODULE

                                     0000     2 	.IDENT	/V01/

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 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:	STARLET JOB_CONTROLLER

                                     0000    25 ;

                                     0000    26 ; ABSTRACT:	THIS MODULE CONTAINS THE JOB_CONTROLLER ACCOUNT

                                     0000    27 ;		FILE MAINTAINANCE ROUTINES.

                                     0000    28 ;

                                     0000    29 ; ENVIRONMENT:	THIS MODULE MAKES UP PART OF THE JOB_CONTROLLER

                                     0000    30 ;		SYSTEM PROCESS.

                                     0000    31 ;

                                     0000    32 ; AUTHOR:	W.H.BROWN, CREATION DATE: 5-JAN-78

                                     0000    33 ;

                                     0000    34 ; MODIFIED BY:

                                     0000    35 ;

                                     0000    36 ;  , VERSION  ,

                                     0000    37 ; 01	- 

                                     0000    38 ;--

JBCPRACNT       - PROCESS ACCOUNTING MODULE                      22-AUG-1978 00:44:17   VAX-11 MACRO X0.3-11               Page   2

V01             DECLARATIONS                                                                                                     (1)



                                     0000    40 	.SBTTL	DECLARATIONS

                                     0000    41 ;

                                     0000    42 ; INCLUDE FILES:

                                     0000    43 ;

                                     0000    44 ;	[231,10]J/ML

                                     0000    45 ;

                                     0000    46 ; EQUATED SYMBOLS:

                                     0000    47 ;

                                     0000    48 	JBCPARDEF			; JOB CONTROLLER PARAMETERS

                                     0000    49 	JBCQUEDEF			; THE QUEUE DEFINITONS

                                     0000    50 	$ACCDEF				; ACCOUNT FILE DEFINITIONS

                                     0000    51 	$MSGDEF				; SYSTEM WIDE MESSAGE CODES

                                     0000    52 ;

                                     0000    53 ; OWN STORAGE:

                                     0000    54  

                                     0000    55 	IMPURE_DATA

                                     0000    56  

                                     0000    57 JBC$G_ACNTFAB::				; THE ACCOUNTING FAB

                                     0000    58 	$FAB	FAC=PUT,-		; FILE ACCESS IS WRITE

                                     0000    59 		FNA=ACNTNM,-		; FILE NAME STRING

                                     0000    60 		FNS=ACNTSZ,-		; LENGTH OF THE STRING

                                     0000    61 		FOP=<CIF>,-		; CREATE IF NOT PRESENT

                                     0000    62 		DEQ=25,-		; ALLOCATE 25 BLOCKS ON EACH EXTEND

                                     0000    63 		ORG=SEQ,-		; FILE IS SEQUENTIAL

                                     0000    64 		RFM=VAR,-		; VARIABLE LENGTH RECORDS

                                     0000    65 		SHR=<GET,UPI>,-		; SHARE GETS WITH USER INTERLOCK

                                     0000    66  					;

                                     0050    67 JBC$G_ACNTRAB::				; ACCOUNTING RAB

                                     0050    68 	$RAB	FAB=JBC$G_ACNTFAB,-	; ASSOCIATED FAB

                                     0050    69 		MBC=1,-			; MULTI-BLOCK COUNT IS ONE

                                     0050    70 		MBF=2,-			; TWO BUFFERS

                                     0050    71 		RAC=SEQ,-		; ACCESS IS SEQUENTIAL

                                     0050    72 		ROP=<EOF,WBH>		; CONNECT TO EOF AND WRITE BEHIND

                                     0094    73 					;

                                     0094    74 JBC$L_ACNTFLAG::			; ACCOUNTING FLAG WORD

                           FFFFFFFF  0094    75 	.LONG	-1			; ENABLE ALL TYPES OF ACCOUNTING

                                     0098    76  

                                     0098    77 	PURE_SECTION

                                     0000    78  

                                     0000    79  

59 53 5B 3A 4B 53 49 44 24 53 59 53  0000    80 ACNTNM:	.ASCII	\SYS$DISK:[SYSMGR]ACCOUNTNG.DAT\

54 4E 55 4F 43 43 41 5D 52 47 4D 53  000C       

                  54 41 44 2E 47 4E  0018       

                           0000001E  001E    81 ACNTSZ = . - ACNTNM

                                     001E    82  

                                     001E    83 ;

                                     001E    84 ; OPRREQ - THIS WORD CONTAINS A BIT SET FOR ALL REQUESTS WHICH REQUIRE

                                     001E    85 ;	OPERATOR PRIVILEGE.

                                     001E    86 ;

                                     001E    87  

                           0000007C  001E    88 OPRREQ:	.LONG	<1@ACC$K_NEWFILE>!-	; OPEN A NEW FILE

                                     0022    89 		<1@ACC$K_ENABACC>!-	; ENABLE ACCOUNTING

                                     0022    90 		<1@ACC$K_DISAACC>!-	; DISABLE ACCOUNTING

                                     0022    91 		<1@ACC$K_ENABSEL>!-	; ENABLE SELECTIVE ACCOUNTING

                                     0022    92 		<1@ACC$K_DISASEL>	; DISABLE SELECTIVE ACCOUNTING

JBCPRACNT       - PROCESS ACCOUNTING MODULE                      22-AUG-1978 00:44:17   VAX-11 MACRO X0.3-11               Page   3

V01             ACCOUNT FILE MAINTAINANCE ROUTINES                                                                               (2)



                                     0022    94 	.SBTTL	ACCOUNT FILE MAINTAINANCE ROUTINES

                                     0022    95 ;++

                                     0022    96 ; FUNCTIONAL DESCRIPTION:

                                     0022    97 ;

                                     0022    98 ;	THIS ROUTINE IS CALLED TO WRITE THEN OPTIONAL FLUSH

                                     0022    99 ;	THE ACCOUNTING FILE.

                                     0022   100 ;

                                     0022   101 ; CALLING SEQUENCE:

                                     0022   102 ;

                                     0022   103 ;	BSB/JSB	JBC$WRTFLSACNT		; WRITE AND FLUSH THE ACCOUNTING FILE

                                     0022   104 ;	BSB/JSB	JBC$WRTACNT		; WRITE THE ACCOUNTING FILE

                                     0022   105 ;

                                     0022   106 ; INPUT PARAMETERS:

                                     0022   107 ;

                                     0022   108 ;	R2 = BYTE COUNT OF RECORD TO WRITE

                                     0022   109 ;	R3 = BUFFER ADDRESS

                                     0022   110 ;

                                     0022   111 ; IMPLICIT INPUTS:

                                     0022   112 ;

                                     0022   113 ;	THE ACCOUNT FILE IS OPEN IF ACCOUNTING IS ENABLED.

                                     0022   114 ;

                                     0022   115 ; OUTPUT PARAMETERS:

                                     0022   116 ;

                                     0022   117 ;	R2 = ADDRESS OF ACCOUNT FILE RAB

                                     0022   118 ;

                                     0022   119 ; COMPLETION CODES:

                                     0022   120 ;

                                     0022   121 ;	R0 LOW BIT CLEAR INDICATES THE FILE WAS NOT WRITTEN.

                                     0022   122 ;

                                     0022   123 ; SIDE EFFECTS:

                                     0022   124 ;

                                     0022   125 ;	A NEW COPY OF THE ACCOUNTING FILE MAY BE OPENNED

                                     0022   126 ;	IF THERE IS AN ERROR DETECTED WRITING THE FILE.

                                     0022   127 ;

                                     0022   128 ;--

                                     0022   129  

                                     0022   130 	PURE_SECTION

                                     0022   131 	.ENABL	LSB

                                     0022   132  

                                     0022   133 JBC$WRTFLSACNT::			; WRITE AND FLUSH THE FILE

                          04     10  0022   134 	BSBB	10$			; COMMON ROUTINE

                                 01  0024   135 	.BYTE	1			; THE FLUSH FLAG IS TRUE

                                     0025   136  

                                     0025   137 JBC$WRTACNT::				; WRITE THE ACCOUNTING FILE

                          01     10  0025   138 	BSBB	10$			; COMMON ROUTINE

                                 00  0027   139 	.BYTE	0			; THE FLUSH FLAG IS FALSE

         02 A3            52     B0  0028   140 10$:	MOVW	R2,ACC$W_MSGSIZ(R3)	; SET SIZE IN RECORD

       0072'CF            52     B0  002C   141 	MOVW	R2,W^JBC$G_ACNTRAB+RAB$W_RSZ ; SET RECORD SIZE IN RAB

            52       0050'CF     9E  0031   142 	MOVAB	W^JBC$G_ACNTRAB,R2	; GET RAB ADDRESS

         18 A2            9E     90  0036   143 	MOVB	@(SP)+,RAB$L_CTX(R2)	; COPY FLUSH FLAG INTO USER CONTEXT AREA

         28 A2            53     D0  003A   144 	MOVL	R3,RAB$L_RBF(R2)	; SET RECORD BUFFER ADDRESS

                          50     D4  003E   145 20$:	CLRL	R0			; ASSUME NO ACCOUNTING

                       02 A2     B5  0040   146 	TSTW	RAB$W_ISI(R2)		; FILE OPENNED?

                          39     13  0043   147 	BEQL	40$			; BR IF NO

            51            63     3C  0045   148 	MOVZWL	ACC$W_MSGTYP(R3),R1	; GET THE TYPE OF ACCOUNTING

       0094'CF            51     E1  0048   149 	BBC	R1,W^JBC$L_ACNTFLAG,40$	; BR IF THIS TYPE IS OFF

                          30         004D       

JBCPRACNT       - PROCESS ACCOUNTING MODULE                      22-AUG-1978 00:44:17   VAX-11 MACRO X0.3-11               Page   4

V01             ACCOUNT FILE MAINTAINANCE ROUTINES                                                                               (2)



            62            20     E5  004E   150 	BBCC	#RAB$V_ASY+<RAB$L_ROP*8>,(R2),30$ ; BR IF LAST OPERATION SERIAL

                          0C         0051       

                                     0052   151 	$WAIT	RAB=(R2)		; WAIT FOR PREVIOUS IO TO STOP

            21            50     E9  005B   152 	BLBC	R0,60$			; BR IF ERROR ON FILE

                                     005E   153 30$:	$PUT	RAB=(R2)		; WRITE THE RECORD

            15            50     E9  0067   154 	BLBC	R0,60$			; BR IF ERROR WRITING THE FILE

            10         18 A2     E9  006A   155 	BLBC	RAB$L_CTX(R2),40$	; BR IF NO FLUSH NEEDED

                                     006E   156 	SETBIT	#<RAB$V_ASY+<RAB$L_ROP*8>>,(R2) ; FLUSHES ARE ASYNCHRONOUS

                                     0072   157 	$FLUSH	RAB=(R2)		; WRITE DIRTY RECORDS TO THE FILE

            01            50     E9  007B   158 	BLBC	R0,60$			; BR IF ERROR

                                 05  007E   159 40$:	RSB				;

                                     007F   160  

                                     007F   161 ;

                                     007F   162 ; ERROR WRITING THE FILE - TRY TO OPEN A NEW COPY

                                     007F   163 ;

                                     007F   164  

                                     007F   165 60$:	SHOW_ERROR ACNT_FIL_RIT		;

                          02     10  0081   166 	BSBB	JBC$OPENACNT		; OPEN THE ACCOUNTING FILE

                          B9     11  0083   167 	BRB	20$			; WRITE THE RECORD AGAIN

                                     0085   168  

                                     0085   169 	.DSABL	LSB

JBCPRACNT       - PROCESS ACCOUNTING MODULE                      22-AUG-1978 00:44:17   VAX-11 MACRO X0.3-11               Page   5

V01             ACCOUNT FILE OPEN ROUTINE                                                                                        (3)



                                     0085   171 	.SBTTL	ACCOUNT FILE OPEN ROUTINE

                                     0085   172 ;++

                                     0085   173 ; FUNCTIONAL DESCRIPTION:

                                     0085   174 ;

                                     0085   175 ;	THIS ROUTINE IS CALLED TO OPEN AN ACCOUNTING FILE.

                                     0085   176 ;	IF THERE IS ALREADY ONE OPEN IT IS CLOSED AND A NEW

                                     0085   177 ;	COPY IS CREATED.

                                     0085   178 ;

                                     0085   179 ; CALLING SEQUENCE:

                                     0085   180 ;

                                     0085   181 ;	BSB/JSB	JBC$OPENACNT		;

                                     0085   182 ;

                                     0085   183 ; INPUT PARAMETERS:	NONE

                                     0085   184 ;

                                     0085   185 ; OUTPUT PARAMETERS:

                                     0085   186 ;

                                     0085   187 ;	R2 = ADDRESS OF ACCOUNT FILE RAB

                                     0085   188 ;

                                     0085   189 ; COMPLETION CODES:

                                     0085   190 ;

                                     0085   191 ;	R0 LOW BIT CLEAR INDICATES THE FILE WAS NOT OPENED.

                                     0085   192 ;

                                     0085   193 ; SIDE EFFECTS:		NONE

                                     0085   194 ;--

                                     0085   195 	PURE_SECTION

                                     0085   196  

                                     0085   197 JBC$OPENACNT::				; OPEN THE ACCOUNTING FILE

            52       0000'CF     9E  0085   198 	MOVAB	W^JBC$G_ACNTFAB,R2	; SET FAB ADDRESS

                                     008A   199 	SETBIT	FAB$V_CIF,FAB$L_FOP(R2)	; ASSUME OPEN PREVIOUS IS DESIRED

                       02 A2     B5  008F   200 	TSTW	FAB$W_IFI(R2)		; IS FILE OPEN?

                          0E     13  0092   201 	BEQL	10$			; BR IF FILE NOT OPEN

                                     0094   202 	CLRBIT	FAB$V_CIF,FAB$L_FOP(R2)	; IF ALREADY OPEN - CREATE A NEW

                                     0099   203 	$CLOSE	FAB=R2			; CLOSE THE CURRENT FILE

                       10 A2     D4  00A2   204 10$:	CLRL	FAB$L_ALQ(R2)		; SET FOR NO INITIAL ALLOCATION

                                     00A5   205 	$CREATE	FAB=R2			; CREATE OR OPEN THE FILE

            52       0050'CF     9E  00AE   206 	MOVAB	W^JBC$G_ACNTRAB,R2	; GET THE RAB

                       02 A2     B4  00B3   207 	CLRW	RAB$W_ISI(R2)		; MAKE SURE DISCONNECT IS DONE

            0D            50     E9  00B6   208 	BLBC	R0,30$			; BR IF ERROR OPENING FILE

                                     00B9   209 	$CONNECT RAB=R2			; CONNECT TO OUTPUT STREAM

            01            50     E9  00C2   210 	BLBC	R0,30$			; SHOW ERROR

                                 05  00C5   211 	RSB

                                     00C6   212 30$:	SHOW_ERROR  ACNT_FIL_OPN	; ERROR ON ACCOUNTING FILE

                                 05  00C8   213 	RSB				; 

JBCPRACNT       - PROCESS ACCOUNTING MODULE                      22-AUG-1978 00:44:17   VAX-11 MACRO X0.3-11               Page   6

V01             ACCOUNTING MANAGER FUNCTIONS                                                                                     (4)



                                     00C9   215 	.SBTTL	ACCOUNTING MANAGER FUNCTIONS

                                     00C9   216 ;++

                                     00C9   217 ; FUNCTIONAL DESCRIPTION:

                                     00C9   218 ;

                                     00C9   219 ;	THIS ROUTINE IS CALLED TO PROCESS THE SEND MESSAGE

                                     00C9   220 ;	TO ACCOUNTING MANAGER REQUEST.

                                     00C9   221 ;

                                     00C9   222 ; CALLING SEQUENCE:

                                     00C9   223 ;

                                     00C9   224 ;	BSB/JSB	ACM$ACNTMAN		;

                                     00C9   225 ;

                                     00C9   226 ; INPUT PARAMETERS:

                                     00C9   227 ;

                                     00C9   228 ;	R9 CONTAINS THE ADDRESS OF THE MESSAGE TO PROCESS

                                     00C9   229 ;

                                     00C9   230 ; OUTPUT PARAMETERS:	NONE

                                     00C9   231 ;

                                     00C9   232 ; COMPLETION CODES:

                                     00C9   233 ;

                                     00C9   234 ;	R0 CONTAINS THE STATUS OF THE REQUEST

                                     00C9   235 ;

                                     00C9   236 ; SIDE EFFECTS:		NONE

                                     00C9   237 ;--

                                     00C9   238 	PURE_SECTION

                                     00C9   239 	.ENABL	LSB			;

                                     00C9   240  

                                     00C9   241 ACM$ACNTMAN::				;

            57         26 A9     3C  00C9   242 	MOVZWL	ACM$W_USERREQ(R9),R7	; GET THE REQUEST TYPE CODE

       FF4C CF            57     E1  00CD   243 	BBC	R7,OPRREQ,10$		; BR IF OPERATOR PRIVILEGE NOT NEEDED

                          06         00D2       

                          FF2A'  30  00D3   244 	BSBW	SYM$CKOPRPRV		; VERIFY REQUESTOR HAS PRIVILEGE

            19            50     E9  00D6   245 	BLBC	R0,30$			; BR IF NO

                                     00D9   246 10$:	SETSTAT	ACMINVOP		; ASSUME INVALID OPERATION

                          04     10  00DC   247 	BSBB	20$			; EXECUTE THE REQUEST

            52            21     3C  00DE   248 	MOVZWL	#MSG$_ACCRSP,R2		; SET MESSAGE TYPE FOR RESPONCE

                                 05  00E1   249 	RSB				; RETURN TO MESSAGE DISPATCHER

                                     00E2   250 20$:	CASE	R7,<-			; DECODE REQUEST

                                     00E2   251 		ACM$SENDMSG,-		; SEND A MESSAGE TO THE ACCOUNTING FILE

                                     00E2   252 		ACM$NEWFILE,-		; OPEN A NEW FILE

                                     00E2   253 		ACM$ENABACC,-		; ENABLE ACCOUNTING

                                     00E2   254 		ACM$DISAACC,-		; DISABLE ACCOUNTING

                                     00E2   255 		ACM$SELENAB,-		; SELECTIVE ENABLE

                                     00E2   256 		ACM$SELDISA,-		; SELECTIVE DISABLE

                                     00E2   257 		>,-

                                     00E2   258 	LIMIT=#1			; LOW LIMIT FOR CASE

                                 05  00F2   259 30$:		RSB

JBCPRACNT       - PROCESS ACCOUNTING MODULE                      22-AUG-1978 00:44:17   VAX-11 MACRO X0.3-11               Page   7

V01             ACCOUNTING MANAGER FUNCTIONS                                                                                     (4)



                                     00F3   261 ;+

                                     00F3   262 ; ACM$SENDMSG - SNED MESSAGE TO THE ACCOUNTING FILE

                                     00F3   263 ;

                                     00F3   264 ; THIS ROUTINE IS ENTERED WHEN A USER REQUESTS TO HAVE A MESSAGE INSERTED

                                     00F3   265 ; INTO THE ACCOUNTING FILE. NOTE THAT THE HEADER FOR THE ACCOUNTING FILE

                                     00F3   266 ; IS 4 BYTES LONGER THAN THE HEADER FOR A JOB CONTROLLER MESSAGE.  THEREFORE

                                     00F3   267 ; THE HEADER FOR THE ACCOUNTING FILE IS BUILT USING THE LONGWORD PRECEEDING

                                     00F3   268 ; THE JOB CONTROLLER HEADER WHICH IS THE PROCESS ID FROM THE MAILBOX READ

                                     00F3   269 ; IO STATUS BLOCK.  AS THE ACCOUNTING HEADER IS BUILT, THE AREAS THAT MUST

                                     00F3   270 ; BE SAVED FROM THE MESSAGE HEADER ARE PUT INTO TEMP LOCATIONS.

                                     00F3   271 ;-

                                     00F3   272  

                                     00F3   273 ACM$SENDMSG:				;

            53         FC A9     DE  00F3   274 	MOVAL	-4(R9),R3		; SET START OF ACCOUNTING MESSAGE

            52            53     D0  00F7   275 	MOVL	R3,R2			; COPY START OF MESSAGE

            50            62     D0  00FA   276 	MOVL	(R2),R0			; SAVE PID OF SENDING PROCESS

                                     00FD   277 	ASSUME	ACC$W_MSGTYP EQ 0	;

            82            11     9A  00FD   278 	MOVZBL	#ACC$K_INSMSG,(R2)+	; SET MESSAGE TYPE FIELD

                                     0100   279 	ASSUME	ACC$L_FINALSTS EQ 4	;

            82            00'    D0  0100   280 	MOVL	S^#SS$_NORMAL,(R2)+	; FINAL STATUS IS NORMAL

                                     0103   281 	ASSUME	ACC$L_PID EQ 8		;

            82            50     D0  0103   282 	MOVL	R0,(R2)+		; INSERT PID OF SENDING PROCESS

                                     0106   283 	ASSUME	ACC$L_JOBID EQ 12	;

                          82     D4  0106   284 	CLRL	(R2)+			; SET JOB ID TO 0

                       10 A9     DD  0108   285 	PUSHL	SMR$T_USERNAM(R9)	; SAVE FIRST 4 BYTE OF USERNAME

                                     010B   286 	ASSUME	ACC$Q_TERMTIME EQ 16	;

            82         C4 AB     7D  010B   287 	MOVQ	JCD_Q_TIME(R11),(R2)+	; SET TIME OF DAY

            50            62     7D  010F   288 	MOVQ	(R2),R0			; SAVE REMAINDER OF USER NAME

                                     0112   289 	ASSUME	ACC$T_ACCOUNT EQ 24	;

            82         1C A9     7D  0112   290 	MOVQ	SMR$Q_ACNTNAM(R9),(R2)+ ; FILL IN USERS ACCOUNT NAME

                                     0116   291 	ASSUME	ACC$T_USERNAME EQ 32	;

                          82   8ED0  0116   292 	POPL	(R2)+			; INSERT FIRST 4 BYTES OF USERNAME

            82            50     7D  0119   293 	MOVQ	R0,(R2)+		; AND REST OF USERNAME

            51            82     9A  011C   294 	MOVZBL	(R2)+,R1		; GET COUNT OF USER DATA

            52            51     C0  011F   295 	ADDL	R1,R2			; FIND END OF TOTAL MESSAGE

            52            53     C2  0122   296 	SUBL	R3,R2			; FIND BYTE COUNT FOR MESSAGE

                          FEFD   31  0125   297 	BRW	JBC$WRTACNT		; WRITE RECORD TO ACCOUNTING FILE

JBCPRACNT       - PROCESS ACCOUNTING MODULE                      22-AUG-1978 00:44:17   VAX-11 MACRO X0.3-11               Page   8

V01             ACCOUNTING MANAGER FUNCTIONS                                                                                     (4)



                                     0128   299  

                                     0128   300 ;+

                                     0128   301 ; ACM$NEWFILE - OPEN A NEW ACCOUNTING FILE

                                     0128   302 ;

                                     0128   303 ;	THE CURRENT ACCOUNTING FILE IS CLOSED AND A NEW ONE IS

                                     0128   304 ;	OPENED.  IF ACCOUNTING WAS DISABLED, IT IS RE-ENABLED.

                                     0128   305 ;-

                                     0128   306 ACM$NEWFILE:				;

                          03     10  0128   307 	BSBB	ACM$ENABACC		; MAKE SURE ACCOUNTING IS ENABLED

                          FF58   31  012A   308 	BRW	JBC$OPENACNT		; THEN OPEN A NEW FILE

                                     012D   309  

                                     012D   310 ;+

                                     012D   311 ; ACM$ENABACC - ENABLE ACCOUNTING

                                     012D   312 ;

                                     012D   313 ;	ACCOUNTING IS ENABLED.  IF IS ALREADY WAS ENABLED AN INVALID

                                     012D   314 ;	OPERATION IS RETURNED.

                                     012D   315 ;-

                                     012D   316 	.ENABL	LSB

                                     012D   317  

                                     012D   318 ACM$ENABACC:				;

                     0002'CF     B5  012D   319 	TSTW	W^JBC$G_ACNTFAB+FAB$W_IFI ; IS ACCOUNTING ENABLED?

                          18     12  0131   320 	BNEQ	10$			; BR IF YES-RETURN ERROR

                          FF4F   31  0133   321 	BRW	JBC$OPENACNT		; OPEN THE ACCOUNTING FILE

                                     0136   322  

                                     0136   323 ;+

                                     0136   324 ; ACM$DISAACC - DISABLE ACCOUNTING

                                     0136   325 ;

                                     0136   326 ;	THE ACCOUNTING FILE IS CLOSED, THEREBY DISABLING ACCOUNTING

                                     0136   327 ;	UNTIL A REQUEST TO ENABLE IS RECIEVED.

                                     0136   328 ;-

                                     0136   329  

                                     0136   330 ACM$DISAACC:				;

                     0002'CF     B5  0136   331 	TSTW	W^JBC$G_ACNTFAB+FAB$W_IFI ; IS ACCOUNTING ENABLED?

                          0F     13  013A   332 	BEQL	10$			; IF EQUAL N0, CAN'T DISABLE THEN

                                     013C   333 	$CLOSE	FAB=W^JBC$G_ACNTFAB	; CLOSE THE ACCOUNTING FILE

                     0052'CF     B4  0147   334 	CLRW	W^JBC$G_ACNTRAB+RAB$W_ISI ; EFFECT A FAST DISCONNECT

                                 05  014B   335 10$:	RSB				; RETURN STATUS OF CLOSE

                                     014C   336  

                                     014C   337 	.DSABL	LSB

JBCPRACNT       - PROCESS ACCOUNTING MODULE                      22-AUG-1978 00:44:17   VAX-11 MACRO X0.3-11               Page   9

V01             ACCOUNTING MANAGER FUNCTIONS                                                                                     (5)



                                     014C   339  

                                     014C   340 ;+

                                     014C   341 ; ACM$SELENAB - SELECTIVE ENABLE OF ACCOUNTING TYPES

                                     014C   342 ; ACM$SELDISA - SELECTIVE DISABLE OF ACCOUNTING TYPES

                                     014C   343 ;

                                     014C   344 ;	THESE REQEST TAKE A ZERO TERMINATED STRING OF ACCOUNTING

                                     014C   345 ;	TYPE BYTES TO ENABLE OR DISABLE.  IF ANY BYTE IS INVALID

                                     014C   346 ;	NOTHING IS DONE.

                                     014C   347 ;-

                                     014C   348 	.ENABL	LSB

                                     014C   349  

                                     014C   350 ACM$SELENAB:				;

            51            01     D0  014C   351 	MOVL	#1,R1			; SET ENABLE FLAG

                          02     11  014F   352 	BRB	10$			;

                                     0151   353 ACM$SELDISA:				;

                          51     D4  0151   354 	CLRL	R1			; SET DIABALE FLAG

            54         28 A9     9E  0153   355 10$:	MOVAB	ACM$T_DATA(R9),R4	; POINT A BIT LIST

                          55     D4  0157   356 	CLRL	R5			; ZERO INITIAL MASK

            52            84     9A  0159   357 20$:	MOVZBL	(R4)+,R2		; GET THE BIT NUMBER

                          0B     13  015C   358 	BEQL	30$			; BR ON END OF LIST

            1F            52     91  015E   359 	CMPB	R2,#31			; IS BIT NUMBER TOO LARGE

                          16     1A  0161   360 	BGTRU	60$			; BR IF YES

                                     0163   361 	SETBIT	R2,R5			; BUILD THE BIT MASK

                          F0     11  0167   362 	BRB	20$			;

                                     0169   363 30$:	SETSTAT	NORMAL			; LIST IS AOK - RETURN GOOD STATUS

       0094'CF            55     C8  016C   364 	BISL	R5,W^JBC$L_ACNTFLAG	; ASSUME OPERATION IS ENABLE

            05            51     E8  0171   365 	BLBS	R1,60$			; BR IF IT WAS ENABLE

       0094'CF            55     CA  0174   366 	BICL	R5,W^JBC$L_ACNTFLAG	; DISABLE THE ACCOUNTING FUNCTIONS

                                 05  0179   367 60$:	RSB

                                     017A   368  

                                     017A   369 	.END

JBCPRACNT       - PROCESS ACCOUNTING MODULE                      22-AUG-1978 00:44:17   VAX-11 MACRO X0.3-11               Page  10

SYMBOL TABLE                                                                                                                     (5)



$$.TAB         = 00000050 R     03   ACM$NEWFILE      00000128 R     04   FAB$M_CBT      = 00200000            

$$.TABEND      = 00000094 R     03   ACM$Q_ACNTNAM    0000001C            FAB$M_CIF      = 02000000            

$$.TMP         = 00000500            ACM$Q_PRVMSK     00000004            FAB$M_CR       = 00000002            

$$.TMP1        = 00000001            ACM$SELDISA      00000151 R     04   FAB$M_CTG      = 00100000            

$$.TMP2        = 000000CF            ACM$SELENAB      0000014C R     04   FAB$M_DEL      = 00000004            

ACC$C_INS_LEN    000000B0            ACM$SENDMSG      000000F3 R     04   FAB$M_DFW      = 00000020            

ACC$C_JOB_LEN    0000006C            ACM$T_DATA       00000028            FAB$M_DLT      = 00008000            

ACC$C_PRT_LEN    00000058            ACM$T_USERNAM    00000010            FAB$M_DMO      = 00001000            

ACC$C_TERMLEN    00000054            ACM$W_MAILBOX    00000002            FAB$M_ESC      = 08000000            

ACC$K_BATTRM   = 00000002            ACM$W_TYPE       00000000            FAB$M_EXE      = 00000080            

ACC$K_DISAACC  = 00000004            ACM$W_USERREQ    00000026            FAB$M_FTN      = 00000001            

ACC$K_DISASEL  = 00000006            ACNTNM           00000000 R     04   FAB$M_GET      = 00000002            

ACC$K_ENABACC  = 00000003            ACNTSZ         = 0000001E            FAB$M_INP      = 00080000            

ACC$K_ENABSEL  = 00000005            ACNT_FIL_OPN     ********   X   04   FAB$M_JNL      = 00400000            

ACC$K_INSMESG  = 00000001            ACNT_FIL_RIT     ********   X   04   FAB$M_KFO      = 40000000            

ACC$K_INSMSG   = 00000011            BIT...         = 00000020            FAB$M_MSE      = 00000010            

ACC$K_INS_LEN    000000B0            FAB$B_BID        00000000            FAB$M_MXV      = 00000002            

ACC$K_INTTRM   = 00000003            FAB$B_BKS        0000003E            FAB$M_NAM      = 01000000            

ACC$K_JOB_LEN    0000006C            FAB$B_BLN        00000001            FAB$M_NEF      = 00000400            

ACC$K_LOGTRM   = 00000004            FAB$B_DNS        00000035            FAB$M_NFS      = 00010000            

ACC$K_NEWFILE  = 00000002            FAB$B_FAC        00000016            FAB$M_NIL      = 00000020            

ACC$K_PRCTRM   = 00000001            FAB$B_FNS        00000034            FAB$M_OFP      = 20000000            

ACC$K_PRTJOB   = 00000010            FAB$B_FSZ        0000003F            FAB$M_POS      = 00000100            

ACC$K_PRT_LEN    00000058            FAB$B_ORG        0000001D            FAB$M_PPF      = 00040000            

ACC$K_TERMLEN    00000054            FAB$B_RAT        0000001E            FAB$M_PPF_IND  = 00004000            

ACC$L_BIOCNT     0000003C            FAB$B_RFM        0000001F            FAB$M_PPF_RAT  = 00003FC0            

ACC$L_CPUTIM     0000002C            FAB$B_RTV        0000001C            FAB$M_PRN      = 00000004            

ACC$L_DIOCNT     00000040            FAB$B_SHR        00000017            FAB$M_PUT      = 00000001            

ACC$L_FINALSTS   00000004            FAB$C_BID      = 00000003            FAB$M_RCK      = 00800000            

ACC$L_GETCNT     00000038            FAB$C_BLN        00000050            FAB$M_RWC      = 00000800            

ACC$L_JOBID      0000000C            FAB$C_FIX      = 00000001            FAB$M_RWO      = 00000080            

ACC$L_OWNER      00000050            FAB$C_HSH      = 00000030            FAB$M_SCF      = 00004000            

ACC$L_PAGCNT     00000030            FAB$C_IDX      = 00000020            FAB$M_SHRDEL   = 00000004            

ACC$L_PAGEFLTS   00000030            FAB$C_MAXRFM   = 00000003            FAB$M_SHRGET   = 00000002            

ACC$L_PGFLPEAK   00000034            FAB$C_REL      = 00000010            FAB$M_SHRPUT   = 00000001            

ACC$L_PID        00000008            FAB$C_RFM_DFLT = 00000002            FAB$M_SHRUPD   = 00000008            

ACC$L_QIOCNT     00000034            FAB$C_SEQ      = 00000000            FAB$M_SPL      = 00002000            

ACC$L_VOLUMES    00000044            FAB$C_UDF      = 00000000            FAB$M_SQO      = 00000040            

ACC$L_WSPEAK     00000038            FAB$C_VAR      = 00000002            FAB$M_SUP      = 00000004            

ACC$Q_LOGIN      00000048            FAB$C_VFC      = 00000003            FAB$M_TEF      = 10000000            

ACC$Q_QUETIME    0000003C            FAB$K_BLN        00000050            FAB$M_TMD      = 00000010            

ACC$Q_TERMTIME   00000010            FAB$L_ALQ        00000010            FAB$M_TMP      = 00000008            

ACC$T_ACCOUNT    00000018            FAB$L_CTX        00000018            FAB$M_TRN      = 00000010            

ACC$T_JOB_NAME   00000054            FAB$L_DEV        00000040            FAB$M_UFM      = 04000000            

ACC$T_JOB_QUE    0000005C            FAB$L_DNA        00000030            FAB$M_UFO      = 00020000            

ACC$T_PRT_NAME   00000044            FAB$L_FNA        0000002C            FAB$M_UPD      = 00000008            

ACC$T_PRT_QUE    0000004C            FAB$L_FOP        00000004            FAB$M_UPI      = 00000040            

ACC$T_USERNAME   00000020            FAB$L_JNL        00000020            FAB$M_WCK      = 00000200            

ACC$T_USER_DATA  0000002C            FAB$L_MRN        00000038            FAB$S_ORG      = 00000004            

ACC$W_MSGSIZ     00000002            FAB$L_NAM        00000028            FAB$S_PPF_RAT  = 00000008            

ACC$W_MSGTYP     00000000            FAB$L_SDC        00000044            FAB$V_BIO      = 00000005            

ACM$ACNTMAN      000000C9 RG    04   FAB$L_STS        00000008            FAB$V_BLK      = 00000003            

ACM$B_PROCPRI    00000024            FAB$L_STV        0000000C            FAB$V_BRO      = 00000006            

ACM$DISAACC      00000136 R     04   FAB$L_XAB        00000024            FAB$V_CBT      = 00000015            

ACM$ENABACC      0000012D R     04   FAB$M_BIO      = 00000020            FAB$V_CIF      = 00000019            

ACM$L_PROCID     FFFFFFFC            FAB$M_BLK      = 00000008            FAB$V_CR       = 00000001            

ACM$L_UIC        0000000C            FAB$M_BRO      = 00000040            FAB$V_CTG      = 00000014            

JBCPRACNT       - PROCESS ACCOUNTING MODULE                      22-AUG-1978 00:44:17   VAX-11 MACRO X0.3-11               Page  11

SYMBOL TABLE                                                                                                                     (5)



FAB$V_DEL      = 00000002            JBC$_ACNTOPN   = 00048478            JBC_V_CREJOBREQ= 00000003            

FAB$V_DFW      = 00000005            JBC$_ACNTWRT   = 00048480            JBC_V_MBREADREQ= 00000000            

FAB$V_DLT      = 0000000F            JBC$_ENTQUE    = 000484A8            JBC_V_SRVTIMQUE= 00000004            

FAB$V_DMO      = 0000000C            JBC$_ILLDEVNAM = 00048000            JBC_V_SYMCREREQ= 00000001            

FAB$V_ESC      = 0000001B            JBC$_ILLDEVTYP = 00048008            JBC_V_SYMINIREQ= 00000002            

FAB$V_EXE      = 00000007            JBC$_ILLFILNAM = 00048010            JCD_A_LBUFADR    0000000C            

FAB$V_FTN      = 00000000            JBC$_ILLQUENAM = 00048018            JCD_A_QUEBASE    00000018            

FAB$V_GET      = 00000001            JBC$_INPASGN   = 00048488            JCD_B_CURPDEV    0000001D            

FAB$V_INP      = 00000013            JBC$_INPREAD   = 00048490            JCD_B_CURSYMB    0000001C            

FAB$V_JNL      = 00000016            JBC$_INVMSG    = 00048418            JCD_G_LISTS      00000000            

FAB$V_KFO      = 0000001E            JBC$_INVSCT    = 00048468            JCD_G_WLEND      FFFFFFF0            

FAB$V_MSE      = 00000004            JBC$_JOBABORT  = 00048080            JCD_G_WORKLIST   FFFFFFD0            

FAB$V_MXV      = 00000001            JBC$_JOBCRD    = 000484B0            JCD_K_SIZE     = 000000FC            

FAB$V_NAM      = 00000018            JBC$_LOSTREC   = 00048438            JCD_L_SMBPID     FFFFFFCC            

FAB$V_NEF      = 0000000A            JBC$_MBASGN    = 00048400            JCD_Q_ACNTFIL    FFFFFFE8            

FAB$V_NFS      = 00000010            JBC$_MBDEAS    = 00048460            JCD_Q_FREEBUFR   FFFFFFF0            

FAB$V_NIL      = 00000005            JBC$_MBREAD    = 00048408            JCD_Q_LBUFDES    00000008            

FAB$V_OFP      = 0000001D            JBC$_MBSETAST  = 000484C8            JCD_Q_PROCDEL    FFFFFFE0            

FAB$V_ORG      = 00000004            JBC$_MBWRITE   = 000484D0            JCD_Q_SYMBMAN    FFFFFFD8            

FAB$V_POS      = 00000008            JBC$_MULTREC   = 00048430            JCD_Q_SYMBSRV    FFFFFFD0            

FAB$V_PPF      = 00000012            JBC$_NOOPENJOB = 00048048            JCD_Q_SYMBWAIT   FFFFFFF8            

FAB$V_PPF_IND  = 0000000E            JBC$_NOPRIV    = 00048020            JCD_Q_TIME       FFFFFFC4            

FAB$V_PPF_RAT  = 00000006            JBC$_NOQUEHDR  = 00048028            JCD_Q_TMPDESC    00000010            

FAB$V_PRN      = 00000002            JBC$_NOQUESPACE= 00048030            JCD_T_INDEX0     00000000            

FAB$V_PUT      = 00000000            JBC$_NORMAL    = 00040001            JCD_T_LINBFE     000000C0            

FAB$V_RCK      = 00000017            JBC$_NOSUCHJOB = 00048040            JCD_T_LINBUF     0000001E            

FAB$V_RWC      = 0000000B            JBC$_NOSUCHQUE = 00048038            JCD_T_START      FFFFFFC4            

FAB$V_RWO      = 00000007            JBC$_PASSCRD   = 000484B8            JCD_W_FLAGS      00000004            

FAB$V_SCF      = 0000000E            JBC$_PRCREAT   = 00048410            JCD_W_JOBSEQ     00000006            

FAB$V_SHRDEL   = 00000002            JBC$_PRINTOUT  = 000484E0            JCD_W_LBUFCNT    00000008            

FAB$V_SHRGET   = 00000001            JBC$_QUECNT    = 00048428            JCD_W_LBUFSIZ    0000000A            

FAB$V_SHRPUT   = 00000000            JBC$_QUEERR    = 00048458            JCD_W_MBCHAN     00000002            

FAB$V_SHRUPD   = 00000003            JBC$_QUENOSTOP = 00048050            JCD_W_TMPCHAN    00000000            

FAB$V_SPL      = 0000000D            JBC$_QUEUPD    = 000484E8            JCM_K_SIZE       000000C0            

FAB$V_SQO      = 00000006            JBC$_SCTERR    = 00048450            JCM_Q_IOSB       00000008            

FAB$V_SUP      = 00000002            JBC$_SMINVOPR  = 00048058            JCM_Q_LINKS      00000000            

FAB$V_TEF      = 0000001C            JBC$_SMINVOPT  = 00048060            JCM_T_MSGDATA    00000010            

FAB$V_TMD      = 00000004            JBC$_SMINVREQ  = 00048068            MSG$_ABOOPR    = 00000011            

FAB$V_TMP      = 00000003            JBC$_SMZEROJOB = 00048070            MSG$_ABORT     = 00000030            

FAB$V_TRN      = 00000004            JBC$_SNDRESP   = 00048420            MSG$_ACCRSP    = 00000021            

FAB$V_UFM      = 0000001A            JBC$_SYMBASN   = 00048440            MSG$_CONFIRM   = 00000031            

FAB$V_UFO      = 00000011            JBC$_SYMBCRE   = 000484D8            MSG$_CONNECT   = 00000032            

FAB$V_UPD      = 00000003            JBC$_SYMBDSAB  = 00048078            MSG$_CRUNSOLIC = 00000002            

FAB$V_UPI      = 00000006            JBC$_SYMBWRT   = 00048448            MSG$_DELPROC   = 00000003            

FAB$V_WCK      = 00000009            JBC$_SYMDEL    = 00048470            MSG$_DELSMB    = 00000014            

FAB$W_BLS        0000003C            JBC$_UAFOPN    = 000484A0            MSG$_DEVOFFLIN = 00000005            

FAB$W_DEQ        00000014            JBC$_UNESYMMSG = 000484C0            MSG$_DEVONLIN  = 00000007            

FAB$W_IFI        00000002            JBC$_USERVAL   = 00048498            MSG$_DISCON    = 00000033            

FAB$W_MRS        00000036            JBC_K_MAXBUFR  = 00000004            MSG$_EXIT      = 00000034            

GBL...         = 00000000            JBC_K_PRTIMFLAG= 00000002            MSG$_INIOPR    = 00000010            

JBC$G_ACNTFAB    00000000 RG    03   JBC_K_SYNCFLAG = 00000001            MSG$_INTMSG    = 00000035            

JBC$G_ACNTRAB    00000050 RG    03   JBC_K_UPDFLG   = 00000008            MSG$_OPREPLY   = 00000009            

JBC$L_ACNTFLAG   00000094 RG    03   JBC_M_CREJOBREQ= 00000008            MSG$_OPRQST    = 00000008            

JBC$OPENACNT     00000085 RG    04   JBC_M_MBREADREQ= 00000001            MSG$_PATHLOST  = 00000036            

JBC$WRTACNT      00000025 RG    04   JBC_M_SRVTIMQUE= 00000010            MSG$_PROTOCOL  = 00000037            

JBC$WRTFLSACNT   00000022 RG    04   JBC_M_SYMCREREQ= 00000002            MSG$_REJECT    = 00000038            

JBC$_ACMINVOP  = 00048088            JBC_M_SYMINIREQ= 00000004            MSG$_RESOPR    = 00000013            

JBCPRACNT       - PROCESS ACCOUNTING MODULE                      22-AUG-1978 00:44:17   VAX-11 MACRO X0.3-11               Page  12

SYMBOL TABLE                                                                                                                     (5)



MSG$_SCANBAD   = 00000028            RAB$M_LOA      = 00002000            SJH$B_PRTPRI     0000000F            

MSG$_SCANRSP   = 00000029            RAB$M_LOC      = 00010000            SJH$L_NEXTJOB    00000008            

MSG$_SMBDON    = 00000009            RAB$M_MAS      = 00000020            SJH$L_PARMBLK    0000003C            

MSG$_SMBINI    = 00000008            RAB$M_NLK      = 00100000            SJH$L_PROCID     00000010            

MSG$_SMBRSP    = 00000020            RAB$M_NXR      = 00800000            SJH$L_RECLINK    00000000            

MSG$_SNDACC    = 0000000A            RAB$M_PMT      = 40000000            SJH$L_UIC        00000014            

MSG$_SNDSMB    = 00000004            RAB$M_PPF_IND  = 00004000            SJH$M_HOLD     = 00000001            

MSG$_SUSOPR    = 00000012            RAB$M_PPF_RAT  = 00003FC0            SJH$M_JOBABORT = 00000004            

MSG$_THIRDPARTY= 00000039            RAB$M_PTA      = 20000000            SJH$M_LOWER    = 00000002            

MSG$_TIMEOUT   = 0000003A            RAB$M_RAH      = 00000200            SJH$Q_ACNTNAM    00000024            

MSG$_TRMHANGUP = 00000006            RAB$M_RLK      = 00080000            SJH$Q_JOBNAME    00000034            

MSG$_TRMUNSOLIC= 00000001            RAB$M_RNE      = 01000000            SJH$Q_TIME       0000002C            

MSG$_XM_ATTN   = 0000000D            RAB$M_RNF      = 08000000            SJH$T_USERNAM    00000018            

MSG$_XM_DATAVL = 0000000B            RAB$M_TMO      = 02000000            SJH$V_HOLD     = 00000000            

MSG$_XM_SHUTDN = 0000000C            RAB$M_TPT      = 00000002            SJH$V_JOBABORT = 00000002            

OPRREQ           0000001E R     04   RAB$M_UIF      = 00000010            SJH$V_LOWER    = 00000001            

RAB$B_BID        00000000            RAB$M_ULK      = 00040000            SJH$W_JOBSEQ     00000004            

RAB$B_BLN        00000001            RAB$M_WAT      = 00020000            SJH$W_MBCHAN     0000000D            

RAB$B_KRF        00000035            RAB$M_WBH      = 00000400            SJH$W_QINDEX     00000006            

RAB$B_KSZ        00000034            RAB$S_PPF_RAT  = 00000008            SMQ$B_CHAR       0000000A            

RAB$B_MBC        00000037            RAB$V_ASY      = 00000000            SMQ$B_FLAGS      00000008            

RAB$B_MBF        00000036            RAB$V_BIO      = 0000000B            SMQ$B_FORMS      00000009            

RAB$B_PSZ        00000034            RAB$V_CCO      = 0000001F            SMQ$B_JOBCNT     00000009            

RAB$B_RAC        0000001E            RAB$V_CVT      = 0000001A            SMQ$B_JOBLIM     0000000B            

RAB$B_ROP1       00000005            RAB$V_EOF      = 00000008            SMQ$C_SIZE       00000020            

RAB$B_ROP2       00000006            RAB$V_FDL      = 00000006            SMQ$K_SIZE       00000020            

RAB$B_ROP3       00000007            RAB$V_HSH      = 00000007            SMQ$L_ASNSCT     0000000C            

RAB$B_TMO        0000001F            RAB$V_KGE      = 00000015            SMQ$L_CURRENT    00000000            

RAB$C_BID      = 00000001            RAB$V_KGT      = 00000016            SMQ$L_HOLDLST    00000004            

RAB$C_BLN        00000044            RAB$V_LIM      = 0000000E            SMQ$M_CREPND   = 00000004            

RAB$C_KEY      = 00000001            RAB$V_LOA      = 0000000D            SMQ$M_DEFBRST  = 00000002            

RAB$C_RFA      = 00000002            RAB$V_LOC      = 00000010            SMQ$M_DEFFLAG  = 00000001            

RAB$C_SEQ      = 00000000            RAB$V_MAS      = 00000005            SMQ$M_DETJOB   = 00000002            

RAB$K_BLN        00000044            RAB$V_NLK      = 00000014            SMQ$M_GENDEV   = 00000010            

RAB$L_BKT        00000038            RAB$V_NXR      = 00000017            SMQ$M_INIPRI   = 0000000F            

RAB$L_CTX        00000018            RAB$V_PMT      = 0000001E            SMQ$M_INUSE    = 00000001            

RAB$L_DCT        00000038            RAB$V_PPF_IND  = 0000000E            SMQ$M_LOWER    = 00000008            

RAB$L_FAB        0000003C            RAB$V_PPF_RAT  = 00000006            SMQ$M_NOGENERIC= 00000020            

RAB$L_KBF        00000030            RAB$V_PTA      = 0000001D            SMQ$M_NOSWAP   = 00000010            

RAB$L_PBF        00000030            RAB$V_RAH      = 00000009            SMQ$M_PAUSED   = 00000004            

RAB$L_RBF        00000028            RAB$V_RLK      = 00000013            SMQ$M_REDIRECT = 00000010            

RAB$L_RFA0       00000010            RAB$V_RNE      = 00000018            SMQ$M_STOPPED  = 00000008            

RAB$L_RHB        0000002C            RAB$V_RNF      = 0000001B            SMQ$M_TRMDEV   = 00000004            

RAB$L_ROP        00000004            RAB$V_TMO      = 00000019            SMQ$S_INIPRI   = 00000004            

RAB$L_STS        00000008            RAB$V_TPT      = 00000001            SMQ$T_NAME       00000010            

RAB$L_STV        0000000C            RAB$V_UIF      = 00000004            SMQ$V_CREPND   = 00000002            

RAB$L_UBF        00000024            RAB$V_ULK      = 00000012            SMQ$V_DEFBRST  = 00000001            

RAB$M_ASY      = 00000001            RAB$V_WAT      = 00000011            SMQ$V_DEFFLAG  = 00000000            

RAB$M_BIO      = 00000800            RAB$V_WBH      = 0000000A            SMQ$V_DETJOB   = 00000001            

RAB$M_CCO      = 80000000            RAB$W_ISI        00000002            SMQ$V_GENDEV   = 00000004            

RAB$M_CVT      = 04000000            RAB$W_RFA        00000010            SMQ$V_INIPRI   = 00000000            

RAB$M_EOF      = 00000100            RAB$W_RFA4       00000014            SMQ$V_INUSE    = 00000000            

RAB$M_FDL      = 00000040            RAB$W_RSZ        00000022            SMQ$V_LOWER    = 00000003            

RAB$M_HSH      = 00000080            RAB$W_USZ        00000020            SMQ$V_NOGENERIC= 00000005            

RAB$M_KGE      = 00200000            SJH$B_COPYCNT    0000000E            SMQ$V_NOSWAP   = 00000004            

RAB$M_KGT      = 00400000            SJH$B_FLAGS      0000000C            SMQ$V_PAUSED   = 00000002            

RAB$M_LIM      = 00004000            SJH$B_FORMS      0000000D            SMQ$V_REDIRECT = 00000004            

JBCPRACNT       - PROCESS ACCOUNTING MODULE                      22-AUG-1978 00:44:17   VAX-11 MACRO X0.3-11               Page  13

SYMBOL TABLE                                                                                                                     (5)



SMQ$V_STOPPED  = 00000003            SYM_K_MAXFILNAM= 00000013            

SMQ$V_TRMDEV   = 00000002            SYM_K_MAXSYMB  = 00000010            

SMR$B_PROCPRI    00000024            SYM_K_NUMQUEUE = 0000001F            

SMR$L_PROCID     FFFFFFFC            SYM_K_NUMRECORD= 00000400            

SMR$L_UIC        0000000C            SYM_K_PRTPRI   = 00000020            

SMR$Q_ACNTNAM    0000001C            SYM_K_QUENAM   = 0000000F            

SMR$Q_PRVMSK     00000004            SYS$CLOSE        ********  GX   04   

SMR$T_DATA       00000028            SYS$CONNECT      ********  GX   04   

SMR$T_USERNAM    00000010            SYS$CREATE       ********  GX   04   

SMR$W_MAILBOX    00000002            SYS$FLUSH        ********  GX   04   

SMR$W_TYPE       00000000            SYS$PUT          ********  GX   04   

SMR$W_USERREQ    00000026            SYS$WAIT         ********  GX   04   

SQH$B_FLAGS      00000004            _$$$_          = 00000022            

SQH$B_MAXQUE     00000006            _$$_           = 00000052            

SQH$B_NUMQUE     00000005            

SQH$B_SPARE      00000007            

SQH$C_SIZE       00000120            

SQH$K_SIZE       00000120            

SQH$L_FIRSTREC   00000008            

SQH$L_FREEREC    00000000            

SQH$L_LASTREC    00000010            

SQH$L_NEXTREC    0000000C            

SQH$L_OPENJOB    00000014            

SQH$L_TIMQUE     00000018            

SQH$Q_QUEUE      00000020            

SQH$W_QUESEQ     0000001C            

SQR$B_COPYCNT    00000039            

SQR$B_FLAGS      00000038            

SQR$L_RECLINK    00000000            

SQR$M_BRSTPAG  = 00000004            

SQR$M_DELETE   = 00000001            

SQR$M_DOUBLE   = 00000008            

SQR$M_FLAGPAG  = 00000002            

SQR$M_NOFEED   = 00000010            

SQR$M_PAGHDR   = 00000020            

SQR$T_FILNAM     00000024            

SQR$T_VOLNAM     00000008            

SQR$V_BRSTPAG  = 00000002            

SQR$V_DELETE   = 00000000            

SQR$V_DOUBLE   = 00000003            

SQR$V_FLAGPAG  = 00000001            

SQR$V_NOFEED   = 00000004            

SQR$V_PAGHDR   = 00000005            

SQR$W_DIRNUM     0000001E            

SQR$W_DIRSEQ     00000020            

SQR$W_DIRVOL     00000022            

SQR$W_FILNUM     00000018            

SQR$W_FILSEQ     0000001A            

SQR$W_JOBSEQ     00000004            

SQR$W_PAGCNT     0000003A            

SQR$W_RECID      00000006            

SQR$W_RELVOL     0000001C            

SS$_NORMAL       ********   X   04   

SYM$CKOPRPRV     ********   X   04   

SYM$C_RECSIZE    00000040            

SYM$K_RECSIZE    00000040            

SYM_K_MAXDEVNAM= 0000000F            

JBCPRACNT       - PROCESS ACCOUNTING MODULE                      22-AUG-1978 00:44:17   VAX-11 MACRO X0.3-11               Page  14

PROGRAM SECTION SYNOPSIS                                                                                                         (5)







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

JBC_RWDATA       00000098      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

JBC_PURE         0000017A      04     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

3588. BYTES LEFT IN FREE MEMORY POOL.

1168. BYTES OF RECLAIMED MEMORY.

OBJ$:JBCPRACNT,LIS$:JBCPRACNT/-SP=EXECML$/ML,LIB$:JOBCTL/ML,SRC$:JBCPRACNT

95 MLB DIR RDS - 1118 GETS TO DEFINE 49 MACROS. 72 INTER. FILE WRITES. 

