Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: XWBTCPMT

Package: RPC Broker

Routine: XWBTCPMT


Information

XWBTCPMT ;ISF/RWF - Routine to test a connection ;12/02/14 08:48

Source Information

Source file <XWBTCPMT.m>

Entry Points

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

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)_"TCPConnect50010127.0.0.1f00010f0024ISF-FORTW.vha.domain.extf"_$C(4),@IOF
  • Line Location: TEST+12
Function Call: READ
  • Variable: RES
  • Timeout: 10
  • 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
  • Variable: RES3
  • Timeout: 3
  • Line Location: TEST+19
Function Call: WRITE
  • Prompt: !,"This will check for some of the errors that can"
  • Line Location: CHECK+2
Function Call: WRITE
  • Prompt: !,"prevent the Broker 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
Info |  Source |  Entry Points |  Interaction Calls