{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: LIBQUERY)}}
====== LIBQUERY ======
(George Source)
**Macros used:** [[george:macro:BUDGINCR|BUDGINCR]], [[george:macro:CLOSBUDG|CLOSBUDG]], [[george:macro:CLOSETOP|CLOSETOP]], [[george:macro:CONSERNO|CONSERNO]], [[george:macro:DELETE|DELETE]], [[george:macro:DOWN|DOWN]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT|HUNT]], [[george:macro:LONGSET|LONGSET]], [[george:macro:LONGSTOP|LONGSTOP]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MTINFORM|MTINFORM]], [[george:macro:NAME|NAME]], [[george:macro:OPENBUDO|OPENBUDO]], [[george:macro:OPENDIR|OPENDIR]], [[george:macro:OPENSYS|OPENSYS]], [[george:macro:OUTPARAM|OUTPARAM]], [[george:macro:READAGAIN|READAGAIN]], [[george:macro:REWRITE|REWRITE]], [[george:macro:SEG|SEG]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:SETNCORE|SETNCORE]], [[george:macro:SSEARCH|SSEARCH]], [[george:macro:STEP|STEP]], [[george:macro:SUICIDE|SUICIDE]], [[george:macro:UNLOAD|UNLOAD]], [[george:macro:UP|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