{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: ENWELLB867)}}
====== ENWELLB867 ======
(George Source)
**Macros used:** [[george:macro:ACROSS|ACROSS]], [[george:macro:BC|BC]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:DOWN|DOWN]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:ERASE|ERASE]], [[george:macro:FJOCA|FJOCA]], [[george:macro:FREECORE|FREECORE]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HLSINFORM|HLSINFORM]], [[george:macro:HUNT|HUNT]], [[george:macro:JBC|JBC]], [[george:macro:JBS|JBS]], [[george:macro:JLADJUST|JLADJUST]], [[george:macro:JMBS|JMBS]], [[george:macro:LONGOFF|LONGOFF]], [[george:macro:LONGSTOP|LONGSTOP]], [[george:macro:MHUNT|MHUNT]], [[george:macro:MHUNTW|MHUNTW]], [[george:macro:MONOUT|MONOUT]], [[george:macro:OPENDIR|OPENDIR]], [[george:macro:ORIGIN|ORIGIN]], [[george:macro:OUTBLOCN|OUTBLOCN]], [[george:macro:OUTPACKX|OUTPACKX]], [[george:macro:POP|POP]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SPARANOX|SPARANOX]], [[george:macro:TESTREP|TESTREP]], [[george:macro:THAW|THAW]]
22FL #OPT K0ENWELLB=0
22^= #LIS K0ENWELLB>K0ALLGEO>K0GREATGEO>K0COMMAND
237G ... SEG ENWELLB,867,SECTION CENT
23*Q ...[
23J2 ...[ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1982
23Q= ...[
23YG #OPT WELLTEST=0
24=X ...#UNS G400
24K# ...# THIS CHAPTER IS MODIFIED FOR G3PLUS-IH MK 2
24XQ [
25CB ...[ THIS SEGMENT COMPLETES ENWELLMENT
25X2 ...[ AND TAKES ACTION ON ERRORS OR BREAK-IN
26BL ...[ DURING ENWELL AND DEWELL.
26W= ...[ IT ALSO CARRIES OUT ABANDON FOR A JOB IN THE WELL
27*W ...[
27TG ...[
28*6 ... SEGENTRY K1ENWELLB,WAIT [WAIT FOR MOP JOB TO START
28SQ ... [OR INFORM HLS OF ENWELLMENT
29#B ... SEGENTRY K2ENWELLB,WELLAB [ABANDON JON IN WELL
29S2 ... SEGENTRY K3ENWELLB,XJDERROR [ERROR IN JOB START COMMAND
2=?L ... SEGENTRY K4ENWELLB,NODEWELL [ERROR IN DEWELL
2=R= ... SEGENTRY K5ENWELLB,XBR1 [BREAK-IN DURING DEWELL
2=YD ...#UNS G400
2?5L ... SEGENTRY K60ENWELLB,XDN [EXIT ABANDON DEWELL HOOK
2?=W ...[
2?QG ...[
2#=6 ...#DEF SIZEABS=10
2#PQ ...XJWF +JWFINISH
2*9B ...[
2*P2 ...[ PUT JOB SOURCE INTO ACOMMUNE2/3
2B8L ...[ & PREPARE TO O/P VOUTPACK
2BN= ...SOURCE
2C7W ... SBX 7 FX1
2CMG ... LDX 0 ACES
2D76 ... STO 0 ACOMMUNE3(2)
2DLQ ... ADN 0 #2331 [CI
2F6B ... STO 0 ACOMMUNE2(2)
2FL2 ... LDCH 0 JSOURCE1(2)
2G5L ... SBN 0 #74
2GK= ... BZE 0 XENW4 [J IF CI
2H4W ... LDX 0 ACES
2HJG ... STO 0 ACOMMUNE2(2)
2J46 ... LDN 5 JSOURCE1(2)
2JHQ ... LDN 6 ACOMMUNE7(2)
2K3B ... MOVE 5 3
2KH2 ... ORIGIN
2L2L ...XENW4 LDN 4 2
2LG= ... LDN 6 ACOMMUNE2(2)
2L^W ... ADX 7 FX1
2MFG ... EXIT 7 0
2M^6 ...[
2NDQ ...[
2NYB ...VOUTPACK
2PD2 ... LDN 5 JPDVARCHAR [ FOR VARCHAR OUTPUT
2PXL ...XOUTPACK
2QC= ... SBX 7 FX1
2QWW ... OUTPACKX 6,4,5 [ OUTPUT NEXT PACKED PARAM
2RBG ... ADX 7 FX1
2RW6 ... EXIT 7 0
2S*Q ...[
2STB ...[
2T*2 ...SJOB
2TSL ... FJOCA 3,2
2W#= ... EXIT 7 0
2WRW ...[
2X?G ...[
2XR6 ...SFABSNB
2Y=Q ... HUNT 3,FILE,FABSNB [ USE EXISTING FABSNB...
2YQB ... SBX 7 FX1
2YTG ... BNG 3 SFAB10
2YYL ...[ BITS 18-23 OF ATYPE MUST BE CLEAR FOR A FILESTORE FILE
2^3Q ... LDX 0 CMIN64 [#77777700
2^6W ... ANDS 0 ATYPE(3) [MASK OUT B18-23
2^=2 ... LDX 0 ALOGLEN(3)
2^*6 ... SBN 0 SIZEABS
2^D= ... BPZ 0 STUF
2^HB ... FREECORE 3
2^LG ...SFAB10
2^PL ... SETNCORE SIZEABS,3,FILE,FABSNB
329= ...STUF LDN 0 SIZEABS
32NW ... STO 0 A1(3)
338G ... MHUNTW 2,JWELL,AJDF
33N6 ... LDX 0 JDFGEN(2) [ GENERATION NO.
347Q ... STO 0 A1+8(3)
34MB ... LDX 0 JDFLANG(2) [ LANGUAGE CODE
3572 ... STO 0 A1+9(3)
35LL ... LDN 4 JDFDIR(2) [ DIRECTORY
366= ... LDN 5 A1+1(3)
36KW ... MOVE 4 3
375G ... LDN 4 JDFNAME(2) [ FILENAME
37K6 ... LDN 5 A1+4(3)
384Q ... MOVE 4 3
38JB ... LDN 0 1
3942 ... STO 0 A1+7(3)
39HL ... ADX 7 FX1
3=3= ... EXIT 7 0
3=GW ...[
3?2G ...[
3?G6 ...WELL3
3?^Q ... STO 0 GEN0
3#FB ... MHUNTW 3,JWELL,COPYSYS
3#^2 ... JLADJUST 3
3*DL ... BRN (GEN0)
3*Y= ...[
3BCW ...POP SBX 7 FX1
3BXG ...POPC POP POPC,,JWACCESS
3CC6 ... ADX 7 FX1
3CWQ ... EXIT 7 0
3DBB ...#
3DW2 ...SUBJW
3F*L ... SBX 7 FX1
3FT= ... MHUNTW 3,JWELL,COPYSYS
3G#W ... LDX 3 ALOGLEN(3)
3GSG ... SETUPCOR 3,1,ADATA,ASUP
3H#6 ... MHUNTW 2,JWELL,COPYSYS
3HRQ ... LDN 5 A1(2)
3J?B ... LDN 6 A1(1)
3JR2 ... MOVE 5 0(3)
3K=L ... ADX 7 FX1
3KQ= ... EXIT 7 0
3L9W ...[
3LPG ...[
3M96 ...[ ENTRY POINT FOR MOP WAIT AND BACK HLSINFORM
3MNQ ... SEGENTRY K55ENWELLB
3N8B ... LDX 0 AWORK1(2)
3NN2 ... BNG 0 WAIT [J IF NOWELL
3P7L ... CALL 0 WELL3
3PM= ... JBC WAIT,3,JLBMOP [J IF NOT MOP
3Q6W ... OUTBLOCN 11
3QLG ... CALL 7 SOURCE [GET JOB SOURCE
3R66 ... CALL 7 VOUTPACK [O/P LINE NO. PARAMETER
3RKQ ... MHUNTW 3,JWELL,COPYSYS
3S5B ... LDN 6 A1+FRH+JLUSER(3)
3SK2 ... LDN 4 3
3T4L ... LDN 5 JPDUSERNAME
3TJ= ... CALL 7 XOUTPACK [O/P USERNAME PARAMETER
3W3W ... LDN 6 A1+FRH+JLJOBNAME(3)
3WHG ... LDN 5 JPDJOBNAME
3X36 ... CALL 7 XOUTPACK [O/P JOBNAME PARAMETER
3XGQ ... LDX 4 A1+FRH+JLJOBNO(3)
3Y2B ... MONOUT ENSTARTID,4 [O/P ENWELLED MESSAGE
3YG2 ...[
3Y^L ... SEGENTRY K50ENWELLB
3^F= ...WAIT LDXC 0 AWORK1(2) [-VE IF NOWELL
3^YW ... LDN 5 0
42DG ... CALL 0 WELL3
42Y6 ... HLSINFORM (GEOERR),ENWELL,4,5,SUBJW,JLSTAT(3)
43CQ ... CALL 0 WELL3
47SB ... JBC XENDC,3,JLBMOP [ENDCOM IF BACK
48#2 ... JBS WTREENT,,HLSMS
48RL ... LONGSTOP XBR1,XFINCH,AWELLMESSWT,WTREENT
49?= ...[
49QW ...[ READY TO START
4==G ... ACROSS DEWELL,1
4=Q6 ...[
4?9Q ...[
4?PB ...XENDC
4#92 ... ENDCOM [NOT MOP
4#NL ...[
4*8= ...[
4*MW ...XFINCH
4B7G ...[ SPURIOUS RESTART
4BM6 ... HUNT 3,GMON,HLSOUT
4C6Q ... BNG 3 NOHLSMESS
4CLB ... DOWN HLSEVENT,3 [OUTPUT MESSAGE FROM HLS
4D62 ...NOHLSMESS
4K^G ... LDX 0 FINISH
4LF6 ... SLL 0 1
4LYQ ... BPZ 0 WTREENT
4MY2 ... LONGOFF
4NCL ...XFIN NGN 6 1
4NX= ... LDX 5 XJWF(1)
4PBW ... CALL 7 POP
4PWG ... BRN XDN
4QB6 ...[
4QTQ ...[
4R*B ...[ ABANDON A JOB IN THE WELL
4RT2 ...WELLAB
4S#L ... NGN 0 5
4SS= ... STO 0 AWORK2(2)
4T?W ... BRN XCOMMON
4TRG ...[
4W?6 ...XJDERROR
4WQQ ...[ ERROR IN JOB START COMMAND
4X=B ... SPARANOX ACOMMUNE2(2)
4XQ2 ... LDX 0 ACOMMUNE1(2)
4Y9L ... STO 0 AWORK1(2)
4YP= ... LDX 0 AWORK2(2)
4^8W ... STO 0 AWORK3(2)
4^NG ... LDN 0 1
5286 ... STO 0 AWORK2(2)
52MQ ... HUNT 3,JWELL,AJDF
537B ... BNG 3 SER
53M2 ... CALL 0 WELL3
546L ... JMBS SER,3,JLBMOP,JLBJB [J IF NO JDF TO THAW
54L= ... BRN XCOMMON
555W ...[
55KG ...
5656 ...NODEWELL
56JQ ...[ FAILURE TO OPEN FILES IN DEWELL
56NM ...[ ACOMMUNE1 INDICATES IF THAW OF JDF IS NECESSARY
56SJ ... LDX 4 ACOMMUNE1(2)
56YF ... BNZ 4 SER
574B ...XCOMMON
57J2 ... CALL 0 WELL3
583L ...[
58H= ...[ NO JDF TO THAW IF MOP CONTEXT
592W ...[
59GG ... JBS SER,3,JLBMOP
5=26 ... CALL 7 SFABSNB
5=FQ ... OPENDIR SER,GENERAL,QUERY,ERASING
5=^B ... TESTREP OK,THOR
5?F2 ... GEOERR 1,DIRMISS
5?YL ...THOR
5#D= ... THAW SER,SAVE
5#XW ... CLOSETOP
5*CG ... CALL 0 WELL3 [X3->JWEL/COPYSYS
5*X6 ... JBS NOERASE,3,JLBRJ [J IF TEMP ABOR RJ
5BBQ ... ERASE
5BWB ...NOERASE
5CB2 ...[
5CTL ...SER LDX 0 AWORK2(2)
5D*= ... ADN 0 5
5DSW ... BZE 0 XDNM1
5F#G ... SBN 0 6
5FS6 ... LDX 5 AWORK1(2)
5G?Q ... NGN 6 1
5GRB ... BNZ 0 NOTJDE
5H?2 ... LDX 0 AWORK3(2)
5HQL ... STO 0 AWORK2(2)
5J== ... BRN XAX
5JPW ...NOTJDE
5K9G ... MHUNT 3,JWELL,COPYSYS
5KP6 ... LDN 6 A1+FRH+JLJOBNAME(3)
5L8Q ... LDN 4 3
5LNB ... LDN 5 JPDJOBNAME
5M82 ... CALL 7 XOUTPACK
5MML ... LDN 5 JPDUSERNAME
5N7= ... MHUNT 3,JWELL,COPYSYS
5NLW ... LDN 6 A1+FRH+JLUSER(3)
5P6G ... CALL 7 XOUTPACK
5PL6 ... MONOUT JWELLOST
5Q5Q ... CALL 7 POP
5QKB ... LDN 5 1
5R52 ... BRN XDN
5RJL ...[
5S4= ...[
5SHW ...
5T3G ...[
5TH6 ...XBR1
5W2Q ...[ BREAK-IN BEFORE ANYTHING HAPPENS
5WGB ... LDN 5 0
5X22 ... CALL 7 POP
5XFL ... BC 2,EXBEINGAB
5X^= ... BRN XDN
5YDW ...[
5YYG ...XDNM1 LDX 5 GSIGN
5^D6 ...XDN LDX 0 AWORK2(2)
5^XQ ... ADN 0 5
62CB ... BZE 0 VOPDN
62X2 ... LDX 0 CONTEXT(2)
63BL ... ANDN 0 1
63W= ... BZE 0 VOPDN [J IF NO-USER CONTEXT STILL
64*W ... LDX 0 CONTEXT(2)
64TG ... ANDN 0 #10
65*6 ... BNZ 0 XAX1 [ J IF MOP
65SQ ... NGN 0 4 [ INDICATE SUICIDE AFTER MESSAGE
66#B ... STO 0 AWORK2(2)
66S2 ...XAX1 CALL 7 SJOB [SET X3->JOBBLOCK
67?L ... FREECORE 3
67R= ... LDN 0 #2000
68=W ... ANDX 0 CONTEXT(2) [ONLY REMOVE TS BIT IF SET
68QG ... ORN 0 3 [TO SWAP TO NOUSER
69=6 ... ERS 0 CONTEXT(2)
69PQ ... STOZ JOBNO(2)
6=9B ...VOPDN DOWN JOBLIST,7
6=P2 ...XAX ACROSS INITJOB,9
6?8L ...[
6?N= ...[
6#7W ...#END
^^^^ ...173756120002