Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: XULM

Package: Kernel

Routine: XULM


Information

XULM ;IRMFO-ALB/CJM/SWO/RGG - KERNEL LOCK MANAGER ; 8/25/20 7:35am

Source Information

Source file <XULM.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 8 HOME^%ZIS  (CLOSE,CONT)^%ZISTCP  $$VERSION^%ZOSV  $$FIND^XULMLD  $$GETPARMS^XULMP  $$LOCKS^XULMRPC  ($$ASKYESNO,$$NODE,$$SAMENODE,PAUSE,UPD)^XULMU  ($$ASKAV,$$CHECKAV)^XUS  
List Manager 2 EN^VALM  FULL^VALM1  
RPC Broker 1 ($$CALLRPC,$$CONNECT,$$GETDIV,$$PARAM,$$SETCONTX,$$SETDIV,CLOSE)^XWBM2MC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Kernel 4 XULM LOCK MANAGER  XULMUI  XULMUI1  ^DIC(19  

Entry Points

Name Comments DBIA/ICR reference
MAIN ;Main Program
GETLOCKS(PARMS) ; query each & every node for its lock table
LOGIN(LOGIN,ERROR) ;
ASKAV(LOGIN) ; Ask user for access and verify code, return in LOGIN
LOCKRPC(NODE,IP,PORT,LOGIN,GLOBAL,XULMERR) ;
KILLRPC(IP,PORT,LOGIN,PID,ERROR) ;
ERROR ;
ERROR2 ;
TEST(NODE,IP,SOCK) ;Tests if the port can be opened - waits only 2 seconds.
EXIT ;clean up and exit

External References

Name Field # of Occurrence
HOME^%ZIS LOCKRPC+27, KILLRPC+24
CLOSE^%ZISTCP TEST+8
CONT^%ZISTCP TEST+6
$$VERSION^%ZOSV MAIN+5
EN^VALM MAIN+24
FULL^VALM1 MAIN+27
$$FIND^XULMLD GETLOCKS+55
$$GETPARMS^XULMP MAIN+10
$$LOCKS^XULMRPC GETLOCKS+10
$$ASKYESNO^XULMU GETLOCKS+36, ASKAV+12, TEST+13
$$NODE^XULMU MAIN+14, GETLOCKS+10
$$SAMENODE^XULMU GETLOCKS+7
PAUSE^XULMU MAIN+5, MAIN+11
UPD^XULMU GETLOCKS+32
$$ASKAV^XUS ASKAV+7
$$CHECKAV^XUS ASKAV+9
$$CALLRPC^XWBM2MC LOCKRPC+22, KILLRPC+19
$$CONNECT^XWBM2MC LOCKRPC+9, KILLRPC+8
$$GETDIV^XWBM2MC LOCKRPC+11, KILLRPC+10
$$PARAM^XWBM2MC LOCKRPC+16, LOCKRPC+20, KILLRPC+14, KILLRPC+17
$$SETCONTX^XWBM2MC LOCKRPC+10, KILLRPC+9
$$SETDIV^XWBM2MC LOCKRPC+12, KILLRPC+11
CLOSE^XWBM2MC LOCKRPC+25, KILLRPC+22

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"This application is for Cache or IRIS systems only!"
  • Line Location: MAIN+5
Function Call: WRITE
  • Prompt: "This application has been disabled. Please contact the application manager.",!!
  • Line Location: MAIN+11
Function Call: WRITE
  • Prompt: !!,"Building the display screen...."
  • Line Location: MAIN+19
Function Call: WRITE
  • Prompt: !!,"Compiling the locks..."
  • Line Location: GETLOCKS+4
Routine Call
  • %ZIS
  • Line Location:
    • LOCKRPC+27
    • KILLRPC+24
Routine Call
  • VALM
  • Line Location:
    • MAIN+24

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("EOFF" ASKAV+7
^%ZOSF("EON" ASKAV+7
^DIC(19 - [#19] LOGIN+8
^TMP("XWBM2ME" LOCKRPC+5!
^VA(200 - [#200] LOGIN+10
^XTMP("XULM" MAIN+12, MAIN+13, MAIN+26!, LOCKRPC+18, KILLRPC+4, EXIT+1!
^XUSEC("XULM LOCKS" LOGIN+5

Label References

Name Line Occurrences
$$ASKAV LOGIN+13
$$GETLOCKS MAIN+18
$$LOCKRPC GETLOCKS+21
$$LOGIN MAIN+16
$$TEST LOCKRPC+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT ASKAV+1~, ASKAV+5*, ASKAV+12*
CONNECT GETLOCKS+14~, GETLOCKS+16*, GETLOCKS+21*, GETLOCKS+22, GETLOCKS+36, ERROR2+4*
DA GETLOCKS+29~, GETLOCKS+30*, GETLOCKS+32
DA(1 GETLOCKS+30*
DATA GETLOCKS+29~, GETLOCKS+32
DATA( GETLOCKS+31*
DIVISION LOCKRPC+3~, KILLRPC+3~
DIVISION(1 LOCKRPC+12, KILLRPC+11
DUZ LOGIN+4, LOGIN+5, LOGIN+10
ERRCNT KILLRPC+7~*
ERROR MAIN+1~, MAIN+10, MAIN+14, MAIN+16*, GETLOCKS+14~, GETLOCKS+21, GETLOCKS+36, LOGIN~, LOGIN+1*, LOGIN+4*
, LOGIN+5*, LOGIN+9*, LOGIN+10*, LOGIN+12, KILLRPC~, KILLRPC+5!*, KILLRPC+8*, KILLRPC+9*, KILLRPC+10*, KILLRPC+11*
, KILLRPC+14*, KILLRPC+17*, KILLRPC+19*, KILLRPC+20*, KILLRPC+25, ERROR2+2*
ERROR(1 KILLRPC+14*, KILLRPC+17*, KILLRPC+19*
FILES GETLOCKS+54~, GETLOCKS+55, GETLOCKS+58, GETLOCKS+61*
FILES( GETLOCKS+61
GLOBAL LOCKRPC~, LOCKRPC+15
I GETLOCKS+25~*
IDX MAIN+21~, MAIN+23*, GETLOCKS+1~, GETLOCKS+2*, GETLOCKS+3, GETLOCKS+50, GETLOCKS+52, GETLOCKS+61
IP LOCKRPC~, LOCKRPC+7, LOCKRPC+9, KILLRPC~, KILLRPC+8, TEST~
LOCK GETLOCKS+41~, GETLOCKS+42*, GETLOCKS+44*, GETLOCKS+47, GETLOCKS+49, GETLOCKS+50, GETLOCKS+51, GETLOCKS+52, GETLOCKS+55, GETLOCKS+57
, GETLOCKS+58, GETLOCKS+61
LOCKS MAIN+21~, MAIN+23*, GETLOCKS+1~, GETLOCKS+2*, GETLOCKS+3, GETLOCKS+10, GETLOCKS+17, GETLOCKS+18, GETLOCKS+19, GETLOCKS+21
, GETLOCKS+23, GETLOCKS+24, GETLOCKS+25, GETLOCKS+26, GETLOCKS+43, GETLOCKS+44, GETLOCKS+47, GETLOCKS+49, GETLOCKS+50, GETLOCKS+51
, GETLOCKS+57, GETLOCKS+58
LOGIN MAIN+15~, MAIN+16, MAIN+17, LOGIN~, LOGIN+13, ASKAV~, ASKAV+7*, ASKAV+8, ASKAV+9, LOCKRPC~
, LOCKRPC+9, KILLRPC~, KILLRPC+8, ERROR+2!
NIO MAIN+1~
NODE MAIN+1~, GETLOCKS+1~, GETLOCKS+5*, GETLOCKS+6*, GETLOCKS+7, GETLOCKS+21, GETLOCKS+28, GETLOCKS+30, GETLOCKS+33, GETLOCKS+34
, GETLOCKS+36, GETLOCKS+41~, GETLOCKS+46*, GETLOCKS+47*, GETLOCKS+49, GETLOCKS+50, GETLOCKS+51, GETLOCKS+52, GETLOCKS+57, GETLOCKS+58
, GETLOCKS+61, LOCKRPC~, LOCKRPC+7, TEST~, TEST+11, TEST+14
OK ASKAV+1~, ASKAV+3*, ASKAV+5, ASKAV+9*, ASKAV+10, ASKAV+14, TEST+4~, TEST+7*, TEST+10, TEST+13*
, TEST+14, TEST+15
OPTION LOGIN+3~, LOGIN+8*, LOGIN+9, LOGIN+10
OWNER GETLOCKS+41~, GETLOCKS+49*, GETLOCKS+50
PARMS GETLOCKS~
PARMS("LOCK I NDICES" , GETLOCKS+2
PARMS("LOCKS" GETLOCKS+2
PARMS("LOGIN" GETLOCKS+21, ERROR+2!
PARMS("NODE" TEST+14!
PARMS("NODES" GETLOCKS+6, GETLOCKS+21, GETLOCKS+30, GETLOCKS+33*, GETLOCKS+34!
PARMS("REPORT ING NODES" , GETLOCKS+3!, GETLOCKS+10*, GETLOCKS+28, GETLOCKS+35*, GETLOCKS+36
PID GETLOCKS+41~, GETLOCKS+51*, GETLOCKS+52, KILLRPC~, KILLRPC+13, KILLRPC+14, KILLRPC+19
POP TEST+4~, TEST+7
PORT LOCKRPC~, LOCKRPC+7, LOCKRPC+9, KILLRPC~, KILLRPC+8
QUIT GETLOCKS+1~, GETLOCKS+5*, GETLOCKS+6, GETLOCKS+36*, GETLOCKS+40, GETLOCKS+62
RESULT MAIN+1~
RPTNODE GETLOCKS+14~, GETLOCKS+26*, GETLOCKS+27, GETLOCKS+28, GETLOCKS+31, GETLOCKS+33, GETLOCKS+35
SOCK TEST~
TEMPLATE GETLOCKS+54~, GETLOCKS+55*, GETLOCKS+56, GETLOCKS+57
TMP LOCKRPC+3~, KILLRPC+3~
TMP( LOCKRPC+15*, LOCKRPC+16, LOCKRPC+19*, LOCKRPC+20, KILLRPC+13*, KILLRPC+14, KILLRPC+16*, KILLRPC+17
TO TEST+4~, TEST+5*
VALMIOXY MAIN+1~
VALMSGR MAIN+1~
VALMWD MAIN+1~
VARS GETLOCKS+54~, GETLOCKS+55, GETLOCKS+58
WHERETO MAIN+1~
XUENTRY MAIN+21~
XUF ASKAV+1~, ASKAV+3*
XULMERR LOCKRPC~, LOCKRPC+4!*, LOCKRPC+7*, LOCKRPC+9*, LOCKRPC+10*, LOCKRPC+11*, LOCKRPC+12*, LOCKRPC+14*, LOCKRPC+23*, LOCKRPC+28
XULMEXIT MAIN+21~, MAIN+22*
XUPARMS MAIN+1~, MAIN+10, MAIN+18
XUPARMS("LOCK INDICES" , MAIN+13*, MAIN+23
XUPARMS("LOCKS" MAIN+12*, MAIN+23
XUPARMS("LOGIN" MAIN+17*, ERROR+2!
XUPARMS("NODES" MAIN+14
XUPARMS("ON?" MAIN+11
XURESULT LOCKRPC+3~, LOCKRPC+18*, LOCKRPC+19, KILLRPC+3~, KILLRPC+4*, KILLRPC+16, KILLRPC+17, KILLRPC+19
XUSTMP ASKAV+1~
XUSTMP(51 ASKAV+4*
XUSTMP(52 ASKAV+4*
XUTOPIC MAIN+21~
XWBCRLFL MAIN+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All