BQUERY84
(George Source)
Macros used: BUDGPAR, BUDGUSE, CHECKOWNER, CJOBLOCK, CLOSE, COMBRKIN, COMERR, COMERRX, ENDCOM, GEOERR, HUNT, MENDAREA, MFREE, MONOUTX, OPEN, OUTBLOCK, OUTNULL, OUTNUM, READDICT, SEGENTRY, TESTERR, TESTPRIV, TESTREP, TESTREP2, TRACE, UNIFREE, WRONG
- BQUERY84.txt
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