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