{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPS MACB)}}
====== COMPS MACB ======
(George Source)
**Macros used:** [[george:macro:DEFPRIV|DEFPRIV]], [[george:macro:DEFSTABLE|DEFSTABLE]], [[george:macro:DEFTRANS|DEFTRANS]], [[george:macro:TRACE|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