XUSBSE1 ;ISF/JLI,ISD/HGW - MODIFICATIONS FOR BSE ;03/24/2020
Source file <XUSBSE1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SETVISIT(RES) | ; RPC. XUS SET VISITOR - ICR #5501
|
|
GETVISIT(RES,TOKEN) | ; RPC. XUS GET VISITOR - ICR #5532
|
|
MDWS(XWBUSRNM) | ; Intrinsic. Old CAPRI code, currently used by MDWS: Disable with system parameter XU522.
; Return 1 if a valid user, else 0. |
|
CHKUSER(INPUTSTR) | ; Extrinsic. Determines if a BSE sign-on is valid - called from XUSRB
; INPUTSTR - input - String of characters from client ; return value - 1 if a valid user and application, else 0 ; ZEXCEPT: DTIME - Kernel exemption |
|
BSEUSER(ENTRY,TOKEN,STR) | ; Intrinsic. Returns internal entry number for authenticated user
; ENTRY - input - internal entry number in REMOTE APPLICATION file ; TOKEN - input - token from authenticating site ; STR - input - remainder of input string (station #^TCP/IP port for station-based authentication) ; returns - IEN for authenticated user, or 0 if not authenticated ; ZEXCEPT: XWBSEC - Kernel exemption, contains error message returned to GUI application |
|
XWB(SERVER,PORT,TOKEN) | ; Special Broker service
|
|
M2M(SERVER,PORT,TOKEN) | ; M2M Broker
|
|
M2MEXIT | ;
|
|
HOME(TOKEN,RAD,BSE) | ; Call home station for token.
; input TOKEN - token to identify user to authenticating server ; input RAD - Zero node of application data from REMOTE APPLICATION file (#8994.5) ; input BSE - Station #^TCP/IP port ; returns - string of demographic characteristics or "-1^error message" |
|
IPFLOC(STN) | ;Get the address from the station number from HL LOGICAL LINK file (#870)
; input STN - station number ; returns - IP address or null |
|
SITESVC(STN) | ;Get IP from the stn# from VISTASITESERVICE
; input STN - station number ; returns - IP address or null |
|
WEBADDRS(STNNUM) | ;
|
|
SETUP(XUDEMOG,XUCONTXT) | ; Setup user as visitor, add context option
; input XUDEMOG - string of demographic characteristics ; input XUCONTXT - context option to be given to user ; return value = internal entry number for user, or 0 |
|
SETCNTXT(XOPT) | ;
|
|
STNTEST | ; tests station#-to-IP conversion (IPFLOC,WEBADDRS) used by HOME station#-based callback
|
|
LOGERR(XUSETXT) | ; log an error in error trap for failed login attempts ; p595
; XUSETXT is the error subject line $ZE ; The function returns 0 if the error was screened, and 1 if an error was trapped |
|
BSETOKEN(RET,XPHRASE) | ; RPC. XUS BSE TOKEN - IA #6695
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
RPC Name | Call Tags |
---|---|
XUS SET VISITOR | SETVISIT |
XUS GET VISITOR | GETVISIT |
XUS BSE TOKEN | BSETOKEN |