9 22FL #OPT K0WLD = 0 8 22_= #LIS K0WLD 8 23DW #SEG WLD 6 23YG 8HWLD 4 24D6 [ 16 24XQ SEGENTRY K1WLD,WLDK1 [ WHATLIST ACTION 19 25CB SEGENTRY K2WLD,WLDK2 [ STOPLIST AND CHANGELIST ACTION 19 25X2 SEGENTRY K3WLD,WLDK3 [ CALL ON 'SFILEOUT' (FOR WLOUT) 4 26BL [ 4 26W= [ 19 27*W [************************************************************ 4 27TG [ 7 28*6 [ PRESET DATA 4 28SQ [ 19 29#B [************************************************************ 4 29S2 [ 4 2=?L [ 13 2=R= #DEF WGOUTKEY1 = GOUTKEY1 - A1 13 2?=W #DEF WGOUTKEY2 = GOUTKEY2 - A1 12 2?QG #DEF WGMODE = GMODE - A1 12 2#=6 #DEF WGHEAD = GHEAD - A1 12 2#PQ #DEF WGSUSE = GSUSE - A1 12 2*9B #DEF WGUSER = GUSER - A1 12 2*P2 #DEF WGJOBS = GJOBS - A1 12 2B8L #DEF WGJOBN = GJOBN - A1 12 2BN= #DEF WGOPTY = GOPTY - A1 13 2C7W #DEF WCPROPNO = CPROPNO - A1 13 2CMG #DEF WBPROPCNT = BPROPCNT - A1 12 2D76 #DEF WBPROPS = BPROPS - A1 21 2DLQ BITDEFS CLONG1,2,WBMESSBLK [ USED BY MESSAGE SYSTEM TO INDICATE PRE 16 2F6B [ OF GMON/ASET BLOCK 4 2FL2 [ 4 2G5L [ 19 2GK= PSTEPINC #777777 [UPDATES REC CNT AFTER 'STEP' 20 2H4W PERIMP +FREQLF [ REQUIRED FILE BEING IMPLEMENTED 10 2HJG WORKFILE 12HWORKFILE 21 2J46 PCATEGORY CATMASK CT,CE [ CATEGORIES FOR SL/CH ERROR MESSAGES 4 2JHQ [ 4 2K3B [ 19 2KH2 [************************************************************ 4 2L2L [ 6 2LG= SFILECOMP 4 2L_W [ 19 2MFG [************************************************************ 4 2M_6 [ 16 2NDQ [ SUBROUTINE TO COMPARE A FABSNB WITH A FILE RECORD. 14 2NYB [ FGN AND LANG ONLY CHECKED IF SET IN FABSNB 4 2PD2 [ 13 2PXL [ LINK X6 MUST BE PRESERVED THROUGHOUT 4 2QC= [ 9 2QWW [ ENVIRONMENT REQUIRED:- 16 2RBG [ X2 -> 10 WD FABSNB REPRESENTING SELECTION PARAM 14 2RW6 [ X3 -> FILE RECORD IN FULL FABSNB FORMAT 4 2S*Q [ 9 2STB [ ENVIRONMENT CHANGES:- 10 2T*2 [ X2, X3, X4 DESTROYED 12 2TSL [ X0 = 0 IF MATCHED, 1 IF DIDN'T 4 2W#= [ 16 2WRW LDEX 0 0(3) [X0 := RECORD LENGTH 7 2X?G LDX 4 0 7 2XR6 ADN 4 0(3) 7 2Y=Q SBN 4 6 18 2YQB STO 4 3 [X3 -> LOCALNAME IN RECORD 21 2_=2 LDN 5 3 [COMPARE WITH NAME IN SELECTION FABSNB 5 2_PL DO 9 329= LDX 4 A1+4(2) 11 32NW BXU 4 0(3),SFILEFAIL 7 338G ADN 2 1 7 33N6 ADN 3 1 7 347Q REPEAT CT 5 16 34MB LDN 5 2 [FOR FGN, LANG DO 5 3572 DO 9 35LL LDX 4 A1+5(2) 16 366= IF 4,NZ [IF SELECTED THEN 6 36KW THEN 15 375G BXU 4 1(3),SFILEFAIL [COMPARE 13 37K6 FI [FI 7 384Q ADN 2 1 7 38JB ADN 3 1 13 3942 REPEAT CT 5 [REPEAT 7 39HL SBN 2 5 7 3=3= SBN 0 10 7 3=GW SBN 3 9 7 3?2G IF 0,NZ 5 3?G6 THEN 7 3?_Q SBN 3 2 5 3#FB FI 7 3#_2 LDN 5 3 5 3*DL DO 9 3*Y= LDX 4 A1+1(2) 11 3BCW BXU 4 1(3),SFILEFAIL 7 3BXG ADN 2 1 7 3CC6 ADN 3 1 13 3CWQ REPEAT CT 5 [REPEAT 7 3DBB LDN 0 0 7 3DW2 EXIT 6 0 6 3F*L SFILEFAIL 7 3FT= LDN 0 1 7 3G#W EXIT 6 0 4 3GSG [ 19 3H#6 [************************************************************ 4 3HRQ [ 6 3J?B SCOMPPROP 4 3JR2 [ 19 3K=L [************************************************************ 4 3KQ= [ 18 3L9W [ COMPARE PROPERTY IN X5 WITH THOSE IN ADATA/AWHATLIST BLOCK 4 3LPG [ 11 3M96 MHUNTW 2,ADATA,AWHATLIST 8 3MNQ LDN 4 ATTMAX 9 3N8B LDN 2 AWLPRNO(2) 8 3NN2 ANDX 5 BSP16 15 3P7L WHILE TRUE [LOOP UNTIL ... 8 3PM= LDX 0 0(2) 8 3Q6W ANDX 0 BSP16 7 3QLG ADN 2 1 20 3R66 AND 0,U,5 [ ... PROP FOUND IN /AWHATLIST ... 5 3RKQ DO 16 3S5B REPEAT CT 4 [ ... OR NONE LEFT 15 3SK2 IF 4,NZ [IF FOUND THEN 5 3T4L THEN 7 3TJ= LDN 0 1 8 3W3W SMO FX2 19 3WHG SBS 0 AWORK4 [DECREMENT 'TO BE FOUND' CT 12 3X36 FI [FI 7 3XGQ EXIT 6 0 4 3Y2B [ 4 3YG2 [ 19 3Y_L [************************************************************ 4 3_F= [ 5 3_YW SCOMPARE 4 42DG [ 19 42Y6 [************************************************************ 4 43CQ [ 4 43XB [ 15 44C2 [ SUBROUTINE TO COMPARE A SYSOUT REQUEST WITH AN 9 44WL [ ADATA/AWHATLIST BLOCK 4 45B= [ 13 45TW [ LINK X7 MUST BE PRESERVED THROUGHOUT 4 46*G [ 9 46T6 [ ENVIRONMENT REQUIRED:- 14 47#Q [ X3 -> FIRST RECORD OF SYSOUT REQUEST 11 47SB [ AWORK2 = GMODE OF REQUEST 4 48#2 [ 9 48RL [ ENVIRONMENT CHANGES:- 15 49?= [ ALL ACCUMULATORS, AWORK3,AWORK4 DESTROYED 17 49QW [ IF MATCHED, XO = 0 AND X3 -> REC ZERO OF REQUEST 17 4==G [ IF DIDN'T, X0 = 1 AND 'STEP' WILL GET NEXT REQUEST 4 4=Q6 [ 7 4?9Q SBX 7 FX1 4 4?PB [ 7 4#92 LDX 2 FX2 9 4#NL LFRECNUM 6,AWORK2(2) 19 4*8= STO 6 AWORK3(2) [SAVE COUNT OF RECORDS IN ENTRY 4 4*MW [ 9 4B7G [ FORMAT OF AWORK3 IS :- 18 4BM6 [ B0-5 BACKSPACES REQUIRED TO RETURN TO FIRST RECORD 12 4C6Q [ OF CURRENT SYSOUT ENTRY 17 4CLB [ B15-23 RECORDS TO SKIP TO POINT TO FIRST RECORD OF 11 4D62 [ NEXT SYSOUT ENTRY 4 4DKL [ 9 4F5= LDX 0 AWORK2(2) 17 4FJW BNG 0 XCOMPFAIL [FAILIF ONLINE REQUEST 4 4G4G [ 11 4GJ6 MHUNTW 2,ADATA,AWHATLIST 4 4H3Q [ 15 4HHB IF BS,2,AWLBJOBNO [IF JOBNO THEN 5 4J32 THEN 10 4JGL LDX 0 AWLJOBNAM(2) 17 4K2= BXU 0 WGJOBS(3),XCOMPFAIL [FAILS IF WRONG JOBNO 17 4KFW IF BS,2,AWLBUSERCON [IF USER CONTEXT THEN 6 4K_G THEN 11 4LF6 LDX 4 AWLUSERNAM(2) 12 4LYQ LDX 5 AWLUSERNAM+1(2) 12 4MDB LDX 6 AWLUSERNAM+2(2) 10 4MY2 TXU 4 WGUSER(3) 11 4NCL TXU 5 WGUSER+1(3) 11 4NX= TXU 6 WGUSER+2(3) 20 4PBW BCS ZOTHERUSER [ERRIF USER DOESN'T OWN JOB 13 4PWG FI [FI 12 4QB6 FI [FI 4 4QTQ [ 18 4R*B IF BS,2,AWLBUSERNAM [IF USERNAME SELECTION THEN 5 4RT2 THEN 10 4S#L LDX 4 AWLUSERNAM(2) 11 4SS= LDX 5 AWLUSERNAM+1(2) 11 4T?W LDX 6 AWLUSERNAM+2(2) 9 4TRG TXU 4 WGUSER(3) 10 4W?6 TXU 5 WGUSER+1(3) 10 4WQQ TXU 6 WGUSER+2(3) 16 4X=B BCS XCOMPFAIL [FAILIF DIFFER 12 4XQ2 FI [FI 4 4Y9L [ 18 4YP= IF BS,2,AWLBJOBNAM [IF JOBNAME SELECTION THEN 5 4_8W THEN 10 4_NG LDX 4 AWLJOBNAM(2) 11 5286 LDX 5 AWLJOBNAM+1(2) 11 52MQ LDX 6 AWLJOBNAM+2(2) 9 537B TXU 4 WGJOBN(3) 10 53M2 TXU 5 WGJOBN+1(3) 10 546L TXU 6 WGJOBN+2(3) 16 54L= BCS XCOMPFAIL [FAILIF DIFFER 12 555W FI [FI 4 55KG [ 18 5656 IF BS,2,AWLBPERI [IF PERIPH SELECTION THEN 5 56JQ THEN 9 574B LDX 0 WGOPTY(3) 16 57J2 BXU 0 AWLPERI(2),XCOMPFAIL [FAILIF DIFFER 12 583L FI [FI 4 58H= [ 16 592W IF BS,2,AWLBWKFILE [IF WORKFILE THEN 5 59GG THEN 10 5=26 MHUNT 1,FILE,FNAME 9 5=FQ LDX 0 ANUM(1) 8 5=_B ANDN 0 #7777 20 5?F2 BXU 0 WGSUSE(3),XCOMPFAIL [FAILS IF DIFFERENT STRING LENGTH 17 5?YL STO 3 4 [PRESERVE RECORD PTR 5 5#D= DO 10 5#XW LDCH 5 WGHEAD(3) 10 5*CG LDCH 6 APARA(1) 20 5*X6 BXU 5 6,XCOMPFAIL [FAILS IF DIFFERENT STRINGS 8 5BBQ BCHX 1 / 8 5BWB BCHX 3 / 8 5CB2 REPEAT CT 0 17 5CTL LDX 3 4 [RESTORE RECORD PTR 12 5D*= FI [FI 4 5DSW [ 19 5F#G IF MBS,2,AWLBPROP,AWLBPRCENT [IF PROP SELECTION THEN 5 5FS6 THEN 18 5G?Q IF BS,3,BLFRPROPREC [IF PROPERTY RECORD THEN 6 5GRB THEN 11 5H?2 LDX 0 AWLPRCNT(2) 9 5HQL SMO FX2 20 5J== STO 0 AWORK4 [ NON-CONSOLE PROPERTY COUNT 7 5JPW STEP 11 5K9G LDX 0 PSTEPINC(1) 18 5KP6 ADS 0 AWORK3(2) [UPDATE RECORD COUNT 11 5L8Q LDX 6 WCPROPNO(3) 12 5LNB MHUNTW 2,ADATA,AWHATLIST 20 5M82 IF 6,NZ [IF NON-CENTRAL CONSPROP THEN 7 5MML THEN 14 5N7= JBS XCOMPFAIL,2,AWLBPRCENT 11 5NLW [FAILIF CENTRAL SELECTION 14 5P6G FI [FI 9 5PL6 ANDX 6 BSP16 10 5Q5Q LDX 0 AWLCONS(2) 9 5QKB ANDX 0 BSP16 19 5R52 IF 0,NZ [IF CONSOLE SELECTION THEN 7 5RJL THEN 17 5S4= BXU 6 0,XCOMPFAIL [FAILIF DIFFER 14 5SHW FI [FI 11 5T3G LDX 1 WBPROPCNT(3) 18 5TH6 IF 1,NZ [IF PROPS TO LF THEN 7 5W2Q THEN 7 5WGB DO 18 5X22 LDX 5 WBPROPS(3) [SEARCH FOR THEM 12 5XFL CALL 6 SCOMPPROP 10 5X_= ADN 3 1 10 5YDW REPEAT CT 1 14 5YYG FI [FI 9 5_D6 LDX 2 FX2 10 5_XQ LDX 0 AWORK4(2) 18 62CB BNZ 0 XCOMPFAIL [FAILIF NOT ALL FOUND 12 62X2 MHUNTW 2,ADATA,AWHATLIST 17 63BL ELSE [ELSE (NO PRP REC) 13 63W= JBC XCOMPFAIL,2,AWLBPRCENT 12 64*W [FAILIF DIDN'T SELECT CENTRAL 13 64TG JBS XCOMPFAIL,2,AWLBPROP 11 65*6 [FAILIF SELECTED PROPS 15 65SQ FI [FI PROPREC 17 66#B FI [FI PROPERTY SELECTION 4 66S2 [ 16 67?L IF BS,2,AWLBFILE [IF FILENAME THEN 5 67R= THEN 7 68=W LDN 6 1 14 68QG IF MBAC,2,AWLBPROP,AWLBPRCENT 18 69=6 AND BS,3,BLFRPROPREC [IF UNREAD PROP REC THEN 6 69PQ THEN 17 6=9B LDN 6 2 [MUST STEP PAST IT 13 6=P2 FI [FI 5 6?8L DO 7 6?N= STEP 11 6#7W LDX 0 PSTEPINC(1) 10 6#MG ADS 0 AWORK3(2) 8 6*76 REPEAT CT 6 10 6*LQ MHUNT 2,FILE,FABSNB 9 6B6B CALL 6 SFILECOMP 9 6BL2 BNZ 0 XCOMPFAIL 12 6C5L FI [FI 4 6CK= [ 7 6D4W LDX 2 FX2 9 6DJG LDCH 6 AWORK3(2) 18 6F46 IF 6,NZ [FOR ALL RECORDS BUT 1ST DO 5 6FHQ THEN 5 6G3B DO 8 6GH2 BACKSPACE 8 6H2L REPEAT CT 6 13 6HG= FI [REPEAT 18 6H_W LDN 0 0 [PT AT 1ST RECORD, SET OK 9 6JFG BRN XITCOMPPROP 6 6J_6 XCOMPFAIL 7 6KDQ LDX 2 FX2 9 6KYB LDEX 1 AWORK3(2) 7 6LD2 SBN 1 1 17 6LXL IF 1,NZ [IF RECORDS TO SKIP THEN 5 6MC= THEN 15 6MWW SKIP ,0(1) [SKIP THEM 12 6NBG FI [FI 14 6NW6 LDN 0 1 [SET FAIL 6 6P*Q XITCOMPPROP 7 6PTB ADX 7 FX1 7 6Q*2 EXIT 7 0 4 6QSL [ 21 6R#= [*********************************************************************** 4 6RRW [ 5 6S?G SFILEOUT 4 6SR6 [ 21 6T=Q [*********************************************************************** 4 6TQB [ 20 6W=2 [ THIS SUBROUTINE READS THE NEXT LINE OF A FILE (:SYSTEM.OUTPUT), 19 6WPL [ WHICH IT EXPECTS TO BE IN THE FORM OF A 10 WD FABSNB, AND DOES 8 6X9= [ AN 'OUTPACK' ON IT 4 6XNW [ 9 6Y8G [ ENVIRONMENT REQUIRED:- 12 6YN6 [ FILE READ POINTER SET CORRECTLY 4 6_7Q [ 9 6_MB [ ENVIRONMENT CHANGES:- 10 7272 [ X0, X3, X4 DESTROYED 14 72LL [ X5 MUST BE PRESERVED - SEE SLISTLOST 6 736= [ X1=FX1 6 73KW [ X2=FX2 10 745G [ MESSAGE BLOCK UPDATED 6 74K6 [ X6 LINK 4 754Q [ 7 75JB SBX 6 FX1 11 7642 SETNCORE 12,3,ADATA,CREADL 8 76HL STOZ A1(3) 8 773= LDN 1 A1+2(3) 8 77GW LDN 2 A1+3(3) 7 782G LDX 0 ACES 7 78G6 STO 0 0(1) 16 78_Q MOVE 1 9 [ SPACE FILL BLOCK 5 79FB READ 9 79_2 MHUNTW 3,FILE,FRB 10 7=DL NAME 3,FILE,FABSNB 7 7=Y= UNNORM FULL 6 7?CW SFILEOUT1 10 7?XG MHUNTW 3,ADATA,CREADL 8 7#C6 LDX 2 A1(3) 7 7#WQ ADN 2 3 16 7*BB SRL 2 2 [ LENGTH IN WORDS 8 7*W2 LDN 3 A1+2(3) 9 7B*L LDN 4 JPDENTRANT 10 7BT= OUTPACKX 3,2,4,SFILEOUT1 9 7C#W MFREE FILE,FABSNB 9 7CSG MFREE ADATA,CREADL 7 7D#6 ADX 6 FX1 7 7DRQ EXIT 6 0 4 7F?B [ 4 7FR2 [ 21 7G=L [*********************************************************************** 4 7GQ= [ 5 7H9W SOUTPUT 4 7HPG [ 21 7J96 [*********************************************************************** 4 7JNQ [ 19 7K8B [ APPENDS INFORMATION ABOUT A SYSOUT REQUEST TO THE OUTPUT FILE 4 7KN2 [ 13 7L7L [ LINK X7 MUST BE PRESERVED THROUGHOUT 4 7LM= [ 9 7M6W [ ENVIRONMENT REQUIRED:- 17 7MLG [ FILE PTRS SET TO 1ST RECORD OF ENTRY TO BE WRITTEN 4 7N66 [ 9 7NKQ [ ENVIRONMENT CHANGES:- 11 7P5B [ ALL ACCUMULATORS DESTROYED 13 7PK2 [ AWLCOUNT INCREMENTED IN /AWHATLIST 17 7Q4L [ FILE PTRS SET TO GIVE NEXT SYSOUT ENTRY ON 'STEP' 14 7QJ= [ IF 'FULL': INFO APPENDED TO O/P FILE 13 7R3W [ AWORK2 = GMODE OF ENTRY 13 7RHG [ IF MAX 'FULL' ENTRIES NOW WRITTEN, 17 7S36 [ FULL BIT WILL BE CLEAR AND ^OUTPUT TERMINATED^ 14 7SGQ [ WILL HAVE BEEN WRITTEN TO O/P FILE 4 7T2B [ 7 7TG2 SBX 7 FX1 11 7T_L MHUNTW 2,ADATA,AWHATLIST 17 7WF= IF BC,2,AWLBOPER [IF 'OP' OR USER THEN 5 7WYW THEN 16 7XDG TESTBRKIN ZBREAKIN [TEST FOR BREAKIN 11 7XY6 MHUNTW 2,ADATA,AWHATLIST 12 7YCQ FI [FI 7 7YXB LDN 0 1 9 7_C2 ADS 0 AWLCOUNT(2) 15 7_WL IF BS,2,AWLBFULL [IF FULL THEN 5 82B= THEN 19 82TW DOWN WLOUT,1 [APPEND ENTRY TO OUTPUT FILE 21 83*G BRN ZABANDON [COME UP TO THIS ONLY IF FILE FULL 21 83T6 LDX 0 ACOMMUNE2(2) [COME UP HERE IF APPENDED OK, WHERE 19 84#Q STO 0 AWORK2(2) [ WE COPY GMODE INTO AWORK2 5 84SB ELSE 7 85#2 STEPAGAIN 10 85RL LFRECNUM 3,WGMODE(3) 7 86?= SBN 3 1 8 86QW IF 3,NZ 6 87=G THEN 9 87Q6 SKIP ,0(3) 5 889Q FI 13 88PB FI [FI FULL 7 8992 ADX 7 FX1 7 89NL EXIT 7 0 4 8=8= [ 4 8=MW [ 19 8?7G [************************************************************ 4 8?M6 [ 5 8#6Q SERROR 4 8#LB [ 19 8*62 [************************************************************ 4 8*KL [ 4 8B5= [ 21 8BJW [ ASSEMBLE ERROR MESSAGE AND APPEND TO OUTPUT FILE FOLLOWED BY BLANK LIN 10 8C4G [ X6 - MESSAGE IDENTIFIER 4 8CJ6 [ 6 8D3Q [ LINK X7 4 8DHB [ 7 8F32 SBX 7 FX1 11 8FGL MHUNTW 2,ADATA,AWHATLIST 7 8G2= LDN 0 1 16 8GFW ADS 0 AWLCOUNTUN(2) [ UPDATE UNCHANGED COUNT 14 8G_G SBS 0 AWLCOUNT(2) [ CORRECT OK COUNT 18 8HF6 IF BS,2,AWLBFULL [ FULL OUTPUT BEING GENERATED 5 8HYQ THEN 7 8JDB ASSMESS 6 10 8JY2 MHUNTW 3,GMON,AOUT 10 8KCL NAME 3,FILE,FAPB 9 8KX= LDEX 0 A1+FRH(3) 8 8LBW ADN 0 11 7 8LWG SRL 0 2 18 8MB6 STO 0 A1+FRH(3) [ CONVERT MESSAGE LENGTH TO WORDS 10 8MTQ LDX 0 PCATEGORY(1) 16 8N*B STO 0 A1+FRH+1(3) [ SET MESSAGE CATEGORY 10 8NT2 APPEND 1,ZABANDON 10 8P#L MHUNTW 3,FILE,FAPB 7 8PS= LDN 0 2 13 8Q?W STO 0 A1+FRH(3) [ BLANK LINE 10 8QRG APPEND 1,ZABANDON 9 8R?6 MFREE FILE,FAPB 5 8RQQ ELSE 18 8S=B VFREE GMON,ASET [ FREE MESSAGE BLOCK IF PRESENT 10 8SQ2 BC FX2,WBMESSBLK 5 8T9L FI 7 8TP= ADX 7 FX1 7 8W8W EXIT 7 0 4 8WNG [ 19 8X86 [************************************************************ 4 8XMQ [ 5 8Y7B SOUTPACK 4 8YM2 [ 19 8_6L [************************************************************ 4 8_L= [ 4 925W [ 13 92KG [ OUTPACKX - DATA X5 - PDC X6 - LENGTH 1 4 9356 [ 7 93JQ SBX 7 FX1 7 944B LDN 2 5 7 94J2 LDN 3 1 8 953L OUTPACKX 2,3,6 7 95H= ADX 7 FX1 7 962W EXIT 7 0 4 96GG [ 4 9726 [ 4 97FQ [ 19 97_B [************************************************************ 4 98F2 [ 6 98YL SLISTLOST 4 99D= [ 19 99XW [************************************************************ 4 9=CG [ 4 9=X6 [ 4 9?BQ [ 19 9?WB [ OUTPUT LISTFILE LOST DUE TO STOPLIST MESSAGE TO SYSTEM JOURNAL 4 9#B2 [ 6 9#TL [ LINK X7 4 9**= [ 7 9*SW SBX 7 FX1 7 9B#G OUTBLOCN 20 6 9BS6 STEPAGAIN 11 9C?Q OUTPACK WGUSER(3),3,USERNAME 11 9CRB OUTPACK WGJOBN(3),3,JOBNAME 18 9D?2 LDX 5 WGJOBS(3) [SAVE JOBNO OF AFFECTED JOB 20 9DQL [X5 MUST BE PRESERVED BY 'SFILEOUT' 15 9F== IF BS,3,BLFRPROPREC [ PROPERTY RECORD 5 9FPW THEN 6 9G9G STEP 9 9GP6 CALL 6 SFILEOUT 7 9H8Q BACKSPACE 5 9HNB ELSE 9 9J82 CALL 6 SFILEOUT 5 9JML FI 6 9K7= BACKSPACE 19 9KLW [JOBNO OF AFFECTED JOB TO JNL 16 9L6G MONOUT JLFSLIST,5 [ ======== 7 9LL6 ADX 7 FX1 7 9M5Q EXIT 7 0 4 9MKB [ 4 9N52 [ 19 9NJL [************************************************************ 4 9P4= [ 5 9PHW STHAW 4 9Q3G [ 19 9QH6 [************************************************************ 4 9R2Q [ 4 9RGB [ 4 9S22 [ 15 9SFL [ THAW FILE IN CURRENT RECORD IN SYSTEM.OUTPUT 4 9S_= [ 6 9TDW [ LINK X6 4 9TYG [ 7 9WD6 SBX 6 FX1 6 9WXQ READAGAIN 9 9XCB MHUNTW 2,FILE,FRB 10 9XX2 NAME 2,FILE,FABSNB 7 9YBL LDX 1 FX1 18 9YW= IF +A1+1(2),E,WORKFILE(1) [ USERNAME IS WORKFILE 12 9_*W AND +A1+2(2),E,WORKFILE+1(1) 12 9_TG AND +A1+3(2),E,WORKFILE+2(1) 5 =2*6 THEN 17 =2SQ THAWWF STHAW1 [ J IF NO FILE/FCB FOR WORKFILE 5 =3#B ELSE 5 =3S2 STHAW1 15 =4?L OPENDIR (GEOERR),GENERAL,ERASING,QUERY 18 =4R= IF REP2,OK [IF OPENED OK, THAW FILE 6 =5=W THEN 5 =5QG STHAW2 9 =6=6 THAW STHAW2 8 =6PQ CLOSETOP 10 =79B MFREE FILE,ENT 16 =7P2 ELSE [ELSE (DUFF OPEN) 21 =88L TESTRPN2 NOFILE,ZOPENFAIL [ALLOW NOFILE SINCE NO HARM DONE 21 =8N= [GEOERR ON OTHERS 'COS EITHER... 20 =97W [CAN'T HAPPEN OR CAN'T COPE 13 =9MG FI [FI 5 ==76 FI 9 ==LQ MFREE FILE,FABSNB 7 =?6B ADX 6 FX1 7 =?L2 EXIT 6 0 4 =#5L [ 4 =#K= [ 8 =*4W [ WW WW W 8 =*JG [ WW WW WW 8 =B46 [ WW WW WWW 8 =BHQ [ WWWW WW 8 =C3B [ WWWWW WW 8 =CH2 [ WW WW WW 8 =D2L [ WW WW WW 8 =DG= [ WW WW WW 4 =D_W [ 4 =FFG [ 5 =F_6 WLDK1 4 =GDQ [ 4 =GYB [ 19 =HD2 [************************************************************ 4 =HXL [ 8 =JC= [ WHATLIST ACTION 4 =JWW [ 19 =KBG [************************************************************ 4 =KW6 [ 4 =L*Q [ 7 =LTB WHILE TRUE 6 =M*2 STEP 12 =MSL AND 3,NZ [ NOT END OF FILE 5 =N#= DO 9 =NRW LDX 0 WGMODE(3) 9 =P?G STO 0 AWORK2(2) 9 =PR6 CALL 7 SCOMPARE 16 =Q=Q IF 0,ZE [ MATCHES SELECTION CRITERIA 6 =QQB THEN 10 =R=2 CALL 7 SOUTPUT 5 =RPL FI 6 =S9= REPEAT 7 =SNW SETREP OK 7 =T8G UPPLUS 1 4 =TN6 [ 4 =W7Q [ 8 =WMB [ WW WW WWWWW 8 =X72 [ WW WW WW WW 8 =XLL [ WW WW WW 8 =Y6= [ WWWW WW 8 =YKW [ WWWWW WWWWW 7 =_5G [ WW WW WW 7 =_K6 [ WW WW WW 8 ?24Q [ WW WW WWWWWWWW 4 ?2JB [ 4 ?342 [ 5 ?3HL WLDK2 4 ?43= [ 4 ?4GW [ 19 ?52G [************************************************************ 4 ?5G6 [ 11 ?5_Q [ STOPLIST AND CHANGELIST ACTION 4 ?6FB [ 19 ?6_2 [************************************************************ 4 ?7DL [ 4 ?7Y= [ 11 ?8CW MHUNTW 2,ADATA,AWHATLIST 15 ?8XG IF MBAS,2,AWLBCH,AWLBURGE [ CH TOUR 5 ?9C6 THEN 4 ?9WQ [ 6 ?=BB [ CH TOUR 4 ?=W2 [ 6 ??*L STEP 8 ??T= WHILE TRUE 8 ?##W STEPAGAIN 13 ?#SG AND 3,NZ [ NOT END OF FILE 5 ?*#6 DO 10 ?*RQ LDX 0 WGMODE(3) 10 ?B?B STO 0 AWORK2(2) 10 ?BR2 CALL 7 SCOMPARE 17 ?C=L IF 0,ZE [ MATCHES SELECTION CRITERIA 7 ?CQ= THEN 10 ?D9W DOWN WLG,1 7 ?DPG ELSE 7 ?F96 STEP 6 ?FNQ FI 6 ?G8B REPEAT 6 ?GN2 REWIND 5 ?H7L FI 4 ?HM= [ 4 ?J6W [ 4 ?JLG [ 11 ?K66 MHUNTW 2,ADATA,AWHATLIST 17 ?KKQ IF EITHER,MBC,2,AWLBCH,AWLBURGE [ NOT CH TOUR 11 ?L5B OR BS,2,AWLBFULL [ FULL 5 ?LK2 THEN 10 ?M4L STOZ AWLCOUNT(2) 10 ?MJ= STOZ AWLCOUNTUN(2) 8 ?N3W WHILE TRUE 7 ?NHG STEP 13 ?P36 AND 3,NZ [ NOT END OF FILE 5 ?PGQ DO 10 ?Q2B LDX 0 WGMODE(3) 10 ?QG2 STO 0 AWORK2(2) 10 ?Q_L CALL 7 SCOMPARE 17 ?RF= IF 0,ZE [ MATCHES SELECTION CRITERIA 7 ?RYW THEN 9 ?SDG STEPAGAIN 4 ?SY6 [ 9 ?TCQ [ BEING IMPLEMENTED ? 4 ?TXB [ 18 ?WC2 IF BS,3,BLFRIMPLEM [ BEING IMPLEMENTED 7 ?WWL THEN 13 ?XB= GEOPACK 5,GSOURCE1-A1(3) 12 ?XTW STO 5 AWORK1(2) 11 ?Y*G CALL 7 SOUTPUT 16 ?YT6 LDN 6 JPDNULL [ INCLUDE UNIT NO. 11 ?_#Q CALL 7 SOUTPACK 15 ?_SB LDN 6 JPDGEOPER [ UNIT NO. 12 #2#2 LDX 5 AWORK1(2) 11 #2RL CALL 7 SOUTPACK 12 #3?= LDX 6 PERIMP(1) 18 #3QW CALL 7 SERROR [ ERROR - BEING IMPLEMENTED 19 #4=G ELSF BS,3,BLFRPARTIMP [ PARTIALLY IMPLEMENTED 7 #4Q6 THEN 11 #59Q CALL 7 SOUTPUT 16 #5PB LDN 6 JPDSKIP [ EXCLUDE UNIT NO. 11 #692 CALL 7 SOUTPACK 12 #6NL LDX 6 PERIMP(1) 18 #78= CALL 7 SERROR [ ERROR - BEING IMPLEMENTED 10 #7MW ELSF TRUE 14 #87G MHUNTW 2,ADATA,AWHATLIST 15 #8M6 AND BS,2,AWLBSL [ STOPLIST 7 #96Q THEN 4 #9LB [ 6 #=62 [ STOPLIST 4 #=KL [ 21 #?5= IF MBAS,3,BLFRMULTI,BLFRSETUP [ MULTIFILE AND SET 21 #?JW AND BC,3,BLFRNLASTEL [ LAST ELEMENT OF MULTIFILE 8 ##4G THEN 13 ##J6 HUNTW 1,FILE,FTAB 17 #*3Q IF 1,NG [ NO FILE/FTAB BLOCK 9 #*HB THEN 21 #B32 SETUPTAB [ SET UP TAB BLOCK FOR LAST ELEMENTS O 20 #BGL [ N.B. TAB SAVED IS KEYS OF ENTRY 14 #C2= MHUNTW 1,FILE,FTAB 8 #CFW FI 13 #C_G LDX 7 ALOGLEN(1) 10 #DF6 ADN 7 2 13 #DYQ ALTLEN 1,7,FILE,FTAB 10 #FDB STEPAGAIN 13 #FY2 MHUNTW 1,FILE,FTAB 10 #GCL LDN 0 2 12 #GX= ADS 0 FTAPP(1) 12 #HBW ADX 1 FTAPP(1) 13 #HWG LDX 0 WGOUTKEY1(3) 11 #JB6 STO 0 A1(1) 13 #JTQ LDX 0 WGOUTKEY2(3) 12 #K*B STO 0 A1+1(1) 12 #KT2 CALL 7 SLISTLOST 12 #L#L CALL 7 SOUTPUT 8 #LS= ELSE 17 #M?W IF BS,3,BLFRSETUP [ SETUP FILE 9 #MRG THEN 21 #N?6 IF BS,3,BLFRMULTI [ ELEMENT OF MULTIFILE 10 #NQQ THEN 14 #P=B CALL 7 SLISTLOST 13 #PQ2 CALL 7 SOUTPUT 10 #Q9L ELSE 14 #QP= CALL 7 SLISTLOST 13 #R8W CALL 7 SOUTPUT 17 #RNG CALL 6 STHAW [ SETUP FILE 9 #S86 FI 17 #SMQ DELETE [ SETUP FILE RECORD 14 #T7B LFRECNUM 7,AWORK2(2) 11 #TM2 SBN 7 1 9 #W6L ELSE 13 #WL= CALL 7 SLISTLOST 13 #X5W CALL 7 SOUTPUT 12 #XKG LDX 2 FX2 14 #Y56 LFRECNUM 7,AWORK2(2) 8 #YJQ FI 15 #_4B CALL 6 STHAW [ MAIN FILE 17 #_J2 DO [ DELETE REST OF ENTRY 10 *23L DELETE 11 *2H= REPEAT CT 7 8 *32W FI 17 *3GG ELSF MBAS,2,AWLBCH,AWLBURGE [ CH TOUR 7 *426 THEN 4 *4FQ [ 9 *4_B [ CH TOUR - FULL OUTPUT 4 *5F2 [ 11 *5YL CALL 7 SOUTPUT 11 *6D= ELSE [ CH TOPR 4 *6XW [ 6 *7CG [ CH TOPR 4 *7X6 [ 11 *8BQ DOWN WLE,1 15 *8WB BRN ZBREAKIN [ BREAKIN 12 *9B2 IF REP2,WRONG 8 *9TL THEN 21 *=*= LDX 0 ACOMMUNE1(2) [ MESSAGE IDENTIFIER FROM WLE 12 *=SW STO 0 AWORK1(2) 12 *?#G CALL 7 SOUTPUT 20 *?S6 MHUNT 1,ADATA,CSTORE [ RESET MESSAGE BLOCK 13 *#?Q NAMETOP 1,GMON,ASET 11 *#RB LDX 2 FX2 13 **?2 BS 2,WBMESSBLK 12 **QL LDX 6 AWORK1(2) 12 *B== CALL 7 SERROR 8 *BPW ELSE 12 *C9G CALL 7 SOUTPUT 8 *CP6 FI 7 *D8Q FI 6 *DNB FI 6 *F82 REPEAT 4 *FML [ 9 *G7= [ END OF :SYSTEM.OUTPUT 4 *GLW [ 11 *H6G MHUNTW 2,ADATA,AWHATLIST 13 *HL6 IF BS,2,AWLBSL [ STOPLIST 11 *J5Q HUNTW 1,FILE,FTAB 13 *JKB AND 1,PZ [ FILE/FTAB SET UP 6 *K52 THEN 9 *KJL DOWN WLF,1 10 *L4= MFREE FILE,FTAB 5 *LHW FI 5 *M3G FI 7 *MH6 SETREP OK 7 *N2Q UPPLUS 1 4 *NGB [ 4 *P22 [ 10 *PFL [ WW WW WWWWWWWW 10 *P_= [ WW WW WW 10 *QDW [ WW WW WW 10 *QYG [ WWWW WWW 10 *RD6 [ WWWWW WW 10 *RXQ [ WW WW WW WW 10 *SCB [ WW WW WW WW 10 *SX2 [ WW WW WWWWWW 4 *TBL [ 4 *TW= [ 5 *W*W WLDK3 4 *WTG [ 4 *X*6 [ 19 *XSQ [************************************************************ 4 *Y#B [ 8 *YS2 [ CALL 'SFILEOUT' 4 *_?L [ 19 *_R= [************************************************************ 4 B2=W [ 4 B2QG [ 8 B3=6 CALL 6 SFILEOUT 5 B3PQ UP 4 B49B [ 4 B4P2 [ 19 B58L [************************************************************ 4 B5N= [ 7 B67W [ BREAKIN LABELS 4 B6MG [ 19 B776 [************************************************************ 4 B7LQ [ 4 B86B [ 13 B8L2 ZABANDON [ OUTPUT FILE FULL 4 B95L [ 12 B9K= ZBREAKIN [ USER BREAKIN 4 B=4W [ 7 B=JG SETREP OPEN 5 B?46 UP 4 B?HQ [ 4 B#3B [ 4 B#H2 [ 19 B*2L [************************************************************ 4 B*G= [ 7 B*_W [ ERROR MESSAGES 4 BBFG [ 19 BB_6 [************************************************************ 4 BCDQ [ 4 BCYB [ 6 BDD2 ZOTHERUSER 8 BDXL SETREP NOTOWNER 7 BFC= UPPLUS 1 4 BFWW [ 4 BGBG [ 19 BGW6 [************************************************************ 4 BH*Q [ 6 BHTB [ GEOERRS 4 BJ*2 [ 19 BJSL [************************************************************ 4 BK#= [ 4 BKRW [ 14 BL?G ZGEOERR [ON OUTPACKING 8 BLR6 CALL 0 (GEOERR) 16 BM=Q ZOPENFAIL [ON OPENING SL'D FILE 9 BMQB GEOERR 1,SL-OPEN 4 BN=2 [ 4 BNPL [ 4 BP9= #END 6 ____ ...073552350001