{{htmlmetatags>metatag-description:(ICL George 3 and George 4 source: BQUERY84)}}
====== BQUERY84 ======
(George Source)
**Macros used:** [[george:macro:BUDGPAR|BUDGPAR]], [[george:macro:BUDGUSE|BUDGUSE]], [[george:macro:CHECKOWNER|CHECKOWNER]], [[george:macro:CJOBLOCK|CJOBLOCK]], [[george:macro:CLOSE|CLOSE]], [[george:macro:COMBRKIN|COMBRKIN]], [[george:macro:COMERR|COMERR]], [[george:macro:COMERRX|COMERRX]], [[george:macro:ENDCOM|ENDCOM]], [[george:macro:GEOERR|GEOERR]], [[george:macro:HUNT|HUNT]], [[george:macro:MENDAREA|MENDAREA]], [[george:macro:MFREE|MFREE]], [[george:macro:MONOUTX|MONOUTX]], [[george:macro:OPEN|OPEN]], [[george:macro:OUTBLOCK|OUTBLOCK]], [[george:macro:OUTNULL|OUTNULL]], [[george:macro:OUTNUM|OUTNUM]], [[george:macro:READDICT|READDICT]], [[george:macro:SEGENTRY|SEGENTRY]], [[george:macro:TESTERR|TESTERR]], [[george:macro:TESTPRIV|TESTPRIV]], [[george:macro:TESTREP|TESTREP]], [[george:macro:TESTREP2|TESTREP2]], [[george:macro:TRACE|TRACE]], [[george:macro:UNIFREE|UNIFREE]], [[george:macro:WRONG|WRONG]]
22FL #LIS K0BQUERY>K0BUDGES>K0ALLGEO>K0COMMAND
22^= #SEG BQUERY1 [M.B.KINGHAM
23DW 8HBQUERY1
23YG SEGENTRY K1BQUERY,QK1BQUERY
24D6 #
24XQ # 1 THE BUDGETQUERY COMMAND ENABLES A USER TO FIND OUT HOW MUCH
25CB # 1 OF A SPECIFIED BUDGET HE OR ANY OF HIS IMMEDIATE INFERIORS
25X2 # 1 HAS AVAILABLE OR WHETHER HE (OR AN IMMEDIATE INFERIOR ) HAS A
26BL # 1 SPECIFIED PRIVILEGE
26W= #
27*W #
27TG XERB7 +ERB7 [PSEUDO-USER
28*6 XEBPNO +EBPNO
28SQ XEBQT +EBQT
29#B XEBQS +EBQS
29S2 XERBOK3 +ERBOK3
2=?L XERB26 +ERB26 [THEUSER MUST BE YOURSELF OR YOUR
2=R= [IMMEDIATE INFERIOR
2?=W #
2?QG MAN 12HMANAGER
2#=6 MGCLASS +GCLASS [MASK FOR CLASSIFICATION BITS
2#PQ MGTOR +GTOR [TRANSIENT BUDGET IDENTIFICATION
2*9B MGPOR +GPOR [PRIVILEGE IDENTIFICATION
2*P2 M2 HUNT 3,JBUDGET,JLINE
2B8L LDX 7 JPATTERN(3) [SELECT BIT PATTERN OF BUDGET TYPE
2BN= ANDX 7 MGCLASS(1)
2C7W TXU 7 MGPOR(1) [IS IT A PRIVILEGE?
2CMG BCC M5
2D76 BUDGUSE JPATTERN(3)
2DLQ TESTREP2 OK,MB785
2F6B LDN 3 0
2FL2 LDN 4 0
2G5L LDN 5 0
2GK= LDN 6 0
2H4W BRN M20
2HJG MB785
2J46 HUNT 2,JBUDGET,JBUDGUSER
2JHQ LDX 5 JRATION(2)
2K3B LDX 6 JALLOWED(2)
2KH2 LDX 4 JCONSUMED(2)
2L2L LDX 3 JCONSUMED+1(2)
2LG= #SKI K6BQUERY>9999-9999
2L^W (
2MFG TRACE 4,BQ M2
2M^6 TRACE 5, RAT
2NDQ TRACE 6, ALL
2NYB )
2PD2 M20
2PXL CLOSE
2QC= LDN 0 16
2QWW OUTBLOCK 0
2RBG OUTNULL
2RW6 OUTNUM 5,0 [RATION
2S*Q OUTNUM 6,0 [ALLOWANCE
2STB LDX 6 XEBQT(1) [SELECT TRANSIENT BUDGET MESSAGE
2T*2 TXU 7 MGTOR(1) [AND TRANSFER CONTROL UNLESS BUDGET
2TSL BCC M204 [IS STABLE
2W#= LDX 6 XEBQS(1)
2WRW # IN MARK 1,AND FOR TRANSIENT BUDGETS IN MARK 2,
2X?G # THE AMOUNT CONSUMED IS SINGLE LENGTH
2XR6 M204 OUTNUM 4,0 [OUTPUT SINGLE LENGTH NO.
2Y=Q M3 MONOUTX 6 [OUTPUT MESSAGE TO MONITORING FILE
2YQB #SKI K6BQUERY>99-99
2^=2 TRACE 6,BQUERY
2^PL BRN QR
329= [
32NW [
338G [
33N6 QK1BQUERY
347Q BUDGPAR BQ,MBREAK,QR
34MB OPEN MBREAK,READ,QUERY
3572 TESTREPN OK,OPENERR
35LL M4 READDICT
366= TESTERR NOUSER,WOES
36KW HUNT 3,FILE,ADICTENT
375G LDX 6 XERB7(1)
37K6 LDX 0 CPSEU(3) [IF THE NAMED USER IS A PSEUDO-USER,HE
384Q BNG 0 WRONG [HAS NO BUDGETS;THERE IS A COMERR
38JB CJOBLOCK 2
3942 LDX 4 JUSER(2)
39HL LDX 5 JUSER+1(2)
3=3= LDX 7 JUSER+2(2)
3=GW LDX 6 XERB26(1)
3?2G TXU 4 CSUPUSER(3)
3?G6 TXU 5 CSUPUSER+1(3) [IF THE CURRENT PROPER USER IS NOT THE
3?^Q TXU 7 CSUPUSER+2(3) [IMMEDIATE SUPERIOR OF THE NAMED USER
3#FB BCC M2
3#^2 TXU 4 CUSER(3) [HE MUST BE THE NAMED USER
3*DL TXU 5 CUSER+1(3)
3*Y= TXU 7 CUSER+2(3) [OTHERWISE HE IS NOT PERMITTED THE
3BCW BCC M2 [BUDGETARY INFORMATION WHICH HE SEEKS
3BXG TXU 4 MAN(1) [UNLESS HE IS MANAGER,
3CC6 TXU 5 MAN+1(1)
3CWQ TXU 7 MAN+2(1)
3DBB BCC M2
3DD5 ...#UNSET FTS1
3DFS ...(
3DHH ... [OR UNLESS HE HAS ALLACC.OR
3DK= ... [INFACC PRIVILEGE
3DL^ ... MFREE FILE,FABSNB [FREE :MASTER'S FABSNB
3DNN ... CHECKOWNER
3DQC ... TESTREP2 OK,M2
3DS6 ...)
3DW2 WRONG SMO FX1
3F*L TXU 6 XERB26
3FT= BCS WOE2
3G#W WOE1 UNIFREE [FREE CPB,CUNI BLOCKS UP TO CPB,CALAS
3GSG WOE2 CLOSE
3H#6 COMERRX 6
3HRQ WOES CLOSE
3J?B QR ENDCOM
3JR2 OPENERR
3K=L TESTREP CLUDGE,OP1
3KQ= GEOERR 1,OPENREP
3L9W OP1
3LPG UNIFREE
3M96 COMERR ERSYSCLUDG,FDIC
3MNQ M5 LDX 7 JPATTERN(3)
3N8B HUNT 2,FILE,ADICTENT
3NN2 TESTPRIV 7,2
3P7L LDX 6 XERBOK3(1)
3PM= BNZ 0 M502 [SET MESSAGE 'OK' OR 'NO' FOR PRIVILEGE
3Q6W M501 LDX 6 XEBPNO(1) ["NO" CAN ALSO BE OUTPUT FOR
3QLG M502 CLOSE [QUANTITATIVE BUDGETS
3R66 BRN M3
3RKQ MBREAK
3S5B COMBRKIN
3SK2 MENDAREA 50,K99BQUERY
3T4L #END
^^^^ ...75570006000100000000