(George Source)
Macros used: DEFPRIV, DEFSTABLE, DEFTRANS, TRACE
22FL # RETURN TO ROOM F6A 22^= # DEFINITIONS FOR THE BUDGET DESCRIPTION LIST (IN THE FIRST ENTRY 23DW # IN THE DICTIONARY). 23YG #DEF IZCOUNT=CLOCN [NO. OF BUDGETS IN LIST (Q+P) 24D6 #DEF IZPRIV=IZCOUNT+1 [NO. OF PRIVILEGES 24XQ #DEF IZLIST=IZPRIV+1 [START OF DESCRIPTION LIST 25CB #DEF IZLINE=4 [NO. OF WORDS IN ONE LINE OF DESCR. LIST 25X2 # 26BL # DEFINITIONS FOR JBUDGET,JLINE BLOCK (WHICH CONTAINS A LINE FROM 26W= # THE BUDGET DESCRIPTION LIST 27*W #DEF JPATTERN=A1 [BUDGET TYPE AS A BIT PATTERN 27TG #DEF JCHARS=JPATTERN+1 [BUDGET NAME AS AN EIGHT CHAR. STRING 28*6 #DEF JBUDGK=JCHARS+2 [K (THE RATION CO-EFFICIENT) 28SQ # 29#B # DEFINITIONS FOR JBUDGET,JBUDGUSER BLOCK (WHICH CONTAINS A USER'S 29S2 # BUDGET RECORD) 2=?L #DEF JBITS=A1+1 [BUDGET TYPE BIT PATTERN 2=R= #DEF JRATION=JBITS+1 [RATION 2?=W #DEF JALLOWED=JRATION+1 [ALLOWANCE (OR AMOUNT BEING USED ) 2?QG #DEF JCONSUMED=JALLOWED+1 [AMOUNT CONSUMED (OR INTEGRAL RE TIME ) 2#=6 #OPT K6BMACROS=K6ALLGEO 2#PQ #OPT K0BMACROS=0 2*9B #OPT K0BUDGET=0 2*P2 #OPT K6BUDGET=K6ALLGEO 2B8L #OPT K6OPCA=9 2BN= # BUDGET MASKS -CGENERAL 2C7W #DEF GWORDS=7 [NO. OF INFORMATION WORDS 2CMG #DEF GMASK=#77777770 [UNIQUE MAME OF BUDGET 2D76 #DEF GCLASS=#77000000 [BUDGET CLASSIFICATION 2DLQ #DEF GSHIFT=6 [TIME LETTER -BIT PATTERN SHIFT 2F6B # SPECIFIC 2FL2 #DEF GPAND=#37 2G5L #DEF GPOR=0 2GK= #DEF GPREPLY=#7777 2H4W # 2HJG #DEF GSAND=#777777 [STABLE BUDGETS 2J46 #DEF GSOR=#01000000 2JHQ # 2K3B #DEF GTAND=#777777 [TRANSIENT BUDGETS 2KH2 #DEF GTOR=#02000000 2L2L # THE "ERASE" BIT IN WORD CPSEU OF THE FILE,ADICTENT 2LG= #DEF GERASE=#10000000 2L^W # 2MFG # THE SECURITY MASK FOR THE WORD CINDIC IN THE FILE, 2M^6 # ADICTENT BLOCK,FOLLOWED BY THE VALUES FOR HIGH AND 2NDQ # LOW SECURITY. 2NYB #DEF GSECURE=3 [THIS WILL BE USED TO TEST THE USER'S 2PD2 [SECURITY STATUS 2PXL #DEF GHIGH=1 2QC= [AS A HIGH SECURITY INDICATOR 2QWW #DEF GLOWS=2 2RBG [LOW SECURITY INDICATOR 2RW6 #INC SECURE5 2S*Q #OPT K0SECURE=0 2STB #OPT K6SECURE=K6ALLGEO 2T*2 # 2TSL #DEF ACANCEL=1 2W#= #OPT K6CANCOM=K6ALLGEO 2WRW #INC CANCOM 2X?G #OPT K0CANCOM=0 2XR6 #OPT K6TRACE=K6ALLGEO 2Y=Q #INC TRACE 2YQB #OPT K6SYNMON=K6ALLGEO 2^=2 #INC SYNMON70 2^PL #OPT K0TRACE=0 329= #OPT K0SYNMON=0 32NW # 338G # PROGRAM PRIVILEGES (FOR JPRIV WORD IN THE JOB BLOCK) 33N6 #DEF JSSTART=1 [SYSTEM STARTED JOBS 347Q #DEF JSISSUE=2 34MB #DEF JCONTEXTA=#400000 3572 #DEF JCONTEXTB=#200000 35LL #DEF JCONTEXTC=#100000 366= # 36KW # 375G #OPT K0BUDGETS=0 37K6 #OPT K0BUDGES=0 384Q #OPT K0ALLOW=0 38JB #OPT K0BQUERY=0 3942 #OPT K6BQUERY=K6ALLGEO 39HL #OPT K0BEMODE=0 3=3= #OPT K6BEMODE=K6ALLGEO 3=GW #OPT K0PRIVILEG=0 3?2G #OPT K0BEXTRA=0 3?G6 #OPT K6BEXTRA=K6ALLGEO 3?^Q #INC BUDGET1 3#FB #INC ALLOW1 3#^2 #INC BQUERY1 3*DL #INC PRIVLEG 3*Y= #INC BUDGONE2 3BCW #INC BUDGTWO2 3BXG #INC LOGANAL3 3CC6 #OPT K0PRIVLEG=0 3CWQ # 3D3Y ...#OPT JWHEN=5 [NO. OF TYPES OF WHENEVER 3D96 ...[ 3DB# ...[ SKIP IDENTIFIER FOR VOC SYSTEM 3DHG ...#DEF G402=0 3DNN ...[ 3DW2 #DEF GMJOBNO=A1 3F*L #DEF GMZJOBN=A1+10 [USED IN WTSTAT & WSPERIS. 3FT= #DEF GMZDPOS=A1+15 [USED IN WTSTAT & WSPERIS 3G#W #OPT GMFLENME=1 3GSG #OPT K0WHATJBS=0 3H#6 #OPT K0QPRINT=0 3HRQ #OPT K0WHTSTAT=0 3J?B #OPT K0WTSTAT=0 3JR2 #OPT K0WSPERIS=0 3K=L #OPT K0LOGANAL=0 3KQ= #OPT ALOGANAL=1 3L9W # 3LPG # 3N8B # 3NN2 #OPT K0WHATSTATE=0 [ONE IDENTIFIER -EASIER FOR TESTING 3P7L #OPT K6WHATSTATE=K6ALLGEO 3PM= #OPT K6QPRINT=K6WHATSTATE 3Q6W #OPT K6WHATJBS=K6WHATSTATE 3QLG # QPRINT IS ALSO USED BY WHATSTATE 3R66 #OPT AWHATT=1 3RKQ # 3S5B # INCS & DEFS FOR WHATSTATE (WS) COMMAND. 3SK2 #INC WHATJBS60 3T4L #INC QPRINT60 3TJ= #INC WHTSTAT60 3W3W #INC WTSTAT60 3WHG #INC WSPERIS64 3X36 #OPT K6WHTSTAT=K6WHATSTATE 3XGQ #OPT K6WTSTAT=K6WHATSTATE 3Y2B #OPT K6WSPERIS=K6WHATSTATE 3YG2 # 3Y^L #INC DEMAND60 3^F= #INC CANTDO4 3^YW #OPT K0DEMAND=0 42DG #OPT K6DEMAND=K6ALLGEO 42Y6 #OPT K0CANTDO=0 43CQ #OPT K6CANTDO=K6DEMAND>K6ALLGEO 43XB #OPT BCTTEST=0 44C2 #OPT K0MONFIL=0 44WL #OPT K0MONJRNAL=0 45B= #OPT K0MONOLITH=0 45TW #OPT K0MONCHAPS=0 45YF ...#OPT K0SCHEDULE=0 4634 ...#OPT K0OPERATOR=0 465M ...#OPT K0WSPARAM=0 468= ...#OPT K0WSJOBS=0 46=T ...#OPT K0REGEN=0 46*G # AMFNUMBER=NO OF SEGS CONTAINING MON FILE MESSAGES 46T6 ...#DEF AMFNUMBER=43 47#Q #OPT AMFLIMIT=900 47SB #OPT BNEWMON=1 48#2 # 48RL #DEF CNEWMON=1 49?= # 49QW # TABLE OF PDCS 4==G # 4=Q6 #DEF JPDNOTJOURN=0 [USED TO SUPPRESS FROM JOURNAL A MESSAGE PARAM. 4?9Q #DEF JPDDATENOW=1 [DAYS SINCE 31/12/1899 4?PB #DEF JPDTIMENOW=2 [MILLISECONDS 4#92 #DEF JPDUSERNAME=3 4#NL #DEF JPDLOCNAME=4 4*8= #DEF JPDGENNUM=5 4*MW #DEF JPDLANGUAGE=6 4B7G #DEF JPDJOBNAME=7 4BM6 #DEF JPDJOBTYPE=8 4C6Q #DEF JPDPROGNAME=9 4CLB #DEF JPDURGENCY=10 [TOP 3 CHARACTERS ARE ZERO 4D62 #DEF JPDPROGCORE=11 [WORDS OF CORE (GEORGE 4 SIZE) 4DKL #DEF JPDPROGMILL=13 [MILLISECONDS 4F5= #DEF JPDPERITYPE=14 [PERIPHERAL TYPE NUMBER 4FJW #DEF JPDPERINAME=15 4G4G #DEF JPDUNITNO=JPDPERINAME [TO BE REMOVED 4GJ6 #DEF JPDTSNCSN=17 [TOP BIT SET FOR XENOTAPE 4H3Q #DEF JPDTSN=JPDTSNCSN 4HHB #DEF JPDCSN=JPDTSNCSN 4J32 #DEF JPDTRANSCT=18 [COUNT OF TRANSFERS 4JGL #DEF JPDPROP=19 [THE PROPERTIES OF A DEVICE 4K2= #DEF JPDPROPS=19 4KFW #DEF JPDBUDGTYPE=20 4K^G #DEF JPDBUDGQUAN=22 [SIGNED AMOUNT OF BUDGET 4LF6 #DEF JPDINCNUM=23 [INCREMENT NUMBER 4LYQ #DEF JPDSKIP=24 4MDB #DEF JPDNULL=25 4MY2 #DEF JPDBLOCKCT=26 [NUMBER OF BLOCKS 4NCL #DEF JPDJOBMILL=27 [DOUBLE LENGTH, MILLISECONDS 4NX= #DEF JPDGEOPER=29 [GEOGRAPHIC PERIPHERAL IDENTIFIER 4PBW #DEF JPDFAILCT=30 [PERIPHERAL FAIL COUNT 4PWG #DEF JPDREPEATS=31 [PERIPHERAL REPEAT COUNT 4QB6 #DEF JPDERRMESS=32 [ERROR MESSAGE,VARIABLE 4QTQ #DEF JPDNUMA=33 [DECIMAL NUMBER 4R*B #DEF JPDNUMB=34 4RT2 #DEF JPDNUMC=35 4S#L #DEF JPDNUMD=36 4SS= #DEF JPDVARCHAR=37 [VARIABLE CHAR STRING 4T?W #DEF JPDPAGETURN=38 4TRG #DEF JPDQUOTA=39 4W?6 #DEF JPDDATETHEN=40 4WQQ #DEF JPDTIMETHEN=41 4X=B #DEF JPDOCTA=42 4XQ2 #DEF JPDOCTB=43 4Y9L #DEF JPDVAROCT=44 4YP= #DEF JPDVARDEC=45 4^8W #DEF JPDENTRANT=46 4^NG #DEF JPDSWITCH=47 4^Y# ...#DEF JPDGEOMILL=48 5286 #DEF JPDREELNUM=50 52MQ # 537B # IDENTIFIERS FOR BITS IN MONITORING FILE MASKS 53M2 # 546L #DEF CBRETAIN=0 54L= #DEF CBREADY=1 555W #DEF CBCONTINUE=2 55KG #DEF CBCU=CBCONTINUE 5656 #DEF CBPACKED=3 56JQ #DEF CBPA=CBPACKED 574B #DEF CBFORCEPRI=4 57J2 #DEF CBBREAKIN=5 583L #DEF CBNOSCAN=6 58H= #DEF CBOPINF=6 592W #DEF CBFORCETYP=7 59GG #DEF CBSYSREQ=8 5=26 #DEF CBENGINEER=9 5=FQ #DEF CBEN=9 5=^B #DEF CBJOURNAL=10 5?F2 #DEF CBJL=10 5?YL #DEF CBCLUSTER=11 5#D= #DEF CBCR=11 5#XW #DEF CBCENTRAL=12 5*CG #DEF CBCL=12 5*X6 #DEF CBBROADCAS=13 5BBQ #DEF CBBC=13 5BWB #DEF CBCOMMANDS=14 5CB2 #DEF CBCM=14 5CTL #DEF CBLOGGING=15 5D*= #DEF CBLG=15 5DSW #DEF CBPOSTMORT=16 5F#G #DEF CBPM=16 5FS6 #DEF CBFILES=17 5G?Q #DEF CBFL=17 5GRB #DEF CBCOMMENT=18 5H?2 #DEF CBCT=18 5HQL #DEF CBCOMERR=19 5J== #DEF CBCE=19 5JPW #DEF CBOBJECT=20 5K9G #DEF CBOJ=20 5KP6 #DEF CBLISTING=21 5L8Q #DEF CBLS=21 5LNB #DEF CBONLINE=22 5M82 #DEF CBOL=22 5MML #DEF CBDISPLAY=23 5N7= #DEF CBDP=23 5NLW #DEF CBCENT=CBOPINF [INTERFACE TWIXT JNL 5P6G #DEF CBCLUS=CBOPINF [AND NOT-JNL OP-MESSAGES 5PL6 # 5Q5Q # THE FOLLOWING UNIVERSALS ARE USED BY THE MONITORING FILE SYSTEM 5QKB # 5QT8 ...#OPT JLTIMEOUT=30 [TIME NON-AUTO MESS TO S.J. WAITS BEF 5R52 #OPT HMON1=EXEC1 5RJL #OPT HMON2=HMON1+1 5S4= #OPT HMON3=HMON2+1 5SHW #OPT JPROPCON=A1+13 [ADATA/GMONACC 5T3G #DEF ARECB=A1 [GMON/BOUT 5TH6 #DEF ANEWNUM=1 5W2Q #DEF ANEWMON=1 5WGB #DEF EJBITS=#77777 5X22 #OPT AORBOUT=0 5XFL #INC MONFILE70 5X^= #INC MONFIL70 5YDW #INC MONJRNAL70 5YYG #INC MONOLITH70 5^D6 # 5^XQ # INITIAL MOP MPXR MASK,FULLBUT,COMMANDS,BROADCAST 62CB #OPT AMXMSKPR=#21200777 62X2 #DEF ALLBITS=#77777 63BL #DEF FULLBITS=#3777 63W= #INC SETMON70 64*W #INC MESOUT70 64TG # 65*6 #OPT K6NEWINST=K6ALLGEO 65SQ #OPT K0NEWINST=0 66#B #DEF ANEWINST=1 66S2 #OPT ANEWFIXED=1 67?L #INC INSTPARA60 67R= #INC NEWINST4 68=W #OPT IP5=1 68QG #DEF CPERFORM=1 69=6 #INC PERFCHAP65 69PQ # IPSMK7 IS 1 IF ANY NEW IPS ARE IN USE, ELSE 0. 6=9B #OPT IPSMK7=1 6=P2 #OPT IP8=0 6=YS ...#OPT ENHOPER=0 [TO ALLOW USE IN FOLLOWING EXPRESSIONS 6?8L # JNLPER FOR REPORTTIME 6?N= # JNL FOR OPTRACE 6#7W # IPERFWAIT FOR PERFWAIT 6#MG # ALL FOR BACKTHRESH 6*76 # BSOL FOR LOBS 6*== # IPVERNO FOR MK 8 HAS TO BE ONE UP ON MK7 6**B # IN ORDER THAT NEWINST RECONSTRUCTS PARAMINDEX TO INCLUDE 6*DG # THE NEW IP'S FOR JOBWELL 6*HL # 6*LQ # IPVERNO FOR MK7 HAS TO BE TWO UP ON MK6 BECAUSE OF IPL(ETHERIDGE) 6*P* ...#OPT JICNIP=0 6B8^ ...#OPT IPVERNO=IP8+IPSMK7+IPSMK7+11+JWPHASE3+(2*JSKI37)+ENHOPER+JICNIP 6CK= # DEFINITIONS FOR ACCESS OF THE FILE :SYSTEM.PARAMINDEX (MARK 3) 6D4W #DEF IPHEAD=A1+FRH 6DJG #DEF IPVERSION=IPHEAD+1 [VERSION NO. 6F46 #DEF IPNAME=IPVERSION+1 [PARAMETER NAME ) THESE WORDS FORM AN 6FHQ #DEF IPMAX=IPNAME+3 [MAXIMUM VALUE ) ENTRY.THERE SHOULD BE 6G3B #DEF IPMIN=IPMAX+1 [MINIMUM VALUE ) ONE ENTRY FOR EACH 6GH2 #DEF IPVAL=IPMIN+1 [CURRENT VALUE ) I.P. 6H2L #DEF IPNUM=IPVAL+1 [PARAM. NUMBER ) 6HG= #DEF IPLINE=IPNUM+1-IPNAME [LENGTH OF ENTRY 6H^W #INC BLOGNAL70 6JFG #OPT K0FINISH=0 6J^6 #OPT K6FINISH=K6ALLGEO 6KDQ # WAITING STYLES FOR FINISH COMMAND 6KYB #DEF ALFIN=#100 6LD2 #DEF ASIFIN=#101 6LXL #INC BCAST 6MC= #INC PERCON37 6MWW #INC CHNUMCON4 6NBG ...# 6NW6 ...# DEFINITIONS OF BUDGET TYPES 6P*Q ...# 6PTB ...# PRIVILEGES 6Q*2 ... DEFPRIV #4,PRIORITY [PRIORTY INTERRUPT 6QSL ... DEFPRIV #5,NEWUSER 6R#= ... DEFPRIV #6,PRIVB 6RRW ... DEFPRIV #7,PRIVC 6S?G ... DEFPRIV #10,PRIVD 6SR6 ... DEFPRIV #11,PRIVE 6T=Q ... DEFPRIV #12,PRIVF 6TQB ... DEFPRIV #13,PRIVG 6W=2 ... DEFPRIV #14,PRIVH 6WPL ... DEFPRIV #15,PRIVI 6X9= ... DEFPRIV #16,PRIVJ 6XNW ... DEFPRIV #17,PRIVK 6Y8G ... DEFPRIV #20,PRIVL 6YN6 ... DEFPRIV #21,PRIVM 6^7Q ... DEFPRIV #22,PRIVN 6^MB ... DEFPRIV #27,PRIVO 7272 ... DEFPRIV #23,PRIVP 72LL ... DEFPRIV #24,PRIVQ 736= ... DEFPRIV #25,PRIVR 73KW ... DEFPRIV #26,PRIVS 745G ...# 74K6 ...# STABLE BUDGETS 754Q ... DEFSTABLE #105,REALTIME 75JB ... DEFSTABLE #205,SPACEEDS 7642 ... DEFSTABLE #305,SPACEDR 76HL ... DEFSTABLE #405,SPACEMT 773= ... DEFSTABLE #505,SPACEFDS 77GW ... DEFSTABLE #605,ONLINE 782G ... DEFSTABLE #705,FILESTOR 78G6 ... DEFSTABLE #1005,SPACEMCF 78^Q ... DEFSTABLE #1105,SPACECT 79FB ... DEFSTABLE #1205,STABLA 79^2 ... DEFSTABLE #1305,STABLB 7=DL ... DEFSTABLE #1405,STABLC 7=Y= ...# 7?CW ...# TRANSIENT BUDGETS 7?XG ... DEFTRANS #00004104,TIMEA 7#C6 ... DEFTRANS #00004204,TIMEB 7#WQ ... DEFTRANS #00004304,TIMEC 7*BB ... DEFTRANS #00004404,TIMED 7*W2 ... DEFTRANS #00004504,TIMEE 7B*L ... DEFTRANS #00004604,TIMEF 7BT= ... DEFTRANS #00004704,TIMEG 7C#W ... DEFTRANS #00005004,TIMEH 7CSG ... DEFTRANS #00005104,TIMEI 7D#6 ... DEFTRANS #00005204,TIMEJ 7DRQ ... DEFTRANS #00005304,TIMEK 7F?B ... DEFTRANS #00005404,TIMEL 7FR2 ... DEFTRANS #00005504,TIMEM 7G=L ... DEFTRANS #00005604,TIMEN 7GQ= ... DEFTRANS #00005704,TIMEO 7H9W ... DEFTRANS #00006004,TIMEP 7HPG ... DEFTRANS #00006104,TIMEQ 7J96 ... DEFTRANS #00006204,TIMER 7JNQ ... DEFTRANS #00006304,TIMES 7K8B ... DEFTRANS #00006404,TIMET 7KN2 ... DEFTRANS #00006504,TIMEU 7L7L ... DEFTRANS #00006604,TIMEV 7LM= ... DEFTRANS #00006704,TIMEW 7M6W ... DEFTRANS #00007004,TIMEX 7MLG ... DEFTRANS #00007104,TIMEY 7N66 ... DEFTRANS #00007204,TIMEZ 7NKQ ... DEFTRANS #00777704,MONEY 7P5B ...# ^^^^ ...51624402003000000000