JBCPRCDEL       - JOB CONTROLLER PROCESS DELETE MODULE           22-AUG-1978 00:45:31   VAX-11 MACRO X0.3-11               Page   0

TABLE OF CONTENTS   



   (1)      38  DECLARATIONS

   (2)      54  DELETE PROCESS MESSAGES ROUTINE

JBCPRCDEL       - JOB CONTROLLER PROCESS DELETE MODULE           22-AUG-1978 00:45:31   VAX-11 MACRO X0.3-11               Page   1

V01                                                                                                                              (1)



                                     0000     1 	.TITLE	JBCPRCDEL - JOB CONTROLLER PROCESS DELETE MODULE

                                     0000     2 	.IDENT	/V01/

                                     0000     3 

                                     0000     4 ;

                                     0000     5 ; COPYRIGHT (C) 1977, 1978

                                     0000     6 ; DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS 01754

                                     0000     7 ;

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

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

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

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

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

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

                                     0000    14 ; REMAIN IN DEC.

                                     0000    15 ;

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

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

                                     0000    18 ; CORPORATION.

                                     0000    19 ;

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

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

                                     0000    22 

                                     0000    23 ;++

                                     0000    24 ; FACILITY:	JOB CONTROLLER

                                     0000    25 ;

                                     0000    26 ; ABSTRACT:	MODULE TO WRITE JOB ACCOUNTING STATISTICS

                                     0000    27 ;		WHEN A PROCESS EXITS.

                                     0000    28 ;

                                     0000    29 ; ENVIRONMENT:	USER MODE NATIVE CODE

                                     0000    30 ;

                                     0000    31 ; AUTHOR:	W.H.BROWN, CREATION DATE:21-JAN-77

                                     0000    32 ;

                                     0000    33 ; MODIFIED BY:

                                     0000    34 ;

                                     0000    35 ;	, : VERSION

                                     0000    36 ; 01	- 

                                     0000    37 ;--

                                     0000    38 	.SBTTL	DECLARATIONS

                                     0000    39 ;

                                     0000    40 ; INCLUDE FILES:	IN PREFIX FILE

                                     0000    41 ;

                                     0000    42 ; MACROS:

                                     0000    43 ;

                                     0000    44 ; EQUATED SYMBOLS:

                                     0000    45 ;

                                     0000    46 	JBCPARDEF			; DEFINE JOB CONTROLLER PARAMETERS

                                     0000    47 	$ACCDEF				; DEFINE ACCOUNTING OFFSETS

                                     0000    48 	JBCSCTDEF			; SYMBIONT CONTROL TABLE DEFINITIONS

                                     0000    49 	JBCQUEDEF			; DEFINE QUEUE OFFSETS

                                     0000    50 ;

                                     0000    51 ; OWN STORAGE:

                                     0000    52 ;

JBCPRCDEL       - JOB CONTROLLER PROCESS DELETE MODULE           22-AUG-1978 00:45:31   VAX-11 MACRO X0.3-11               Page   2

V01             DELETE PROCESS MESSAGES ROUTINE                                                                                  (2)



                                     0000    54 	.SBTTL	DELETE PROCESS MESSAGES ROUTINE

                                     0000    55 ;++

                                     0000    56 ; FUNCTIONAL DESCRIPTION:

                                     0000    57 ;

                                     0000    58 ;	THIS MODULE IS ENTERED WHEN A PROCESS DELETE OCCURS.

                                     0000    59 ;	THE ACCOUNTING DATA IS WRITTEN, AND AUTHORIZATION FILE

                                     0000    60 ;	IS UPDATED AS TO QUOTAS USED.

                                     0000    61 ;

                                     0000    62 ; CALLING SEQUENCE:

                                     0000    63 ;

                                     0000    64 ;	JSB/BSB	JBC$DELPRC

                                     0000    65 ;

                                     0000    66 ; INPUT PARAMETERS:

                                     0000    67 ;

                                     0000    68 ;	R2 CONTAINS THE ADDRESS OF THE DELETE PROCESS MESSAGE

                                     0000    69 ;	R11 POINTS AT THE IMPURE DATA AREA

                                     0000    70 ;

                                     0000    71 ; OUTPUT PARAMETERS:	NONE

                                     0000    72 ;

                                     0000    73 ; COMPLETION CODES:	NONE

                                     0000    74 ;

                                     0000    75 ; SIDE EFFECTS:		NONE

                                     0000    76 ;--

                                     0000    77 	PURE_SECTION

                                     0000    78 

                                     0000    79 JBC$PRCDEL::				; TIME TO WRITE ACCOUNTING RECORD

            59         0C A2     9E  0000    80 	MOVAB	JCM_T_MSGDATA-4(R2),R9	; COPY ADDRESS OF RECORD MINUS 4

            89         54 8F     9A  0004    81 	MOVZBL	#ACC$K_TERMLEN,(R9)+	; SET DEFAULT LENGTH OF RECORD AND SET

                                     0008    82 					; POINTER TO START OF ACCOUNTING RECORD

            69            01     B0  0008    83 	MOVW	#ACC$K_PRCTRM,ACC$W_MSGTYP(R9) ; ASSUME PROCESS TERMINATION

            51         08 A9     D0  000B    84 	MOVL	ACC$L_PID(R9),R1	; GET PROCESS ID FOR DELETED PROCESS

                          5A     D5  000F    85 	TSTL	R10			; IS THERE A QUEUE?

                          10     13  0011    86 	BEQL	10$			; BR IF NO

                          FFEA'  30  0013    87 	BSBW	SYM$FINDPROCJOB		; CK FOR OPEN QUEUE JOB FOR THIS PROCESS

            0A            50     E9  0016    88 	BLBC	R0,10$			; BR IF NO SUCH JOB

            62         08 A7     D0  0019    89 	MOVL	SJH$L_NEXTJOB(R7),(R2)	; UNLINK THE JOB

                                     001D    90 	SYM_QUECHANGE			; INDICATE THAT THE QUEUE HAS CHANGED

                          FFDD'  30  0020    91 	BSBW	SYM$FREEJOB		; RELEASE THE JOB

            50         08 A9     3C  0023    92 10$:	MOVZWL	ACC$L_PID(R9),R0	; GET PROCESS INDEX

       0000'8F            50     B1  0027    93 	CMPW	R0,#<<JBC$G_INTJOBEND-JBC$G_INTJOBFLG>*8> ; INDEX TOO BIG

                          2C     14  002C    94 	BGTR	20$			; BR IF INDEX OUT OF TABLE PROVIDED

       0000'CF            50     E5  002E    95 	BBCC	R0,W^JBC$G_INTJOBFLG,20$; BR IF JOB IS NOT INTERACTIVE

                          26         0033       

            69            03     9B  0034    96 	MOVZBW	#ACC$K_INTTRM,ACC$W_MSGTYP(R9) ; SET INTERACTIVE TERMINATION

                                 C9  0037    97 	BISL3	ACC$T_ACCOUNT(R9),-	; CHECK IF ENTIRE ACCOUNT NAME IS ZERO

         1C A9         18 A9         0038    98 		ACC$T_ACCOUNT+4(R9),R0	;

                          50         003C       

                          03     12  003D    99 	BNEQ	15$			; BR IF ACCOUNT NAME NON-ZERO

            69            04     B0  003F   100 	MOVW	#ACC$K_LOGTRM,ACC$W_MSGTYP(R9) ; SET LOGIN FAILURE TERMINATION

                                     0042   101 15$:	$CMKRNL_S B^17$			; DECREMENT COUNT OF INTERACTIVE JOBS

                          0093   31  004E   102 	BRW	ACNTJOB			; GO WRITE THE ACCOUNTING RECORD

                               0000  0051   103 17$:	.WORD	0			; KERNAL MODE ENTRY MASK

                 00000000'9F     B7  0053   104 	DECW	@#SYS$GW_IJOBCNT	; COUNT DOWN NUMBER OF INTERACTIVE JOBS

                                 04  0059   105 	RET				;

            51         08 A9     D0  005A   106 20$:	MOVL	ACC$L_PID(R9),R1	; GET PROCESS ID FOR DELETED PROCESS

                          FF9F'  30  005E   107 	BSBW	SYM$GETSYMCTL		; SEARCH FOR SYMBIONT

            2A            50     E9  0061   108 	BLBC	R0,40$			; BR IF NOT A SYMBIONT

JBCPRCDEL       - JOB CONTROLLER PROCESS DELETE MODULE           22-AUG-1978 00:45:31   VAX-11 MACRO X0.3-11               Page   3

V01             DELETE PROCESS MESSAGES ROUTINE                                                                                  (2)



         08 A5            08     91  0064   109 	CMPB	#SCT_K_MRKDEL,SCT_B_STATE(R5) ; DELETE PENDING?

                          1C     13  0068   110 	BEQL	30$			; BR IF YES-ALL IS WELL

                                     006A   111 	SHOW_ERROR	UNX_SYM_DEL	; UN-EXPECTED SYMBIONT DELETE

            56         14 A5     3C  006C   112 	MOVZWL	SCT_W_QINDEX(R5),R6	; GET THE INDEX TO THE ASSOCIATED QUEUE

            56            5A     C0  0070   113 	ADDL	R10,R6			; FIND THE ADDRESS

            55         0C A6     D1  0073   114 	CMPL	SMQ$L_ASNSCT(R6),R5	; WAS THIS SYMBIONT STILL WORKING HERE?

                          0D     12  0077   115 	BNEQ	30$			; BR IF NO

            57            66     D0  0079   116 	MOVL	SMQ$L_CURRENT(R6),R7	; GET OFFSET TO CURRENT JOB

                          08     13  007C   117 	BEQL	30$			; BR IF THERE IS NO CURRENT JOB

            57            5A     C0  007E   118 	ADDL	R10,R7			; FIND ADDRESS OF THE JOB

                          66     D4  0081   119 	CLRL	SMQ$L_CURRENT(R6)	; MARK NO CURRENT JOB

                          FF7A'  30  0083   120 	BSBW	SYM$JOBINSQUE		; INSERT THE JOB BACK INTO THE QUEUE

                       1C AB     97  0086   121 30$:	DECB	JCD_B_CURSYMB(R11)	; COUNT DOWN NUMBER OF SYMBIONTS

                       08 A5     94  0089   122 	CLRB	SCT_B_STATE(R5)		; INDICATE SLOT FREE

                          56     11  008C   123 	BRB	ACNTJOB			; DON'T CHECK FOR DETECHED JOB

                          5A     D5  008E   124 40$:	TSTL	R10			; IS THERE A QUEUE?

                          52     13  0090   125 	BEQL	ACNTJOB			; BR IF NO - CAN'T HAVE BATCH THEN

            51         08 A9     D0  0092   126 	MOVL	ACC$L_PID(R9),R1	; RESET PROCESS ID FOR DELETED PROCESS

                                     0096   127 ;

                                     0096   128 ; NOTE:	THE FOLLOWING SUBROUTINE WILL POTENTIALLY CHANGE

                                     0096   129 ;	REGISTER R0-R8.

                                     0096   130 ;

                          FF67'  30  0096   131 	BSBW	SYM$FINDETJOB		; SEE IF THIS IS AN ACTIVE DETACHED JOB

            48            50     E9  0099   132 50$:	BLBC	R0,ACNTJOB		; BR IF NO, THIS IS NOT A BATCH JOB

                                 C0  009C   133 	ADDL	#<ACC$K_JOB_LEN-ACC$K_TERMLEN>,- ; ADJUST THE LENGHT OF THE

         FC A9            18         009D   134 		-4(R9)			; RECORD FOR ADDED INFO FOR BATCH JOBS

            69            02     B0  00A0   135 	MOVW	#ACC$K_BATTRM,ACC$W_MSGTYP(R9) ; SET TYPE TO BATCH JOB TERMINATE

            65         08 A7     D0  00A3   136 	MOVL	SJH$L_NEXTJOB(R7),(R5)	; REMOVE JOB FROM ACTIVE JOB LIST

                                 7D  00A7   137 	MOVQ	SJH$Q_JOBNAME(R7),-	; SET ACTUAL JOB NAME OF JOB

         54 A9         34 A7         00A8   138 		ACC$T_JOB_NAME(R9)	; OF DETACHED JOB INTO QUEUE

                          10     28  00AC   139 	MOVC	#16,SMQ$T_NAME(R6),-	; SET THE NAME OF THE QUEUE THAT JOB

         5C A9         10 A6         00AE   140 		ACC$T_JOB_QUE(R9)	; EXECUTED FROM INTO ACCOUNTING RECORD

                                 3C  00B2   141 	MOVZWL	SJH$W_JOBSEQ(R7),-	; THE SEQUENCE NUMBER ASSIGNED IS THE

         0C A9         04 A7         00B3   142 		ACC$L_JOBID(R9)		; JOB ID FOR BATCH JOBS

                       09 A6     97  00B7   143 	DECB	SMQ$B_JOBCNT(R6)	; DECREMENT JOBS IN PROGRESS

                                     00BA   144 	CLRBIT	SMQ$V_CREPND,SMQ$B_FLAGS(R6) ; CLEAR CREATE PENDING ON THIS QUE

                                     00BE   145 	SYM_QUECHANGE			; INDICATE THE QUEUE CHANGED

            50         04 A9     D0  00C1   146 	MOVL	ACC$L_FINALSTS(R9),R0	; GET TERMINAL STATUS OF THE JOB

         0C A7            02     E1  00C5   147 	BBC	#SJH$V_JOBABORT,SJH$B_FLAGS(R7),60$ ; BR IF JOB NOT ABORTED

                          07         00C9       

            50   00048080 8F     D0  00CA   148 	MOVL	#JBC$_JOBABORT,R0	; SET PROPER STATUS

                          FF2C'  30  00D1   149 60$:	BSBW	SYM$FREEJOB		; RELEASE THE JOB TO THE FREE LIST

                                     00D4   150 	SETBIT	JBC_V_CREJOBREQ,JCD_W_FLAGS(R11) ; FLAG CREATE DUE

                                     00D8   151 	$CMKRNL_S B^DECBAT		; DECREMENT COUNT OF BATCH JOBS

                                     00E4   152 ;

                                     00E4   153 ; TIME TO WRITE ACCOUNTING RECORD

                                     00E4   154 ;

            52         FC A9     3C  00E4   155 ACNTJOB:MOVZWL	-4(R9),R2		; SET BYTE COUNT FOR ACCOUNTING RECORD

            53            69     9E  00E8   156 	MOVAB	(R9),R3			; ADDRESS OF ACCOUNTING BUFFER

                          FF12'  30  00EB   157 	BSBW	JBC$WRTFLSACNT		; WRITE AND FLUSH ACCOUNT FILE

         F4 BB         F0 A9     0E  00EE   158 	INSQUE	-JCM_T_MSGDATA(R9), -	; RELEASE RECORD FOR RE-USE

                                     00F3   159 		@JCD_Q_FREEBUFR+4(R11)	; TO THE FREE LIST

                                 05  00F3   160 	RSB				;

                                     00F4   161 ;

                                     00F4   162 ; KERNAL MODE ROUTINE TO REDUCE THE COUNT OF BATCH JOBS BY 1

                                     00F4   163 ;

                                     00F4   164  

JBCPRCDEL       - JOB CONTROLLER PROCESS DELETE MODULE           22-AUG-1978 00:45:31   VAX-11 MACRO X0.3-11               Page   4

V01             DELETE PROCESS MESSAGES ROUTINE                                                                                  (2)



                               0000  00F4   165 DECBAT:	.WORD	0			;

                 00000000'9F     B7  00F6   166 	DECW	@#SYS$GW_BJOBCNT	; COUNT DOWN NUMBER OF BATCH JOBS

                                 04  00FC   167 	RET				;

                                     00FD   168  

                                     00FD   169 	.END

JBCPRCDEL       - JOB CONTROLLER PROCESS DELETE MODULE           22-AUG-1978 00:45:31   VAX-11 MACRO X0.3-11               Page   5

SYMBOL TABLE                                                                                                                     (2)



ACC$C_INS_LEN    000000B0            BIT...         = 00000005            JBC_K_PRTIMFLAG= 00000002            

ACC$C_JOB_LEN    0000006C            DECBAT           000000F4 R     03   JBC_K_SYNCFLAG = 00000001            

ACC$C_PRT_LEN    00000058            GBL...         = 00000000            JBC_K_UPDFLG   = 00000008            

ACC$C_TERMLEN    00000054            JBC$G_INTJOBEND  ********   X   03   JBC_M_CREJOBREQ= 00000008            

ACC$K_BATTRM   = 00000002            JBC$G_INTJOBFLG  ********   X   03   JBC_M_MBREADREQ= 00000001            

ACC$K_DISAACC  = 00000004            JBC$PRCDEL       00000000 RG    03   JBC_M_SRVTIMQUE= 00000010            

ACC$K_DISASEL  = 00000006            JBC$WRTFLSACNT   ********   X   03   JBC_M_SYMCREREQ= 00000002            

ACC$K_ENABACC  = 00000003            JBC$_ACMINVOP  = 00048088            JBC_M_SYMINIREQ= 00000004            

ACC$K_ENABSEL  = 00000005            JBC$_ACNTOPN   = 00048478            JBC_V_CREJOBREQ= 00000003            

ACC$K_INSMESG  = 00000001            JBC$_ACNTWRT   = 00048480            JBC_V_MBREADREQ= 00000000            

ACC$K_INSMSG   = 00000011            JBC$_ENTQUE    = 000484A8            JBC_V_SRVTIMQUE= 00000004            

ACC$K_INS_LEN    000000B0            JBC$_ILLDEVNAM = 00048000            JBC_V_SYMCREREQ= 00000001            

ACC$K_INTTRM   = 00000003            JBC$_ILLDEVTYP = 00048008            JBC_V_SYMINIREQ= 00000002            

ACC$K_JOB_LEN    0000006C            JBC$_ILLFILNAM = 00048010            JCD_A_LBUFADR    0000000C            

ACC$K_LOGTRM   = 00000004            JBC$_ILLQUENAM = 00048018            JCD_A_QUEBASE    00000018            

ACC$K_NEWFILE  = 00000002            JBC$_INPASGN   = 00048488            JCD_B_CURPDEV    0000001D            

ACC$K_PRCTRM   = 00000001            JBC$_INPREAD   = 00048490            JCD_B_CURSYMB    0000001C            

ACC$K_PRTJOB   = 00000010            JBC$_INVMSG    = 00048418            JCD_G_LISTS      00000000            

ACC$K_PRT_LEN    00000058            JBC$_INVSCT    = 00048468            JCD_G_WLEND      FFFFFFF0            

ACC$K_TERMLEN    00000054            JBC$_JOBABORT  = 00048080            JCD_G_WORKLIST   FFFFFFD0            

ACC$L_BIOCNT     0000003C            JBC$_JOBCRD    = 000484B0            JCD_K_SIZE     = 000000FC            

ACC$L_CPUTIM     0000002C            JBC$_LOSTREC   = 00048438            JCD_L_SMBPID     FFFFFFCC            

ACC$L_DIOCNT     00000040            JBC$_MBASGN    = 00048400            JCD_Q_ACNTFIL    FFFFFFE8            

ACC$L_FINALSTS   00000004            JBC$_MBDEAS    = 00048460            JCD_Q_FREEBUFR   FFFFFFF0            

ACC$L_GETCNT     00000038            JBC$_MBREAD    = 00048408            JCD_Q_LBUFDES    00000008            

ACC$L_JOBID      0000000C            JBC$_MBSETAST  = 000484C8            JCD_Q_PROCDEL    FFFFFFE0            

ACC$L_OWNER      00000050            JBC$_MBWRITE   = 000484D0            JCD_Q_SYMBMAN    FFFFFFD8            

ACC$L_PAGCNT     00000030            JBC$_MULTREC   = 00048430            JCD_Q_SYMBSRV    FFFFFFD0            

ACC$L_PAGEFLTS   00000030            JBC$_NOOPENJOB = 00048048            JCD_Q_SYMBWAIT   FFFFFFF8            

ACC$L_PGFLPEAK   00000034            JBC$_NOPRIV    = 00048020            JCD_Q_TIME       FFFFFFC4            

ACC$L_PID        00000008            JBC$_NOQUEHDR  = 00048028            JCD_Q_TMPDESC    00000010            

ACC$L_QIOCNT     00000034            JBC$_NOQUESPACE= 00048030            JCD_T_INDEX0     00000000            

ACC$L_VOLUMES    00000044            JBC$_NORMAL    = 00040001            JCD_T_LINBFE     000000C0            

ACC$L_WSPEAK     00000038            JBC$_NOSUCHJOB = 00048040            JCD_T_LINBUF     0000001E            

ACC$Q_LOGIN      00000048            JBC$_NOSUCHQUE = 00048038            JCD_T_START      FFFFFFC4            

ACC$Q_QUETIME    0000003C            JBC$_PASSCRD   = 000484B8            JCD_W_FLAGS      00000004            

ACC$Q_TERMTIME   00000010            JBC$_PRCREAT   = 00048410            JCD_W_JOBSEQ     00000006            

ACC$T_ACCOUNT    00000018            JBC$_PRINTOUT  = 000484E0            JCD_W_LBUFCNT    00000008            

ACC$T_JOB_NAME   00000054            JBC$_QUECNT    = 00048428            JCD_W_LBUFSIZ    0000000A            

ACC$T_JOB_QUE    0000005C            JBC$_QUEERR    = 00048458            JCD_W_MBCHAN     00000002            

ACC$T_PRT_NAME   00000044            JBC$_QUENOSTOP = 00048050            JCD_W_TMPCHAN    00000000            

ACC$T_PRT_QUE    0000004C            JBC$_QUEUPD    = 000484E8            JCM_K_SIZE       000000C0            

ACC$T_USERNAME   00000020            JBC$_SCTERR    = 00048450            JCM_Q_IOSB       00000008            

ACC$T_USER_DATA  0000002C            JBC$_SMINVOPR  = 00048058            JCM_Q_LINKS      00000000            

ACC$W_MSGSIZ     00000002            JBC$_SMINVOPT  = 00048060            JCM_T_MSGDATA    00000010            

ACC$W_MSGTYP     00000000            JBC$_SMINVREQ  = 00048068            SCT_B_FLAGS      00000009            

ACM$B_PROCPRI    00000024            JBC$_SMZEROJOB = 00048070            SCT_B_STATE      00000008            

ACM$L_PROCID     FFFFFFFC            JBC$_SNDRESP   = 00048420            SCT_K_ABOREQ   = 00000005            

ACM$L_UIC        0000000C            JBC$_SYMBASN   = 00048440            SCT_K_DEQFIL   = 00000003            

ACM$Q_ACNTNAM    0000001C            JBC$_SYMBCRE   = 000484D8            SCT_K_DEQJOB   = 00000002            

ACM$Q_PRVMSK     00000004            JBC$_SYMBDSAB  = 00048078            SCT_K_FREE     = 00000000            

ACM$T_DATA       00000028            JBC$_SYMBWRT   = 00048448            SCT_K_INIT     = 00000001            

ACM$T_USERNAM    00000010            JBC$_SYMDEL    = 00048470            SCT_K_MRKDEL   = 00000008            

ACM$W_MAILBOX    00000002            JBC$_UAFOPN    = 000484A0            SCT_K_REQUE    = 00000006            

ACM$W_TYPE       00000000            JBC$_UNESYMMSG = 000484C0            SCT_K_SIZE       00000028            

ACM$W_USERREQ    00000026            JBC$_USERVAL   = 00048498            SCT_K_SUSPND   = 00000007            

ACNTJOB          000000E4 R     03   JBC_K_MAXBUFR  = 00000004            SCT_K_TRMJOB   = 00000004            

JBCPRCDEL       - JOB CONTROLLER PROCESS DELETE MODULE           22-AUG-1978 00:45:31   VAX-11 MACRO X0.3-11               Page   6

SYMBOL TABLE                                                                                                                     (2)



SCT_L_CPUTIM     00000018            SMQ$T_NAME       00000010            SQR$W_DIRSEQ     00000020            

SCT_L_CURFIL     00000010            SMQ$V_CREPND   = 00000002            SQR$W_DIRVOL     00000022            

SCT_L_GETCNT     00000024            SMQ$V_DEFBRST  = 00000001            SQR$W_FILNUM     00000018            

SCT_L_PAGCNT     0000001C            SMQ$V_DEFFLAG  = 00000000            SQR$W_FILSEQ     0000001A            

SCT_L_PROCID     0000000C            SMQ$V_DETJOB   = 00000001            SQR$W_JOBSEQ     00000004            

SCT_L_QIOCNT     00000020            SMQ$V_GENDEV   = 00000004            SQR$W_PAGCNT     0000003A            

SCT_Q_LINKS      00000000            SMQ$V_INIPRI   = 00000000            SQR$W_RECID      00000006            

SCT_W_JOBSTAT    00000016            SMQ$V_INUSE    = 00000000            SQR$W_RELVOL     0000001C            

SCT_W_MBCHAN     0000000A            SMQ$V_LOWER    = 00000003            SYM$C_RECSIZE    00000040            

SCT_W_QINDEX     00000014            SMQ$V_NOGENERIC= 00000005            SYM$FINDETJOB    ********   X   03   

SJH$B_COPYCNT    0000000E            SMQ$V_NOSWAP   = 00000004            SYM$FINDPROCJOB  ********   X   03   

SJH$B_FLAGS      0000000C            SMQ$V_PAUSED   = 00000002            SYM$FREEJOB      ********   X   03   

SJH$B_FORMS      0000000D            SMQ$V_REDIRECT = 00000004            SYM$GETSYMCTL    ********   X   03   

SJH$B_PRTPRI     0000000F            SMQ$V_STOPPED  = 00000003            SYM$JOBINSQUE    ********   X   03   

SJH$L_NEXTJOB    00000008            SMQ$V_TRMDEV   = 00000002            SYM$K_RECSIZE    00000040            

SJH$L_PARMBLK    0000003C            SMR$B_PROCPRI    00000024            SYM_K_MAXDEVNAM= 0000000F            

SJH$L_PROCID     00000010            SMR$L_PROCID     FFFFFFFC            SYM_K_MAXFILNAM= 00000013            

SJH$L_RECLINK    00000000            SMR$L_UIC        0000000C            SYM_K_MAXSYMB  = 00000010            

SJH$L_UIC        00000014            SMR$Q_ACNTNAM    0000001C            SYM_K_NUMQUEUE = 0000001F            

SJH$M_HOLD     = 00000001            SMR$Q_PRVMSK     00000004            SYM_K_NUMRECORD= 00000400            

SJH$M_JOBABORT = 00000004            SMR$T_DATA       00000028            SYM_K_PRTPRI   = 00000020            

SJH$M_LOWER    = 00000002            SMR$T_USERNAM    00000010            SYM_K_QUENAM   = 0000000F            

SJH$Q_ACNTNAM    00000024            SMR$W_MAILBOX    00000002            SYS$CMKRNL       ********   X   03   

SJH$Q_JOBNAME    00000034            SMR$W_TYPE       00000000            SYS$GW_BJOBCNT   ********   X   03   

SJH$Q_TIME       0000002C            SMR$W_USERREQ    00000026            SYS$GW_IJOBCNT   ********   X   03   

SJH$T_USERNAM    00000018            SQH$B_FLAGS      00000004            UNX_SYM_DEL      ********   X   03   

SJH$V_HOLD     = 00000000            SQH$B_MAXQUE     00000006            _$$_           = 000000EF            

SJH$V_JOBABORT = 00000002            SQH$B_NUMQUE     00000005            

SJH$V_LOWER    = 00000001            SQH$B_SPARE      00000007            

SJH$W_JOBSEQ     00000004            SQH$C_SIZE       00000120            

SJH$W_MBCHAN     0000000D            SQH$K_SIZE       00000120            

SJH$W_QINDEX     00000006            SQH$L_FIRSTREC   00000008            

SMQ$B_CHAR       0000000A            SQH$L_FREEREC    00000000            

SMQ$B_FLAGS      00000008            SQH$L_LASTREC    00000010            

SMQ$B_FORMS      00000009            SQH$L_NEXTREC    0000000C            

SMQ$B_JOBCNT     00000009            SQH$L_OPENJOB    00000014            

SMQ$B_JOBLIM     0000000B            SQH$L_TIMQUE     00000018            

SMQ$C_SIZE       00000020            SQH$Q_QUEUE      00000020            

SMQ$K_SIZE       00000020            SQH$W_QUESEQ     0000001C            

SMQ$L_ASNSCT     0000000C            SQR$B_COPYCNT    00000039            

SMQ$L_CURRENT    00000000            SQR$B_FLAGS      00000038            

SMQ$L_HOLDLST    00000004            SQR$L_RECLINK    00000000            

SMQ$M_CREPND   = 00000004            SQR$M_BRSTPAG  = 00000004            

SMQ$M_DEFBRST  = 00000002            SQR$M_DELETE   = 00000001            

SMQ$M_DEFFLAG  = 00000001            SQR$M_DOUBLE   = 00000008            

SMQ$M_DETJOB   = 00000002            SQR$M_FLAGPAG  = 00000002            

SMQ$M_GENDEV   = 00000010            SQR$M_NOFEED   = 00000010            

SMQ$M_INIPRI   = 0000000F            SQR$M_PAGHDR   = 00000020            

SMQ$M_INUSE    = 00000001            SQR$T_FILNAM     00000024            

SMQ$M_LOWER    = 00000008            SQR$T_VOLNAM     00000008            

SMQ$M_NOGENERIC= 00000020            SQR$V_BRSTPAG  = 00000002            

SMQ$M_NOSWAP   = 00000010            SQR$V_DELETE   = 00000000            

SMQ$M_PAUSED   = 00000004            SQR$V_DOUBLE   = 00000003            

SMQ$M_REDIRECT = 00000010            SQR$V_FLAGPAG  = 00000001            

SMQ$M_STOPPED  = 00000008            SQR$V_NOFEED   = 00000004            

SMQ$M_TRMDEV   = 00000004            SQR$V_PAGHDR   = 00000005            

SMQ$S_INIPRI   = 00000004            SQR$W_DIRNUM     0000001E            

JBCPRCDEL       - JOB CONTROLLER PROCESS DELETE MODULE           22-AUG-1978 00:45:31   VAX-11 MACRO X0.3-11               Page   7

PROGRAM SECTION SYNOPSIS                                                                                                         (2)







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_PURE         000000FD      03     NOPIC   USR   CON   REL   LCL NOSHR   EXE   RD  NOWRT BYTE  





THERE WERE NO ERRORS OR WARNINGS.

14568. BYTES LEFT IN FREE MEMORY POOL.

904. BYTES OF RECLAIMED MEMORY.

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

39 MLB DIR RDS - 588 GETS TO DEFINE 27 MACROS. 32 INTER. FILE WRITES. 

