SET$ACCNT       - SET SYSTEM ACCOUNTING                          21-AUG-1978 19:05:34   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (3)      45  DECLARATIONS

   (4)     123  SET ACCOUNTING

SET$ACCNT       - SET SYSTEM ACCOUNTING                          21-AUG-1978 19:05:34   VAX-11 MACRO X0.3-11               Page   1

V01                                                                                                                              (1)



                                     0000     1 	.TITLE	SET$ACCNT - SET SYSTEM ACCOUNTING

                                     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 ;++

                                     0000    25 ; FACILITY:	DCL SET COMMAND

                                     0000    26 ;

                                     0000    27 ; ABSTRACT:

                                     0000    28 ;	THIS MODULE IMPLEMENTS THE SET SYSTEM ACCOUNTING COMMAND

                                     0000    29 ;

                                     0000    30 ;

                                     0000    31 ; ENVIRONMENT:

                                     0000    32 ;

                                     0000    33 ;	RUNS IN USER MODE

                                     0000    34 ;

                                     0000    35 ; AUTHOR : W. H. BROWN  CREATION DATE: 11-FEB-1978

                                     0000    36 ;

                                     0000    37 ; MODIFIED BY:

                                     0000    38 ;

                                     0000    39 ;	, : VERSION

                                     0000    40 ; 01	- 

                                     0000    41 ;--

SET$ACCNT       - SET SYSTEM ACCOUNTING                          21-AUG-1978 19:05:34   VAX-11 MACRO X0.3-11               Page   2

V01                                                                                                                              (3)



                                     0000    43 

                                     0000    44 

                                     0000    45 	.SBTTL	DECLARATIONS

                                     0000    46 

                                     0000    47 ;

                                     0000    48 ; Include files:

                                     0000    49 ;

                                     0000    50 

                                     0000    51 	$CLIDEFQUALSET		; SET COMMAND QUALIFIERS

                                     0000    52 	$CLIMSGDEF		; DEFINE CLI MESSAGES

                                     0000    53 	$ACCDEF			; ACCOUNTING DEFINITONS

                                     0000    54 	$MSGDEF			; MESSAGE DEFINITIONS

                                     0000    55 	$STSDEF			; STATUS CODE DEFINITIONS

                                     0000    56 

                                     0000    57 ;

                                     0000    58 ; MACROS:

                                     0000    59 ;

                                     0000    60 

                                     0000    61 ;

                                     0000    62 ; EQUATED SYMBOLS:

                                     0000    63 ;

                           00000010  0000    64 	BUFSIZ	= 16			; TEMPORARY STACK BUFFER SIZE

                           FFFFFFFC  0000    65 	MBCHAN	= -4			; OFFSET TO MAILBOX CHANNEL FROM FP

                           FFFFFFEC  0000    66 	BUFFER	= MBCHAN-BUFSIZ		; OFFSET TO BUFFER FROM FP

                           00000014  0000    67 	WRKSIZ	= -BUFFER		; SIZE OF THE WORK AREA

                                     0000    68 ;

                                     0000    69 ; OWN STORAGE:

                                     0000    70 ;

                                     0000    71 

                                 00000000    72 	.PSECT	SET$RWDATA	LONG,RD,WRT,NOEXE

                                     0000    73 

                                     0000    74 ;

                                     0000    75 ; DEFINE CLI CALL BACK STRUCTURES

                                     0000    76 ;

                                     0000    77 

                                     0000    78 ACCO_G_ASCIIVAL:			; REQUEST DESCRIPTOR

                                     0000    79 	$CLIREQDESC	-		;

                                     0000    80 		RQTYPE=CLI$K_ASCIIVAL	; GET ASCII VALUE

                                     001C    81  

                                     001C    82 ACCO_G_GETQUAL:

                                     001C    83 	$CLIREQDESC	-		; REQUEST DESCRIPTOR

                                     001C    84 		RQTYPE=CLI$K_GETQUAL,-	; TO SET QUALIFIERS

                                     001C    85 		QUALST=QUEU_A_QUALST	; QUALIFIER LIST

                                     0038    86 QUEU_A_QUALST:				; QUALIFIER LIST

                                     0038    87 	$CLIQUALDEF	-		;

                                     0038    88 		QDCODE=CLI$K_STAC_DISA,-; DISABLE ACCOUNTING

                                     0038    89 		TRUACT=ACCO_DISA	; TRUE ACTION ROUTINE

                                     004F    90  

                                     004F    91 	$CLIQUALDEF	-		;

                                     004F    92 		QDCODE=CLI$K_STAC_ENAB,-; ENABLE ACCOUNTING

                                     004F    93 		TRUACT=ACCO_ENAB	;

                                     0066    94  

                                     0066    95 	$CLIQUALDEF	-		;

                                     0066    96 		QDCODE=CLI$K_STAC_NEW_,- ; CREATE A NEW FILE

                                     0066    97 		TRUACT=ACCO_NEWFILE	;

                                     007D    98 	$CLIQUALDEF	END_LIST	;

                                     007E    99  

SET$ACCNT       - SET SYSTEM ACCOUNTING                          21-AUG-1978 19:05:34   VAX-11 MACRO X0.3-11               Page   3

V01             DECLARATIONS                                                                                                     (3)



                                     007E   100 ;

                                     007E   101 ; DEFINE PURE DATA IN CODE PSECT TO IMPROVE LOCALITY

                                     007E   102 ;

                                     007E   103  

                                 00000000   104 	.PSECT	SET$CODE	RD,NOWRT,EXE,BYTE

                                     0000   105  

                                     0000   106 ACCO_G_KEYWORDS:			; KEY WORDS FOR SELECTIVE ENABLE/DISABLE

                     43 54 41 42 00' 0000   107 	.ASCIC	\BATC\			; BATCH JOB ACCOUNTING

                                 04  0000       

                     45 54 4E 49 00' 0005   108 	.ASCIC	\INTE\			; INTERACTIVE JOB ACCOUNTING

                                 04  0005       

                     49 47 4F 4C 00' 000A   109 	.ASCIC	\LOGI\			; LOGIN FAILURES

                                 04  000A       

                     53 53 45 4D 00' 000F   110 	.ASCIC	\MESS\			; MESSAGES SENT TO ACCOUNTING MANAGER

                                 04  000F       

                     4E 49 52 50 00' 0014   111 	.ASCIC	\PRIN\			; PRINT JOB ACCOUNTING

                                 04  0014       

                     43 4F 52 50 00' 0019   112 	.ASCIC	\PROC\			; GENERAL PROCESS TERMINATION

                                 04  0019       

                                 00  001E   113 	.BYTE	0			; END OF LIST

                                     001F   114  

                                     001F   115 ACCO_G_VALS:				; CORRECPONDING VALUES FOR KEYWORDS

                                 02  001F   116 	.BYTE	ACC$K_BATTRM		; BATCH JOB ACCOUNTING

                                 03  0020   117 	.BYTE	ACC$K_INTTRM		; INTERACTIVE JOB ACCOUNTING

                                 04  0021   118 	.BYTE	ACC$K_LOGTRM		; LOGIN FAILURE TERMINATION

                                 11  0022   119 	.BYTE	ACC$K_INSMSG		; MESSAGES SENT BY USER PROCESS

                                 10  0023   120 	.BYTE	ACC$K_PRTJOB		; PRINT JOB ACCOUNTING

                                 01  0024   121 	.BYTE	ACC$K_PRCTRM		; GENERAL PROCESS TERMINATION

SET$ACCNT       - SET SYSTEM ACCOUNTING                          21-AUG-1978 19:05:34   VAX-11 MACRO X0.3-11               Page   4

V01             SET ACCOUNTING                                                                                                   (4)



                                     0025   123 	.SBTTL	SET ACCOUNTING

                                     0025   124 ;++

                                     0025   125 ; FUNCTIONAL DESCRIPTION:

                                     0025   126 ;

                                     0025   127 ;	THIS ROUTINE IS ENTERED BY THE SET COMMAND DISPATCHER WHEN

                                     0025   128 ;	A SET ACCOUNTING COMMAND IS EXECUTED. ALL WORK IS PERFORMED

                                     0025   129 ;	IN THE APPROPRAITE QUALIFER TRUE ACTION ROUTINES.

                                     0025   130 ;

                                     0025   131 ; CALLING SEQUENCE:	CALLS OR CALLG

                                     0025   132 ;

                                     0025   133 ; INPUT PARAMETERS:	NONE

                                     0025   134 ;

                                     0025   135 ; IMPLICIT INPUTS:	RESULT PARSE ADDRESS @ CLI$A_UTILSERV(AP)

                                     0025   136 ;

                                     0025   137 ; OUTPUT PARAMETERS:	NONE

                                     0025   138 ;

                                     0025   139 ; IMPLICIT OUTPUTS:	NONE

                                     0025   140 ;

                                     0025   141 ; SIDE EFFECTS:	NONE

                                     0025   142 ;

                                     0025   143 ; COMPLETION CODES:	SET$L_STATUS IS SET TO THE RESULT OF SEND MESSAGE

                                     0025   144 ;			SYSTEM SERVICE OR CLI$_INVKEY IF KEYWORD INCORRECT.

                                     0025   145 ;--

                                     0025   146 

                                 00000025   147 	.PSECT	SET$CODE	BYTE,RD,NOWRT,EXE

                                     0025   148 

                               0000' 0025   149 	.ENTRY	SET$ACCOUNTING,0

                                     0027   150  

                          7E     D4  0027   151 	CLRL	-(SP)			; GET DUMMY BIT LIST AREA

                          6E     DF  0029   152 	PUSHAL	(SP)			; PUSH ADDRESS OF BIT LIST

                     0000'CF     9F  002B   153 	PUSHAB	W^SET$A_CLIWORK		; ADDRESS OF WORK AREA

                 0000001C'EF     9F  002F   154 	PUSHAB	ACCO_G_GETQUAL		; ADDRESS OF REQUEST DESCRIPTOR

         08 BC            03     FB  0035   155 	CALLS	#3,@CLI$A_UTILSERV(AP)	; REQUEST QUALIFIERS

                                 04  0039   156 	RET

                                     003A   157  

                                     003A   158 ;+

                                     003A   159 ; ACCO_DISA - DISABLE ACCOUNTING

                                     003A   160 ;

                                     003A   161 ; PROCESS REQUEST FOR DISABLE OF ALL OR SELECTIVE ACCOUNTING

                                     003A   162 ;-

                                     003A   163  

                               000C' 003A   164 	.ENTRY	ACCO_DISA,^M<R2,R3>	;

                                     003C   165  

            50            04     9A  003C   166 	MOVZBL	#ACC$K_DISAACC,R0	; SET DEFAULT FUNCTION CODE

                          07     11  003F   167 	BRB	ENAB_DISA		; ENTER COMMON ROUTINE

                                     0041   168  

                                     0041   169 ;+

                                     0041   170 ; ACCO_ENAB - ENABLE ACCOUNTING

                                     0041   171 ;

                                     0041   172 ; PROCESS REQUSET FOR ENABLE OF ALL OR SELECTIVE ACCOUNTING

                                     0041   173 ;-

                                     0041   174  

                               000C' 0041   175 	.ENTRY	ACCO_ENAB,^M<R2,R3>	; 

                                     0043   176  

            50            03     9A  0043   177 	MOVZBL	#ACC$K_ENABACC,R0	; SET DEFAULT REQUEST CODE

                          00     11  0046   178 	BRB	ENAB_DISA		; ENTER COMMAND ROUTINE

                                     0048   179  

SET$ACCNT       - SET SYSTEM ACCOUNTING                          21-AUG-1978 19:05:34   VAX-11 MACRO X0.3-11               Page   5

V01             SET ACCOUNTING                                                                                                   (4)



                                     0048   180 ;+

                                     0048   181 ; DISA_ENAB - DIABLE OR ENABLE ACCOUNTING

                                     0048   182 ;

                                     0048   183 ; THIS ROUTINE PERFORMS THE ENABLE OR DISABLE ACCOUNTING COMMANDS.

                                     0048   184 ; THIS ROUTINE IS SUPPLIED THE REQUEST CODE FOR ENABLE OR DISABLE ACCOUNTING.

                                     0048   185 ; IF THE COMMAND HAS ASSOCIATED VALUES, THE COMMAND IS A SELECTIVE OPERATION.

                                     0048   186 ; IN THIS CASE THE REQUEST CODE IS MODIFIED TO THE SELECTIVE OPERATION

                                     0048   187 ; AND THE KEYWORD VALUES ARE PARSED.

                                     0048   188 ;-

                                     0048   189  

                                     0048   190 ENAB_DISA:				;

            5E            14     C2  0048   191 	SUBL	#WRKSIZ,SP		; ALLOCATE SCRATCH BUFFER IN STACK

            52            5E     D0  004B   192 	MOVL	SP,R2			; SET ADDRESS OF BUFFER

            82            50     B0  004E   193 	MOVW	R0,(R2)+		; SET REQUEST CODE INTO MESSAGE BUFFER

            53         04 AC     D0  0051   194 	MOVL	4(AP),R3		; GET ADDRESS OF QUALIFIER DESCRIPTOR

                       04 A3     B5  0055   195 	TSTW	CLI$W_QDVALSIZ(R3)	; ANY VALUE PRESENT?

                          30     13  0058   196 	BEQL	40$			; WHEN NO VALUE, SEND THE MESSAGE

                                     005A   197 	ASSUME	<ACC$K_DISASEL-ACC$K_DISAACC> - ; CHECK FOR ASSUMED REALATIVE

                                     005A   198 	  EQ	<ACC$K_ENABSEL-ACC$K_ENABACC>   ; VALUE DIFFERENCES

                                 A0  005A   199 	ADDW	#<ACC$K_ENABSEL-ACC$K_ENABACC>,-; MODIFY THE REQUEST CODE

         FE A2            02         005B   200 		-2(R2)			; TO THE SELECTIVE OPERATION

                          53     DD  005E   201 10$:	PUSHL	R3			; PUSH ADDRESS OF QUALIFIER DESCRIPTOR

                     0000'CF     9F  0060   202 	PUSHAB	W^SET$A_CLIWORK		; THE COMMAND INTERPRETER WORK AREA

                     0000'CF     9F  0064   203 	PUSHAB	W^ACCO_G_ASCIIVAL	; THE REQUEST DESCRIPTOR ADDRESS

         08 BC            03     FB  0068   204 	CALLS	#3,@CLI$A_UTILSERV(AP)	; REQUEST AN ASCII VALUE

                     0008'CF     7F  006C   205 	PUSHAQ	W^ACCO_G_ASCIIVAL+CLI$Q_RQDESC ; ADDRESS OF STRING DESCRIPTOR

                       8D AF     9F  0070   206 	PUSHAB	ACCO_G_KEYWORDS		; ADDRESS OF KEYWORD LIST

       0000'CF            02     FB  0073   207 	CALLS	#2,W^LIB$MATCHKEY	; LOOK FOR KEYWORD MATCH

                          50     D5  0078   208 	TSTL	R0			; CHECK RESULT

                          19     19  007A   209 	BLSS	60$			; BR IF AMBIGUOUS MATCH

                          0E     12  007C   210 	BNEQ	50$			; BR IF NO MATCH

            82         9C AF40   90  007E   211 	MOVB	ACCO_G_VALS-1[R0],(R2)+	; INSERT OPTION CODE IN MESSAGE

                       04 A3     B5  0083   212 	TSTW	CLI$W_QDVALSIZ(R3)	; ANY VALUES REMAIN

                          D6     12  0086   213 	BNEQ	10$			; BR IF YES

                          82     94  0088   214 	CLRB	(R2)+			; MARK END OF LIST

                          1D     11  008A   215 40$:	BRB	SENDMSG			; SEND THE MESSAGE

            50   00038178 8F     D0  008C   216 50$:	MOVL	#CLI$_INVKEY,R0		; SET ERROR CODE - INVALID KEYWORD

                          07     11  0093   217 	BRB	70$			;

            50   000381A0 8F     D0  0095   218 60$:	MOVL	#CLI$_MULKEY,R0		; SET ERROR CODE - AMBIGUOUS KEYWORD

                          60     11  009C   219 70$:	BRB	EXIT			;

                                     009E   220  

                                     009E   221 ;+

                                     009E   222 ; NEWFILE - REQUEST A NEW ACCOUNTING FILE

                                     009E   223 ;

                                     009E   224 ; -

                                     009E   225  

                               0004' 009E   226 	.ENTRY	ACCO_NEWFILE,^M<R2>	;

                                     00A0   227  

            5E            14     C2  00A0   228 	SUBL	#WRKSIZ,SP		; ALLOCATE WORK BUUFER IN THE STACK

            52            5E     D0  00A3   229 	MOVL	SP,R2			; SET ADDRESS OF BUFFER

            82            02     B0  00A6   230 	MOVW	#ACC$K_NEWFILE,(R2)+	; INSERT REQUEST CODE IN MESSAGE

                                     00A9   231 					; FALL INTO SEND MESSAGE

                                     00A9   232  

                                     00A9   233 ;+

                                     00A9   234 ; SENDMSG - SEND A MESSAGE TO THE ACCOUNTING MANAGER

                                     00A9   235 ;

                                     00A9   236 ; INPUT: R2 POINTS AT END OF MESSAGE THIS IS IN THE STACK

SET$ACCNT       - SET SYSTEM ACCOUNTING                          21-AUG-1978 19:05:34   VAX-11 MACRO X0.3-11               Page   6

V01             SET ACCOUNTING                                                                                                   (4)



                                     00A9   237 ;

                                     00A9   238 ; OUTPUT: THE MESSAGE IS SENT

                                     00A9   239 ;-

                                     00A9   240  

            52            5E     C2  00A9   241 SENDMSG:SUBL	SP,R2			; FIND LENGTH OF MESSAGE

                          6E     DF  00AC   242 	PUSHAL	(SP)			; PUSH ADDRESS OF MESSAGE

                          52     DD  00AE   243 	PUSHL	R2			; NOW FORM QUAD WORD DESCRIPTOR

                                     00B0   244 	$CREMBX_S	-		; CREATE A MAILBOX

                                     00B0   245 		MAXMSG=#BUFSIZ,-	; LARGEST MESSAGE

                                     00B0   246 		BUFQUO=#BUFSIZ,-	; ALLOCATE QUOTA FOR 1 MESSAGE

                                     00B0   247 		CHAN  =MBCHAN(FP)	; PLACE TO STORE CHANNEL NUMBER

            37            50     E9  00C4   248 	BLBC	R0,EXIT			; BR IF ERROR CREATING MAILBOX

            7E         FC AD     3C  00C7   249 	MOVZWL	MBCHAN(FP),-(SP)	; CHANNEL FOR RESPONCE

                       04 AE     7F  00CB   250 	PUSHAQ	4(SP)			; ADDRESS OF MESSAGE DESCRIPTOR

   00000000'9F            02     FB  00CE   251 	CALLS	#2,@#SYS$SNDACC		; SEND THE MESSAGE

            26            50     E9  00D5   252 	BLBC	R0,EXIT			; BR IF ERROR SENDING MESSAGE

                                     00D8   253 	$QIOW_S	CHAN=MBCHAN(FP),-	; READ RESPONCE

                                     00D8   254 		FUNC=#IO$_READVBLK,-	; FUNCTION CODE

                                     00D8   255 		P1  =BUFFER(FP),-	; ADDRESS OF BUFFER

                                     00D8   256 		P2  =#BUFSIZ		; AND COUNT

            04            50     E9  00F7   257 	BLBC	R0,EXIT			; BR IF QIO ERROR

            50         F0 AD     D0  00FA   258 	MOVL	BUFFER+4(FP),R0		; GET RESPONCE

       0000'CF            50     D0  00FE   259 EXIT:	MOVL	R0,W^SET$L_STATUS	; SET FINAL STATUS

                                     0103   260 	$DASSGN_S MBCHAN(FP)		; DEASSIGN THE MAILBOX

                                 04  010E   261 	RET				; GET OUT

                                     010F   262  

                                     010F   263 	.END

SET$ACCNT       - SET SYSTEM ACCOUNTING                          21-AUG-1978 19:05:34   VAX-11 MACRO X0.3-11               Page   7

SYMBOL TABLE                                                                                                                     (4)



$$$            = 00000004            ACCO_G_VALS      0000001F R     04   CLI$K_REQDESC    0000001C            

$$$GBL         = 00000000            ACCO_NEWFILE     0000009E RG    04   CLI$K_SET_ACCO = 00000001            

$$T1           = 00000001            BIT...         = 00000045            CLI$K_SET_CARD = 00000002            

$CLI.          = 00000066 R     03   BUFFER         = FFFFFFEC            CLI$K_SET_CONT = 00000012            

$CLI..         = 0000007D R     03   BUFSIZ         = 00000010            CLI$K_SET_DEFA = 00000004            

$QUALNUM$      = 0000000B            CLI$A_ABSACT     00000014            CLI$K_SET_DEVI = 00000003            

ACC$C_INS_LEN    000000B0            CLI$A_ERRACT     00000004            CLI$K_SET_LOGI = 00000005            

ACC$C_JOB_LEN    0000006C            CLI$A_FLSACT     00000010            CLI$K_SET_MAGT = 00000006            

ACC$C_PRT_LEN    00000058            CLI$A_IMGFILED   00000010            CLI$K_SET_ON   = 00000007            

ACC$C_TERMLEN    00000054            CLI$A_IMGHDADR   0000000C            CLI$K_SET_PASS = 00000008            

ACC$K_BATTRM   = 00000002            CLI$A_PROGXFER   00000004            CLI$K_SET_PRIN = 00000009            

ACC$K_DISAACC  = 00000004            CLI$A_PRSACT     00000010            CLI$K_SET_PROC = 0000000A            

ACC$K_DISASEL  = 00000006            CLI$A_QDVALADR   00000008            CLI$K_SET_PROT = 0000000B            

ACC$K_ENABACC  = 00000003            CLI$A_QUALST     00000018            CLI$K_SET_QUEU = 0000000C            

ACC$K_ENABSEL  = 00000005            CLI$A_RQADDR     0000000C            CLI$K_SET_RMS_ = 00000011            

ACC$K_INSMESG  = 00000001            CLI$A_TRUACT     0000000C            CLI$K_SET_TERM = 0000000D            

ACC$K_INSMSG   = 00000011            CLI$A_UTILSERV   00000008            CLI$K_SET_UIC  = 0000000E            

ACC$K_INS_LEN    000000B0            CLI$B_BITNUM     00000001            CLI$K_SET_VERI = 0000000F            

ACC$K_INTTRM   = 00000003            CLI$B_QDBLKSIZ   00000000            CLI$K_SET_WORK = 00000010            

ACC$K_JOB_LEN    0000006C            CLI$B_QDCODE     00000001            CLI$K_STAC_DISA= 00000001            

ACC$K_LOGTRM   = 00000004            CLI$B_QDFLGS     00000002            CLI$K_STAC_ENAB= 00000002            

ACC$K_NEWFILE  = 00000002            CLI$B_QDSTAT     00000003            CLI$K_STAC_NEW_= 00000003            

ACC$K_PRCTRM   = 00000001            CLI$B_RQFLGS     00000002            CLI$K_STCR_026 = 00000001            

ACC$K_PRTJOB   = 00000010            CLI$B_RQINDX     00000001            CLI$K_STCR_029 = 00000002            

ACC$K_PRT_LEN    00000058            CLI$B_RQSTAT     00000003            CLI$K_STDV_ERRO= 00000002            

ACC$K_TERMLEN    00000054            CLI$B_RQTYPE     00000000            CLI$K_STDV_SPOO= 00000001            

ACC$L_BIOCNT     0000003C            CLI$C_QDBITS     00000014            CLI$K_STLG_INTE= 00000001            

ACC$L_CPUTIM     0000002C            CLI$C_QUALDEF    00000014            CLI$K_STLP_CR  = 00000001            

ACC$L_DIOCNT     00000040            CLI$C_REQDESC    0000001C            CLI$K_STLP_FF  = 00000002            

ACC$L_FINALSTS   00000004            CLI$C_WORKAREA   00000080            CLI$K_STLP_LA11= 00000005            

ACC$L_GETCNT     00000038            CLI$K_ASCIIVAL = 00000041            CLI$K_STLP_LA18= 00000006            

ACC$L_JOBID      0000000C            CLI$K_CLISERV  = 00000005            CLI$K_STLP_LOWE= 00000004            

ACC$L_OWNER      00000050            CLI$K_ENDPRM1  = 00000030            CLI$K_STLP_LP11= 00000007            

ACC$L_PAGCNT     00000030            CLI$K_ENDPRM2  = 00000031            CLI$K_STLP_PAGE= 00000008            

ACC$L_PAGEFLTS   00000030            CLI$K_ENDPRM3  = 00000032            CLI$K_STLP_UNKN= 00000009            

ACC$L_PGFLPEAK   00000034            CLI$K_ENDPRM4  = 00000033            CLI$K_STLP_UPPE= 00000003            

ACC$L_PID        00000008            CLI$K_FILSPEC  = 00000044            CLI$K_STLP_WIDT= 0000000A            

ACC$L_QIOCNT     00000034            CLI$K_GETCMD   = 00000001            CLI$K_STMT_DENS= 00000001            

ACC$L_VOLUMES    00000044            CLI$K_GETOPT   = 00000003            CLI$K_STMT_REWI= 00000002            

ACC$L_WSPEAK     00000038            CLI$K_GETQUAL  = 00000002            CLI$K_STMT_UNLO= 00000003            

ACC$Q_LOGIN      00000048            CLI$K_INITPRS  = 00000000            CLI$K_STPC_IDEN= 00000001            

ACC$Q_QUETIME    0000003C            CLI$K_INPSPEC  = 00000001            CLI$K_STPC_PRIO= 00000002            

ACC$Q_TERMTIME   00000010            CLI$K_INPUT1   = 00000010            CLI$K_STPC_RESO= 00000003            

ACC$T_ACCOUNT    00000018            CLI$K_INPUT2   = 00000011            CLI$K_STPC_SWAP= 00000004            

ACC$T_JOB_NAME   00000054            CLI$K_INPUT3   = 00000012            CLI$K_STPR_DEFA= 00000001            

ACC$T_JOB_QUE    0000005C            CLI$K_INPUT4   = 00000013            CLI$K_STPR_DEVI= 00000003            

ACC$T_PRT_NAME   00000044            CLI$K_KEYVAL   = 00000043            CLI$K_STPR_OWNE= 00000004            

ACC$T_PRT_QUE    0000004C            CLI$K_KEYWORD  = 00000042            CLI$K_STPR_PROT= 00000002            

ACC$T_USERNAME   00000020            CLI$K_NUMERVAL = 00000040            CLI$K_STQE_AFTE= 00000001            

ACC$T_USER_DATA  0000002C            CLI$K_OUTPUT1  = 00000020            CLI$K_STQE_ENTR= 00000003            

ACC$W_MSGSIZ     00000002            CLI$K_OUTPUT2  = 00000021            CLI$K_STQE_FORM= 00000004            

ACC$W_MSGTYP     00000000            CLI$K_OUTPUT3  = 00000022            CLI$K_STQE_HOLD= 00000005            

ACCO_DISA        0000003A RG    04   CLI$K_OUTPUT4  = 00000023            CLI$K_STQE_JOB_= 00000002            

ACCO_ENAB        00000041 RG    04   CLI$K_OUTSPEC  = 00000002            CLI$K_STQE_LOWE= 00000006            

ACCO_G_ASCIIVAL  00000000 R     03   CLI$K_PARDONE  = 00000003            CLI$K_STQE_NAME= 00000007            

ACCO_G_GETQUAL   0000001C R     03   CLI$K_QDBITS     00000014            CLI$K_STQE_PRIO= 00000008            

ACCO_G_KEYWORDS  00000000 R     04   CLI$K_QUALDEF    00000014            CLI$K_STQE_RELE= 00000009            

SET$ACCNT       - SET SYSTEM ACCOUNTING                          21-AUG-1978 19:05:34   VAX-11 MACRO X0.3-11               Page   8

SYMBOL TABLE                                                                                                                     (4)



CLI$K_STRM_BLOC= 00000001            CLI$M_DBGEXCP  = 00010000            CLI$_BADRET    = 00038198            

CLI$K_STRM_BUFF= 00000002            CLI$M_DBGTRU   = 00000002            CLI$_BADTEXT   = 000381B0            

CLI$K_STRM_DISK= 00000003            CLI$M_DEBUG    = 00000001            CLI$_BUFOVF    = 00038018            

CLI$K_STRM_HASH= 00000006            CLI$M_DUMMY    = 00000002            CLI$_COMPLX    = 00038020            

CLI$K_STRM_INDE= 00000007            CLI$M_EXPNAM   = 00000004            CLI$_CONFQUAL  = 00038802            

CLI$K_STRM_MAGT= 00000004            CLI$M_INDIRECT = 00000010            CLI$_CREQUEJOB = 0003884A            

CLI$K_STRM_RELA= 00000008            CLI$M_KEYVALU  = 00000002            CLI$_DEFOVF    = 00038028            

CLI$K_STRM_SEQU= 00000009            CLI$M_LASTVAL  = 00000001            CLI$_DEVALSPL  = 0003885A            

CLI$K_STRM_SYST= 0000000A            CLI$M_MOREINP  = 00000004            CLI$_DEVNOTFOR = 0003887A            

CLI$K_STRM_UNIT= 00000005            CLI$M_MOREVALS = 00000001            CLI$_DEVNOTSPL = 00038862            

CLI$K_STTT_BROA= 00000001            CLI$M_PARMDEF  = 00000008            CLI$_DIRECT    = 00038030            

CLI$K_STTT_CRFI= 00000002            CLI$M_PARMPRS  = 00000001            CLI$_EXPSYN    = 00038038            

CLI$K_STTT_ECHO= 00000003            CLI$M_PARMREQ  = 00000001            CLI$_FILOPN    = 00038190            

CLI$K_STTT_EIGH= 00000004            CLI$M_QDEXPA   = 00000004            CLI$_ILLVAL    = 0003883A            

CLI$K_STTT_ESCA= 00000005            CLI$M_QDUSRV   = 00000002            CLI$_IMCHNG    = 00038040            

CLI$K_STTT_HARD= 00000006            CLI$M_QUALEXP  = 00000002            CLI$_IMGFNF    = 00038872            

CLI$K_STTT_HOLD= 00000007            CLI$M_QUALTRU  = 00000001            CLI$_INSFPRM   = 00038048            

CLI$K_STTT_HOST= 00000008            CLI$M_TRMVRBLV = 00000300            CLI$_INVKEY    = 00038178            

CLI$K_STTT_INTE= 00000009            CLI$M_VERIFY   = 00000004            CLI$_INVQUAL   = 0003880A            

CLI$K_STTT_LA36= 0000000A            CLI$M_VFYINP   = 00000020            CLI$_INVQUALNUM= 0003881A            

CLI$K_STTT_LFFI= 0000000B            CLI$Q_QDVALDESC  00000004            CLI$_INVREQTYP = 00038822            

CLI$K_STTT_LOCA= 0000000C            CLI$Q_RQDESC     00000008            CLI$_INVRSP    = 00038180            

CLI$K_STTT_LOWE= 0000000D            CLI$S_PRITYP   = 00000004            CLI$_INVUIC    = 000381A8            

CLI$K_STTT_PAGE= 0000000E            CLI$S_SUBTYP   = 00000004            CLI$_IVCHAR    = 00038050            

CLI$K_STTT_PARI= 0000001E            CLI$S_TRMVRBLV = 00000002            CLI$_IVDEVTYPE = 0003886A            

CLI$K_STTT_PASS= 0000000F            CLI$V_ABSADR   = 00000001            CLI$_IVFNAM    = 000381C0            

CLI$K_STTT_PERM= 00000020            CLI$V_ALLOCCUR = 00000000            CLI$_IVKEYW    = 00038060            

CLI$K_STTT_READ= 0000001F            CLI$V_BATCH    = 00000003            CLI$_IVOPER    = 00038068            

CLI$K_STTT_REMO= 00000010            CLI$V_CONCATINP= 00000001            CLI$_IVPROT    = 00038070            

CLI$K_STTT_SCOP= 00000011            CLI$V_DBGEXCP  = 00000010            CLI$_IVQLOC    = 00038078            

CLI$K_STTT_SCRI= 00000012            CLI$V_DBGTRU   = 00000001            CLI$_IVSYMB    = 00038080            

CLI$K_STTT_SPEE= 00000013            CLI$V_DEBUG    = 00000000            CLI$_IVVALU    = 00038088            

CLI$K_STTT_TAB = 00000014            CLI$V_DUMMY    = 00000001            CLI$_IVVERB    = 00038090            

CLI$K_STTT_TTSY= 00000015            CLI$V_EXPNAM   = 00000002            CLI$_MAXPARM   = 00038098            

CLI$K_STTT_TYPE= 00000016            CLI$V_INDIRECT = 00000004            CLI$_MULKEY    = 000381A0            

CLI$K_STTT_UNKN= 00000017            CLI$V_KEYVALU  = 00000001            CLI$_NOATFIL   = 000380A0            

CLI$K_STTT_UPPE= 00000018            CLI$V_LASTVAL  = 00000000            CLI$_NOCCAT    = 000380A8            

CLI$K_STTT_VT05= 00000019            CLI$V_MOREINP  = 00000002            CLI$_NOCOMD    = 000380B0            

CLI$K_STTT_VT52= 0000001A            CLI$V_MOREVALS = 00000000            CLI$_NOKEYW    = 000380B8            

CLI$K_STTT_VT55= 0000001B            CLI$V_PARMDEF  = 00000003            CLI$_NOLIST    = 000380C0            

CLI$K_STTT_WIDT= 0000001C            CLI$V_PARMPRS  = 00000000            CLI$_NOOPTPRS  = 00038842            

CLI$K_STTT_WRAP= 0000001D            CLI$V_PARMREQ  = 00000000            CLI$_NOQUAL    = 000380C8            

CLI$K_STWR_LIMI= 00000001            CLI$V_PRITYP   = 00000004            CLI$_NORMAL    = 00030001            

CLI$K_STWR_QUOT= 00000002            CLI$V_QDEXPA   = 00000002            CLI$_NOTNEG    = 000380D8            

CLI$K_UTILOPR  = 00000000            CLI$V_QDUSRV   = 00000001            CLI$_NOVALU    = 000380D0            

CLI$K_VALCONV  = 00000004            CLI$V_QUALEXP  = 00000001            CLI$_NOVALUE   = 0003882A            

CLI$K_WORKAREA   00000080            CLI$V_QUALTRU  = 00000000            CLI$_NULFIL    = 000380E0            

CLI$L_CLIFLAG    00000018            CLI$V_SUBTYP   = 00000000            CLI$_NUMBER    = 000380E8            

CLI$L_INIARGCNT  00000000            CLI$V_TRMVRBLV = 00000008            CLI$_ONCOMD    = 000380F0            

CLI$L_LINKFLAG   00000014            CLI$V_VERIFY   = 00000002            CLI$_ONERR     = 000380F8            

CLI$L_RQVALU     0000000C            CLI$V_VFYINP   = 00000005            CLI$_ONEVAL    = 00038158            

CLI$L_USRVAL     00000014            CLI$W_QDVALSIZ   00000004            CLI$_ONLEVL    = 00038100            

CLI$L_WORKAREA   00000000            CLI$W_RQSIZE     00000008            CLI$_ONOVF     = 00038108            

CLI$M_ABSADR   = 00000002            CLI$W_SERVCOD    00000001            CLI$_OVRFLW    = 00038160            

CLI$M_ALLOCCUR = 00000001            CLI$_ABFNAM    = 000381B8            CLI$_PARMDEL   = 00038110            

CLI$M_BATCH    = 00000008            CLI$_ABKEYW    = 00038000            CLI$_PROC_ID   = 0003FFF1            

CLI$M_CONCATINP= 00000002            CLI$_ABVERB    = 00038008            CLI$_QUEJOBCRE = 0003FFF9            

SET$ACCNT       - SET SYSTEM ACCOUNTING                          21-AUG-1978 19:05:34   VAX-11 MACRO X0.3-11               Page   9

SYMBOL TABLE                                                                                                                     (4)



CLI$_REQPRMABS = 00038812            PRO_B_FLAGS      00000001            QUA_W_QUALIST    00000006            

CLI$_RSLOVF    = 00038118            PRO_B_PROMPT     00000000            QUEU_A_QUALST    00000038 R     03   

CLI$_SKPDAT    = 00038120            PRO_K_LENGTH     00000002            SENDMSG          000000A9 R     04   

CLI$_SPARE0    = 00038010            PRO_M_CONCAT   = 00000001            SET$ACCOUNTING   00000025 RG    04   

CLI$_SPARE1    = 00038058            PRO_M_IMPCAT   = 00000002            SET$A_CLIWORK    ********   X   04   

CLI$_STKOVF    = 00038128            PRO_M_LIST     = 00000004            SET$L_STATUS     ********   X   04   

CLI$_SUBMITERR = 00038852            PRO_M_OPTION   = 00000008            STS$K_ERROR    = 00000002            

CLI$_SYMDEL    = 00038130            PRO_M_REQ      = 00000010            STS$K_INFO     = 00000003            

CLI$_SYMOVF    = 00038138            PRO_M_STRING   = 00000020            STS$K_SEVERE   = 00000004            

CLI$_UNDFIL    = 00038188            PRO_V_CONCAT   = 00000000            STS$K_SUCCESS  = 00000001            

CLI$_UNDSYM    = 00038140            PRO_V_IMPCAT   = 00000001            STS$K_WARNING  = 00000000            

CLI$_UNPROPARM = 00038170            PRO_V_LIST     = 00000002            STS$M_CODE     = 00007FF8            

CLI$_UNPROQUAL = 00038168            PRO_V_OPTION   = 00000003            STS$M_COND_ID  = 0FFFFFF8            

CLI$_USGOTO    = 00038148            PRO_V_REQ      = 00000004            STS$M_CONTROL  = F0000000            

CLI$_VALCNVERR = 00038832            PRO_V_STRING   = 00000005            STS$M_CUST_DEF = 08000000            

CLI$_VALREQ    = 00038150            QUA_B_DEFVAL     00000002            STS$M_FAC_NO   = 0FFF0000            

ENAB_DISA        00000048 R     04   QUA_B_IMAGE      00000005            STS$M_FAC_SP   = 00008000            

EXIT             000000FE R     04   QUA_B_INDEX      00000001            STS$M_INHIB_MSG= 10000000            

GBL...         = 00000000            QUA_B_OFFSET     00000000            STS$M_MSG_NO   = 0000FFF8            

IO$_READVBLK     ********   X   04   QUA_B_PARMCNT    00000008            STS$M_SEVERITY = 00000007            

LIB$MATCHKEY     ********   X   04   QUA_G_CHNGLST    00000006            STS$M_SUCCESS  = 00000001            

MBCHAN         = FFFFFFFC            QUA_M_BATDEF   = 00000100            STS$S_CODE     = 0000000C            

MSG$_ABOOPR    = 00000011            QUA_M_CHNGLIST = 00000001            STS$S_COND_ID  = 00000019            

MSG$_ABORT     = 00000030            QUA_M_DEFTRUE  = 00000080            STS$S_CONTROL  = 00000004            

MSG$_ACCRSP    = 00000021            QUA_M_FILE     = 00000004            STS$S_CUST_DEF = 00000001            

MSG$_CONFIRM   = 00000031            QUA_M_IMAGE    = 00000400            STS$S_FAC_NO   = 0000000C            

MSG$_CONNECT   = 00000032            QUA_M_INTDEF   = 00000200            STS$S_FAC_SP   = 00000001            

MSG$_CRUNSOLIC = 00000002            QUA_M_KEYVAL   = 00004000            STS$S_INHIB_MSG= 00000001            

MSG$_DELPROC   = 00000003            QUA_M_LOCALKEY = 00000002            STS$S_MSG_NO   = 0000000D            

MSG$_DELSMB    = 00000014            QUA_M_NEG      = 00000040            STS$S_SEVERITY = 00000003            

MSG$_DEVOFFLIN = 00000005            QUA_M_ONEVAL   = 00002000            STS$S_SUCCESS  = 00000001            

MSG$_DEVONLIN  = 00000007            QUA_M_OUTPUT   = 00000800            STS$V_CODE     = 00000003            

MSG$_DISCON    = 00000033            QUA_M_PARM     = 00000010            STS$V_COND_ID  = 00000003            

MSG$_EXIT      = 00000034            QUA_M_VAL      = 00000020            STS$V_CONTROL  = 0000001C            

MSG$_INIOPR    = 00000010            QUA_M_VALREQ   = 00001000            STS$V_CUST_DEF = 0000001B            

MSG$_INTMSG    = 00000035            QUA_M_VERB     = 00000008            STS$V_FAC_NO   = 00000010            

MSG$_OPREPLY   = 00000009            QUA_S_MAXPARM  = 00000004            STS$V_FAC_SP   = 0000000F            

MSG$_OPRQST    = 00000008            QUA_S_MINPARM  = 00000004            STS$V_INHIB_MSG= 0000001C            

MSG$_PATHLOST  = 00000036            QUA_V_BATDEF   = 00000008            STS$V_MSG_NO   = 00000003            

MSG$_PROTOCOL  = 00000037            QUA_V_CHNGLIST = 00000000            STS$V_SEVERITY = 00000000            

MSG$_REJECT    = 00000038            QUA_V_DEFTRUE  = 00000007            STS$V_SUCCESS  = 00000000            

MSG$_RESOPR    = 00000013            QUA_V_FILE     = 00000002            SYS$CREMBX       ********   X   04   

MSG$_SCANBAD   = 00000028            QUA_V_IMAGE    = 0000000A            SYS$DASSGN       ********   X   04   

MSG$_SCANRSP   = 00000029            QUA_V_INTDEF   = 00000009            SYS$QIOW         ********   X   04   

MSG$_SMBDON    = 00000009            QUA_V_KEYVAL   = 0000000E            SYS$SNDACC       ********   X   04   

MSG$_SMBINI    = 00000008            QUA_V_LOCALKEY = 00000001            WRKSIZ         = 00000014            

MSG$_SMBRSP    = 00000020            QUA_V_MAXPARM  = 00000004            

MSG$_SNDACC    = 0000000A            QUA_V_MINPARM  = 00000000            

MSG$_SNDSMB    = 00000004            QUA_V_NEG      = 00000006            

MSG$_SUSOPR    = 00000012            QUA_V_ONEVAL   = 0000000D            

MSG$_THIRDPARTY= 00000039            QUA_V_OUTPUT   = 0000000B            

MSG$_TIMEOUT   = 0000003A            QUA_V_PARM     = 00000004            

MSG$_TRMHANGUP = 00000006            QUA_V_VAL      = 00000005            

MSG$_TRMUNSOLIC= 00000001            QUA_V_VALREQ   = 0000000C            

MSG$_XM_ATTN   = 0000000D            QUA_V_VERB     = 00000003            

MSG$_XM_DATAVL = 0000000B            QUA_W_FLAGS      00000003            

MSG$_XM_SHUTDN = 0000000C            QUA_W_PROMPT     00000009            

SET$ACCNT       - SET SYSTEM ACCOUNTING                          21-AUG-1978 19:05:34   VAX-11 MACRO X0.3-11               Page  10

PROGRAM SECTION SYNOPSIS                                                                                                         (4)







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

SET$RWDATA       0000007E      03     NOPIC   USR   CON   REL   LCL NOSHR NOEXE   RD    WRT LONG  

SET$CODE         0000010F      04     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

5048. BYTES LEFT IN FREE MEMORY POOL.

4728. BYTES OF RECLAIMED MEMORY.

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

68 MLB DIR RDS - 946 GETS TO DEFINE 35 MACROS. 64 INTER. FILE WRITES. 

