(George Source)
Macros used: BITDEFS, FSHCODE, FSHSKIP, 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