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