(George Source)
Macros used: ACROSS, BC, CLOSETOP, DOWN, ENDCOM, ERASE, FJOCA, FREECORE, GEOERR, HLSINFORM, HUNT, JBC, JBS, JLADJUST, JMBS, LONGOFF, LONGSTOP, MHUNT, MHUNTW, MONOUT, OPENDIR, ORIGIN, OUTBLOCN, OUTPACKX, POP, SEG, SEGENTRY, SETNCORE, SPARANOX, TESTREP, 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