{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: COMPS WELL)}}
====== COMPS WELL ======
(George Source)
**Macros used:** [[george:macro:BITDEFS|BITDEFS]], [[george:macro:FSHCODE|FSHCODE]], [[george:macro:FSHSKIP|FSHSKIP]], [[george:macro:SEMAPHORE|SEMAPHORE]]
22FL ...#OPT K0JSASCAN=0
22^= ...#OPT K0JWUPDATE=0
2=R= [
2=X7 ...#DEF CASKI8214=1 [SWITCH ON ENHANCEMENT 8214 -
2?34 ...[ -AFTER FN PUT NEW JOBS INTO WELL
2?6^ ...[
2?=W [ FIXED CORE BITS AND SEMAPHORES
2?QG [
2#=6 BITDEFS JSAINFO,0,JSACT,JSAREQ,JSVIRTMOP,JSVIRTBACK
2#PQ BITDEFS JSAINFO,4,JWLOCKOUT,JWAITERS
2#^J ... BITDEFS JSAINFO,6,HOSTOPEN,IVEOPEND
2*47 ... BITDEFS JSAINFO,8,HLSMOPSTART,HLSBCKSTART
2*6Q ... BITDEFS JSAINFO,10,HLSMOPFULL,HLSBACKFULL
2*84 ... BITDEFS JSAINFO,12,JSVIRTMOPB,JSVIRTBACKB,JSPREFERA
2*9B SEMAPHORE JWACCESS,JWLOCKOUT,JWAITERS,#146
2C7W [
2CMG [ SYSTEM JOBLIST IDENTIFIERS
2D76 [
2DLQ #DEF JLJOBNO=1 [ 1
2F6B #DEF JLUSER=JLJOBNO+1 [ 2
2FL2 #DEF JLJOBNAME=JLUSER+3 [ 5
2G5L #DEF JLARRIVED=JLJOBNAME+3 [ 8
2GK= #DEF JLARRIVET=JLARRIVED+1 [ 9
2H4W #DEF JLPROPNO=JLARRIVET+1 [ 10
2HJG #DEF JLURG=JLPROPNO+1 [ 11
2J46 #DEF JLJT=JLURG+1 [ 12
2JHQ #DEF JLDEADD=JLJT+1 [ 13
2K3B #DEF JLDEADT=JLDEADD+1 [ 14
2KH2 #DEF JLESRT=JLDEADT+1 [ 15
2L2L #DEF JLESD=JLESRT+1 [ 16
2LG= #DEF JLEST=JLESD+1 [ 17
2L^W #DEF JLPERIS=JLEST+1 [ 18
2MFG #DEF JLMAXSIZE=JLPERIS+16 [ 34
2M^6 [
2NDQ #DEF JLSTAT=JLMAXSIZE+1 [ 35 THESE UNIVERSALS MUST BE USED
2NYB #DEF JLBUDGETS=JLSTAT+1 [ 36 IN CONJUNCTION WITH THE SIZE OF
2PD2 #DEF JLASSOCS=JLBUDGETS+1 [ 37 JOBDATA ENTRIES HELD IN FIXED
2PLM ...#DEF JLDFIND=JLASSOCS+3
2PLX ...#UNS FPRJW
2PM7 ...(
2PMC ...#DEF JLSTATX=JLDFIND+1
2PMM ...#DEF JLRESTPTR=JLSTATX+1
2PMX ...)
2PN7 ...#UNS FPRJW
2PNC ...#SKI
2PNW ...#DEF JLRESTPTR=JLDFIND+1
2QC= #DEF JLRESTF=JLRESTPTR+1 [ 41
2QWW #
2RBG [ N.B. ALL RELATIVE TO START OF RECORD...
2RW6 [
2S*Q ... BITDEFS JLUSER,0,JLBMARK
2STB [
2T*2 ... BITDEFS JLSTAT,0,JLBRUNNING,JLBSYSIS,JLBNOTCAND,JLBABAND
2TD6 ... BITDEFS JLSTAT,4,JLBHARDUP
2TH= ... BITDEFS JLSTAT,5,JLBBREAK,JLBGENRES,JLBBREAKGR,JLBABANDON,JLBBMAP
2TLB ... BITDEFS JLSTAT,10,JLBREST,JLBGRES,JLBGRNR,JLBGRQUERY,JLBRERUN
2TPG ... BITDEFS JLSTAT,15,JLBRUNDUMP,JLBFROZEN,JLBFROZENNC
2TSL BITDEFS JLSTAT,18,JLBRJ,JLBJB,JLBLN,JLBDC,JLBCLUS,JLBMOP
2W#= [
2WRW BITDEFS JLBUDGETS,0,JLBSPRIV
3J9# ... BITDEFS JLBUDGETS,13,JLBNOWELLP,JLBFROZENP
3J9W ... BITDEFS JLBUDGETS,23,JLBSINFACE1
3J=D ... BITDEFS JLUSER,0,JLBNEW
3J?2 ... BITDEFS JLJOBNAME,0,JLBCHECKED
3J?J ... BITDEFS JLDFIND,0,JLJTDF,JLMZDF,JLMQDF
3J#6 ...#UNS FPRJW
3J#N ... BITDEFS JLSTATX,0,JLBPARTRES,JLBPRES,JLBNETWORK,JLBNETWORKA
3J*= ...[N.B. JLBNETWORK,JLBNETWORKA FOR GANNET PROJECT
3J*S ... BITDEFS JLSTATX,4,JLBMACHA,JLBMACHB,JLBRUNB
3JBB ...[
3JBY ...[ JWELL BLOCK IDENTIFIERS
3JCG ...[
3JD4 ...#DEF JWELLONE=#1000 [ 1 WELLJOB
3JDL ... FSHCODE AORB
3JF8 ...#DEF JWENTRY=7
3JFQ ... FSHSKIP
3JG# ...#DEF JWENTRY=5 [ SIZE OF JWELL ENTRIES
3JGW ...#DEF JOBENTS=A1 [ FIRST ENTRY
3JHD ...#
3JJ2 ...#DEF JOBTYPE=0
3JJJ ...[
3JK6 ...[ BITS IN JOBTYPE OF JWELL BLOCK
3JKN ...[
3JL= ...#DEF JWBACKB=0
3JLS ...#DEF JWMOPB=1
3JMB ...#DEF JWCENTB=2
3JMY ...#DEF JWCLUSB=4
3JNG ...#DEF JOBBITS=JWMOPB+JWCENTB+JWCLUSB
3JP4 ...#
3JPL ...#DEF JOBCTS=JOBTYPE+1
3JQ8 ...#DEF JOBPROP=JOBCTS+1
3JQQ ...#DEF JNEXT=JOBPROP+1
3JR# ...#DEF JWDEG=JNEXT+1
3JRW ... FSHCODE AORB
3JSD ...(
3JT2 ...#DEF JWELLNOMACH=JWDEG+1
3JTJ ...#DEF JWDEGNOMACH=JWELLNOMACH+1
3JW6 ...)
3JWN ...[
3JX= ...[ WORDS IN JWELL/AJDF BLOCK
3JXS ...[
3JYB ...#DEF JOBCURDIR=A1+FRH+2
3JYY ...#DEF JDFWFNAME=JOBCURDIR+3
3J^G ...#DEF JDFDIR=JDFWFNAME+1
3K24 ...#DEF JDFNAME=JDFDIR+3
3K2L ...#DEF JDFGEN=JDFNAME+3
3K38 ...#DEF JDFLANG=JDFGEN+1
3K3Q ...[
3K4# ...[
3K4W ...[ WORDS IN JWELL/ADICTWELL BLOCK
3K5D ...[
3K62 ...#DEF ADWJOBNO=A1
3K6J ...#DEF ADWUSER=ADWJOBNO+1
3K76 ...#DEF ADWPRIVG=ADWUSER+3
3K7N ...#DEF ADWPRIVT=ADWPRIVG+1
3K8= ...#DEF ADWMNYFZ=ADWPRIVT+1
3K8S ...#DEF ADWELEMENT=ADWMNYFZ-ADWUSER+1
3K9B ...[
3K9Y ...[
3K=G ...[ WELL KNOWN PRIV BITS
3K?4 ...[ HELD IN JPRIV OF JOBQ AND JLBUDGETS OF JWELL,COPYSYS.
3K?L ...[ NB. BITS 22&23 OF JPRIV ARE DEFINED IN LLSBITS.
3K#8 ...#DEF APTRUSTED=#20000000
3K#Q ...#DEF APHLSEXT=#10000000
3K*# ...#DEF APDESTCOMM=#04000000
3K*W ...#DEF APNOTOWNER=#02000000
3KBD ...#DEF APNEWUSER=#01000000
3KC2 ...#DEF APCONTEXTA=#00400000
3KCJ ...#DEF APCONTEXTB=#00200000
3KD6 ...#DEF APCONTEXTC=#00100000
3KDN ...#DEF APBUDGEXT=#00040000
3KF= ...#DEF APSJMESS=#00020000
3KFS ...#DEF APPASSIVOP=#00010000
3KGB ...#DEF APACTIVOP=#00004000
3KGY ...#DEF APNOWELL=#00002000
3KHG ...#DEF APFROZEN=#00001000
3KJ4 ...#DEF APALLACC=#00000400
3KJL ...#DEF APINFACC=#00000200
3KK8 ...#UNS FTS2
3KKQ ...#DEF APASSIDIR=#00000100
3KN8 ...#
3L7S ...# HLSFACE BITS
3LMD ...#
3M74 ... BITDEFS HLSFACE,0,HLSMS,HLSBS,HLSMFS,HLSBFS
3MLN ... BITDEFS HLSFACE+1,0,EVBFSTART,EVBREGEN,EVBLOGOUT,EVBSTOPPED,EVBC-
3N6# ...ONNECT,EVBJOBDATA,EVBWAITCOM,EVBDELETE,EVBONLINE
3NKY ... BITDEFS HLSFACE+1,9,EVBXONLINE,EVBRELEASE,EVBJOBTIME,EVBMAXSIZE,-
3P5J ...EVBMAXQUOTA,EVBGMQUOTA,EVBPERFORM,EVBMESSAGE,EVBDEWELL
3PK8 ... BITDEFS HLSFACE+1,18,EVBENWELL,EVBSCHEDULE,EVBMOP,EVBLIMBO,EVBRE-
3Q4S ...SUME,EVBHALT
3QJD ... BITDEFS HLSFACE+2,0,EVBWAITIN,EVBWAITOUT,EVBLOAD,EVBNONCAND
3QS= ... BITDEFS HLSFACE+2,4,EVBREALTIME,EVBNOTLOAD
3QY7 ... BITDEFS HLSFACE+2,6,EVBSWITCH,EVBGEOGNO [CME
3R44 ...#
3R78 ...#
3R=# ...# ADATA/JUNSWAP ON HLS TEMP QUEUE
3R*D ...#
3RDJ ... BITDEFS HLSYONQA,13,BLASTRUNB
3RHN ...#DEF HLSTOPWAIT=#166
3S3# ...#
3SGY ...# IDENTIFIERS FOR HLSACTIVE OLPA
3T2J ...#DEF HLSPTYPE=AOLPTLEN+A1
3TG8 ...#DEF HLSCONREC=HLSPTYPE+1
3T^S ...#DEF HLSPERIREC=HLSCONREC+10
3WFD ...#DEF AOLPTACLEN=AOLPTLEN+1
3W^4 ...# EVENT NUMBER IDENTIFIERS
3XDN ...#DEF EVFSTART=0
3XY# ...#DEF EVREGEN=1
3YCY ...#DEF EVLOGOUT=2
3YXJ ...#DEF EVSTOPPED=3
3^C8 ...#DEF EVCONNECT=4
3^WS ...#DEF EVJOBDATA=5
42BD ...#DEF EVWAITCOM=6
42W4 ...#DEF EVDELETE=7
43*N ...#DEF EVONLINE=8
43T# ...#DEF EVXONLINE=9
44#Y ...#DEF EVRELEASE=10
44SJ ...#DEF EVJOBTIME=11
45#8 ...#DEF EVMAXSIZE=12
45RS ...#DEF EVMAXQUOTA=13
46?D ...#DEF EVGMQUOTA=14
46R4 ...#DEF EVPERFORM=15
47=N ...#DEF EVMESSAGE=16
47Q# ...#DEF EVDEWELL=17
489Y ...#DEF EVENWELL=18
48PJ ...#DEF EVSCHEDULE=19
4998 ...#DEF EVMOP=20
49NS ...#DEF EVLIMBO=21
4=8D ...#DEF EVRESUME=22
4=N4 ...#DEF EVHALT=23
4?7N ...#DEF EVWAITIN=24
4?M# ...#DEF EVWAITOUT=25
4#6Y ...#DEF EVLOAD=26
4#LJ ...#DEF EVNONCAND=27
4#RQ ...#UNS ECS
4#YY ...#DEF EVREALTIME=28
4*3J ...#DEF EVNOTLOAD=29
4*4D ...#DEF EVSWITCH=30 [CME
4*5# ...#DEF EVGEOGNO=31 [CME
4*68 ...#
4*?B ...#DEF EVCSWITCH=0 [CME
4*DJ ...#DEF EVCGEOGNO=0 [CME
4*KS ...#DEF EVCWAITIN=0
4B5D ...#DEF EVCWAITOUT=0
4BK4 ...#SKI G3
4C4N ...(
4CJ# ...#DEF EVCMAXQUOTA=0
4D3Y ...#DEF EVCGMQUOTA=0
4DHJ ...)
4F38 ...#DEF FACILITIES=7
4FGS ...#DEF FACORIG=FACILITIES
4FJH ...#UNS FPRJW
4FL= ...(
4FM^ ...#DEF JLFIXLEN=15
4FPN ...#DEF JLRECLEN=43
4FRC ...)
4FT6 ...#UNS FPRJW
4FWT ...#SKI
4FYJ ...(
4G2D ...#DEF JLFIXLEN=14
4GG4 ...#DEF JLRECLEN=42
4GPW ...)
4G^N ...#DEF JOBLISTSIZE=JLRECLEN
4HF# ...#DEF FACILNO=24
4HYY ...#OPT EVCXONLINE=1
4LG8 ...[
4LK# ...[ SWITCH ON DS8221 CODE IN
4LND ...[ WSJOBSA,WTSTAT,OPENWAIT,OPENWORK
4LRJ ...#DEF EWAITFILE = 1
4LWN ...[
^^^^ ...14215234006000000000