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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: XWBTCPMT

Package: RPC Broker

Routine: XWBTCPMT


Information

XWBTCPMT ;ISF/RWF - Routine to test a connection ;10/07/09 16:37

Source Information

Source file <XWBTCPMT.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 7 (,HOME)^%ZIS  ^%ZISC  (CALL,CLOSE)^%ZISTCP  ($$EC,GETPEER,SHARELIC)^%ZOSV  $$ADDRESS^XLFNSLK  $$DTIME^XUP  COUNT^XUSCNT  
RPC Broker 1 ($$NEWJOB,INIT,SETTIME)^XWBTCPM  

Entry Points

Name Comments DBIA/ICR reference
ERR ;
CHECK ;Check server setup
EXIT ;Close and Exit
HOLD(MJ) ;Show that a new job is allowed.
CALL ;Interactive
TEST(IP,PORT,TALK) ;

External References

Name Field # of Occurrence
^%ZIS CHECK+10
HOME^%ZIS CALL+2, CHECK+4
^%ZISC CHECK+15
CALL^%ZISTCP TEST+6
CLOSE^%ZISTCP EXIT+1, ERR+1
$$EC^%ZOSV ERR+3
GETPEER^%ZOSV CHECK+17
SHARELIC^%ZOSV CHECK+16
$$ADDRESS^XLFNSLK TEST+3
$$DTIME^XUP CALL+3
COUNT^XUSCNT CHECK+18
$$NEWJOB^XWBTCPM CHECK+22
INIT^XWBTCPM CHECK+6
SETTIME^XWBTCPM CHECK+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Interactive Broker Test"
  • Line Location: CALL+4
Function Call: WRITE
  • Prompt: !,$S(STAT>0:"Success, response: "_$P(STAT,U,2),1:"Failed: "_$P(STAT,U,2,9))
  • Line Location: CALL+11
Function Call: WRITE
  • Prompt: "[XWB]10304"_$C(10)_"TCPConnect5001010.6.17.95f00010f0024ISF-FORTW.vha.med.va.govf"_$C(4),@IOF
  • Line Location: TEST+12
Function Call: READ
  • Timeout: 10
  • Variable: RES
  • Line Location: TEST+13
Function Call: WRITE
  • Prompt: "[XWB]11302"_$C(1)_"0"_$C(16)_"XUS SIGNON SETUP54f"_$C(4),@IOF
  • Line Location: TEST+15
Function Call: WRITE
  • Prompt: "[XWB]10304"_$C(5)_"#BYE#"_$C(4),@IOF
  • Line Location: TEST+18
Function Call: READ
  • Timeout: 3
  • Variable: RES3
  • Line Location: TEST+19
Function Call: WRITE
  • Prompt: !,"This will check for some of the errors that can prevent the Broker"
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: !,"from getting started.",!
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !,"Debugging is set to ",$S(XWBDEBUG=1:"On",XWBDEBUG=2:"Verbose",XWBDEBUG=3:"Very Verbose",1:"Off")
  • Line Location: CHECK+7
Function Call: WRITE
  • Prompt: !,"Broker activity timeout is set to ",XWBTIME
  • Line Location: CHECK+9
Function Call: WRITE
  • Prompt: !,"The NULL device is not setup correctly."
  • Line Location: CHECK+11
Function Call: WRITE
  • Prompt: !,"Checking can Write to null device"
  • Line Location: CHECK+13
Function Call: WRITE
  • Prompt: !,"TEST",!
  • Line Location: CHECK+14
Function Call: WRITE
  • Prompt: !,"The NULL device is OK."
  • Line Location: CHECK+15
Function Call: WRITE
  • Prompt: !,"The routine %ZOSV is missing the entry point 'SHARELIC'."
  • Line Location: CHECK+16
Function Call: WRITE
  • Prompt: !,"The routine %ZOSV is missing the entry point 'GETPEER'."
  • Line Location: CHECK+17
Function Call: WRITE
  • Prompt: !,"The routine XUSCNT is missing on a GT.M system."
  • Line Location: CHECK+18
Function Call: WRITE
  • Prompt: !,"Checking if new JOB's can start."
  • Line Location: CHECK+19
Function Call: WRITE
  • Prompt: !,"Doesn't look like a new JOB could start!",!
  • Line Location: CHECK+21
Function Call: WRITE
  • Prompt: !,"Done with the checks.",!
  • Line Location: CHECK+24
Routine Call
  • %ZIS
  • Line Location:
    • CALL+2
    • CHECK+4
Routine Call
  • %ZIS
  • Line Location:
    • CHECK+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("OS" TEST+2
^TMP("XWB" CHECK+20*, CHECK+21, CHECK+25!, HOLD+1*

Label References

Name Line Occurrences
$$TEST CALL+9
EXIT TEST+13, TEST+19

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS CHECK+10*
DTIME CALL+3*, CALL+5, CALL+7
IO TEST+9, CHECK+14, CHECK+15
IOF TEST+12, TEST+15, TEST+18
>> IOP CHECK+10*
IP CALL+1~, CALL+5*, CALL+6, CALL+9, TEST~, TEST+3*, TEST+4, TEST+6
MJ HOLD~, HOLD+1
NEWJOB CHECK+1~, CHECK+22*, CHECK+23
OS TEST+1~, TEST+2*, TEST+5, TEST+7, TEST+14, TEST+17
>> POP TEST+8, CHECK+11, CHECK+12
PORT CALL+1~, CALL+7*, CALL+8, CALL+9, TEST~, TEST+6
RES TEST+1~, TEST+13*, TEST+19*, TEST+20*, EXIT+2
RES2 TEST+1~, TEST+16*
RES3 TEST+1~, TEST+19*
STAT CALL+1~, CALL+9*, CALL+11
T1 TEST+1~, TEST+20
T2 TEST+1~, TEST+20
T3 TEST+1~, TEST+20
T4 TEST+1~, TEST+20
TALK TEST~
U CALL+3*, CALL+11, TEST+20
XPARSYS CHECK+1~
XWBDEBUG CHECK+1~, CHECK+7
XWBOS CHECK+1~
XWBT CHECK+1~
XWBT("PCNT" CHECK+18
XWBTIME CHECK+1~, CHECK+9
XWBVER CHECK+1~, CHECK+5*
XWNRBUF CHECK+1~

Marked Items

Name Field # of Occurrence
$T(COUNT^XUSCNT CHECK+18
$T(GETPEER^%ZOSV CHECK+17
$T(SHARELIC^%ZOSV CHECK+16
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All