14 22FL SEG LIBQUERY,,M.B.KINGHAM,LIBRARY 20 22_= # THIS SEGMENTS DEALS WITH TAPES SUSPECTED OF BEING IN 15 23DW # QUERY STATUS FOR THE FIRST TIME 18 23YG # K1 IS THE ENTRY FROM LIBLOAD: SYSTEM.DOCUMENT=LEVEL 2; 21 24D6 # SYSTEM.SERIAL=LEVEL 1;DIRECTORY =LEVEL 0, NO RECORD FOR TAPE IN 21 24XQ # SYSTEM.DOCUMENT, FLIB/FMAGH HOLDS HDDR LABEL. S.S POSITIONED AFTER 21 25CB # RECORD.FILE/ENT HOLDS DIRECTORY ENTRY. CA5 HOLDS GEORGE & GEOGRA 10 25X2 POOLT 12HPOOL TAPE 9 26BL QUER #400000 9 26W= XDUMP 12HDUMPER 7 27*W # UNIT NOS. 21 27TG # K2 IS THE ENTRY FROM RENAMEDIR WHICH HAS ALREADY CHECKED FOR HDDR 21 28*6 # SAYING POOL TAPE. FILES OPEN AS FOR K1,EXCEPT A RECORD DOES EXIST 7 28SQ # IN SYS.DOC 4 29#B # 12 29S2 SEGENTRY K1LIBQUERY,QK1LIBQ 12 2=?L SEGENTRY K2LIBQUERY,QK2LIBQ 4 2=R= # 4 2?=W # 5 2?QG QK1LIBQ 17 2#=6 LDN 7 0 [ENTRY FROM LIBLOAD 18 2#PQ [SYSTEM.DOCUMENT=LEVEL 2 18 2*9B [SYSTEM.SERIAL =LEVEL 1 18 2*P2 [DIRECTORY =LEVEL 0 10 2B8L HUNT 3,FILE,ENT 8 2BN= BPZ 3 START 7 2C7W READAGAIN 9 2CMG BRN START1 5 2D76 QK2LIBQ 7 2DLQ LDN 7 1 8 2F6B READAGAIN 2 10 2FL2 HUNT 3,FILE,FRB 10 2G5L NAME 3,FLIB,FMAGH 5 2GK= START 8 2H4W READAGAIN 1 5 2HJG START1 10 2J46 HUNT 3,FILE,FRB 9 2JHQ LDX 6 A1+1(3) 17 2K3B LDX 5 A1+4(3) [USER NAME OF OWNER 9 2KH2 LDX 4 A1+3(3) 9 2L2L LDX 3 A1+2(3) 9 2LG= TXU 3 XDUMP(1) 10 2L_W TXU 4 XDUMP+1(1) 10 2MFG TXU 5 XDUMP+2(1) 17 2M_6 BCC NOPCH [BRANCH IF DUMP TAPE 10 2NDQ HUNT 3,FLIB,FMAGH 9 2NYB LDX 4 A1+4(3) 9 2PD2 LDX 5 A1+5(3) 9 2PXL LDX 3 A1+3(3) 9 2QC= TXU 3 POOLT(1) 10 2QWW TXU 4 POOLT+1(1) 10 2RBG TXU 5 POOLT+2(1) 10 2RL# ... SEGENTRY K40LIBQUERY 8 2RW6 BCC POOL 18 2S3# ... BCS NOPCH [ENSURE 'C' CLEAR WNEN 19 2S8G ...# [BCC NULLED BY QUERYPOOL ON 5 2S*Q NOPCH 7 2STB CONSERNO 6 10 2T*2 HUNT 3,FLIB,FTSN 12 2TSL OUTPARAM A1(3),A1+1,FLIB,FTSN 11 2W#= SETNCORE 10,3,FILE,FABSNB 8 2WRW LDN 0 10 9 2X?G STO 0 HDREC(3) 9 2XR6 STOZ A1+1(3) 9 2Y=Q STOZ A1+2(3) 9 2YQB STOZ A1+3(3) 9 2_=2 STOZ A1+9(3) 7 2_PL LDN 0 1 9 329= STO 0 EXEC1(2) 7 32NW NGN 0 1 9 338G STO 0 EXEC2(2) 20 33N6 DOWN CONSERNO,2 [CONVERT NAME,REEL,FGN OROM FMAGH 9 347Q BRN XBRKIN 10 34MB HUNT 3,AONBS,GTN 13 3572 OUTPARAM A1+4(3),A1+5,AONBS,GTN 10 35LL HUNT 3,AONBS,GTN 13 366= OUTPARAM A1+8(3),A1+9,AONBS,GTN 9 36KW MFREE AONBS,GTN 10 375G HUNT 3,FILE,FRB 9 37K6 LDX 0 A1+2(3) 9 384Q BZE 0 POMESS 8 38JB LDN 3 12 11 3942 OUTPARAM 3,A1+2,FILE,FRB 10 39HL HUNT 1,FILE,ENT 10 3=3= HUNT 3,FILE,FABSNB 9 3=GW LDN 4 ELOC1(1) 9 3?2G LDN 5 A1+4(3) 7 3?G6 MOVE 4 3 9 3?_Q LDX 0 EREEL(1) 9 3#FB STO 0 A1+7(3) 9 3#_2 LDX 0 EGEN(1) 8 3*DL BNZ 0 T2 8 3*Y= LDCT 0 #100 9 3BCW T2 STO 0 A1+8(3) 7 3BXG LDN 0 1 9 3CC6 STO 0 EXEC1(2) 7 3CWQ NGN 0 1 9 3DBB STO 0 EXEC2(2) 10 3DW2 DOWN CONSERNO,3 9 3F*L BRN XBRKIN 10 3FT= HUNT 3,AONBS,GTN 13 3G#W OUTPARAM A1+4(3),A1+5,AONBS,GTN 10 3GSG HUNT 3,AONBS,GTN 13 3H#6 OUTPARAM A1+8(3),A1+9,AONBS,GTN 9 3HRQ MFREE AONBS,GTN 8 3J?B MTINFORM JQSEC 15 3JR2 CLOSETOP [DIRECTORY 9 3K=L MFREE FILE,ENT 5 3KQ= SBOTH 10 3L9W MFREE FILE,FABSNB 10 3LPG HUNT 3,FILE,FRB 10 3M96 NAME 3,FILE,FWB 9 3MNQ LDX 0 QUER(1) 9 3N8B ORS 0 A1+5(3) 7 3NN2 REWRITE 9 3P7L MFREE FILE,FWB 8 3PM= BNZ 7 TENT 7 3Q6W CLOSETOP 7 3QLG CLOSETOP 7 3R66 LDN 0 3 15 3RKQ STO 0 ACOMMUNE2(2) [QUERY REPLY 13 3S5B STO 6 ACOMMUNE1(2) [TSN 21 3SK2 DOWN TAPERING,2 [WAKE UP ACTIVITIES WAITING FOR TAPE 10 3T4L UNLOAD ,,,UNL,NSD 7 3TJ= SUICIDE 4 3W3W TENT 5 3WHG UP 5 3X36 POMESS 9 3XGQ MTINFORM JQPOOL 8 3Y2B BRN SBOTH 10 3Y=8 ... SEGENTRY K41LIBQUERY 4 3YG2 POOL 10 3Y_L HUNT 3,FILE,FRB 9 3_F= LDX 0 QUER(1) 9 3_YW ORS 0 A1+5(3) 10 42DG NAME 3,FILE,FWB 7 42Y6 REWRITE 1 9 43CQ MFREE FILE,FWB 7 43XB CLOSETOP 7 44C2 CLOSETOP 4 44WL TA 7 45B= CLOSETOP 10 45TW LONGSET #57,WTSTYLE,6 7 46*G LDN 0 3 10 46T6 STO 0 ACOMMUNE2(2) 10 47#Q STO 6 ACOMMUNE1(2) 10 47SB DOWN TAPERING,2 9 48#2 LONGSTOP XBRKIN 12 48RL OPENSYS XBRKIN,SERIAL,GENERAL 21 49?= SSEARCH RET,6 [LOOK FOR ANY ENTRY IN :SYSTEM.SERIAL 8 49QW LDX 0 2(3) 8 4==G BZE 0 RET 8 4=Q6 LDX 0 5(3) 8 4?9Q ANDN 0 #7777 8 4?PB BNZ 0 TA 7 4#92 READAGAIN 13 4#NL OPENDIR XBRKIN,GENERAL,ERASING 10 4*8= HUNT 3,FILE,ENT 9 4*MW LDX 4 ECOPS(3) 8 4B7G ANDN 4 #7777 17 4BM6 ADX 4 ENUSE(3) [NO. OF TRAP RECORDS 15 4C6Q ADN 4 1 [ENTRY ITSELF 9 4CLB MFREE FILE,ENT 8 4D62 BRN TB1 4 4DKL TB 6 4F5= STEP 4 4FJW TB1 6 4G4G DELETE 8 4GJ6 BCT 4 TB 7 4H3Q CLOSETOP 11 4HHB SETNCORE 4,3,FILE,FABSNB 7 4J32 LDN 0 4 8 4JGL STO 0 A1(3) 8 4K2= ADN 3 A1+1 10 4KFW HUNT 2,FILE,FRB 8 4K_G ADN 2 A1+2 7 4LF6 MOVE 2 3 8 4LYQ STOZ 0(2) 8 4MDB STOZ 1(2) 8 4MY2 STOZ 2(2) 8 4NCL STOZ 3(2) 8 4NX= SBN 2 A1+2 10 4PBW NAME 2,FILE,FWB 8 4PWG OPENBUDO NUG 7 4QB6 NGN 5 1 10 4QTQ BUDGINCR GSPACEMT,5 7 4R*B CLOSBUDG 7 4RT2 REWRITE 9 4S#L MFREE FILE,FWB 7 4SS= RET CLOSETOP 10 4T?W CONSERNO 6,ACOMMUNE1 13 4TRG OUTPARAM ACOMMUNE1(2),ACOMMUNE2 9 4W?6 ... MTINFORM GRET 13 4WQQ OPENSYS XBRKIN,DOCUMENT,GENERAL 7 4X=B LDN 0 2 10 4XQ2 STO 0 ACOMMUNE1(2) 5 4Y9L UP 5 4YP= XBRKIN 9 4_8W GEOERR 1,BREAKIN 5 4_NG WTSTYLE 9 5286 GEOERR 1,WTSTYLE 4 52MQ NUG 9 537B GEOERR 1,NOUSER 11 53M2 MENDAREA 50,K99LIBQUERY 4 546L #END 8 ____ ...37675516000400000000