Routine: BGUTCPH

Information

BGUTCPH ; IHS/OIT/MJL - Service TCP Messages ; [ 04/14/2008 4:48 PM ]

Source Information

Source file <BGUTCPH.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Kernel	7	^%ZIS CALL^%ZISTCP (CLOSE,USE)^%ZISUTL ($$EC,$$LGR)^%ZOSV (,$$NEWERR)^%ZTER $$NOW^XLFDT LOGOUT^XUSRB
GUI Generic Tools	2	$$LOG^BGUGUTL ^BGUTRACE
VA Fileman	1	DT^DICRW

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
GUI Generic Tools	1	BGUTCP

Entry Points

Name	Comments	DBIA/ICR reference
PGFTR	;
WEB	;
EN(BGUIP,BGUSKT)	; EP-- MAIN entry point (usually jobbed) ; params: BGUIP := address of client requiring connection ; BGUSKT := client socket to call
IP	;
PGHDR	;
ETRAP	; -- on trapped error, send error info to client
TCP	; -- TCP PROCESSING LOOP
WRITE(BGUX)	;
INIT	;
SNDERR	;send error information
RESULT	; ; -- write returned data (in BGUDATA) to client ; BGUTYPE = ; 1 -- single value ; 2 -- table delimited by RS ; 3 -- word processing ; 4 -- global array type ; 5 -- raw buffer string
OLDETRAP	; -- on trapped error, send error info to client
LOGOUT	;
MAIN	;
RESTART	;IF ERROR OCCURRED CAPTURE ERROR AND COME BACK TO HERE

External References

Name	Field # of Occurrence
^%ZIS	IP+24
CALL^%ZISTCP	IP+16
CLOSE^%ZISUTL	RESTART+11
USE^%ZISUTL	RESTART+11
$$EC^%ZOSV	ETRAP+5
$$LGR^%ZOSV	ETRAP+5
^%ZTER	ETRAP+7
$$NEWERR^%ZTER	RESTART+1, RESTART+6
$$LOG^BGUGUTL	MAIN+23
^BGUTRACE	MAIN+19
DT^DICRW	RESTART+3
$$NOW^XLFDT	LOGOUT+2
LOGOUT^XUSRB	RESTART+8, ETRAP+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: /SOCKET(XWBTIP,XWBTSKT) Line Location: IP+12
Function Call: WRITE	Prompt: "#BYE#",$C(4,13,10) Line Location: TCP+12
Function Call: WRITE	Prompt: "#BYE#",$C(4,13,10) Line Location: TCP+13
Function Call: WRITE	Prompt: BGUX,BGURS Line Location: WRITE+1
Function Call: WRITE	Prompt: BGUX1 Line Location: WRITE+2
Function Call: WRITE	Prompt: "<HTML><HEAD>" Line Location: PGHDR+1
Function Call: WRITE	Prompt: "<SCRIPT LANGUAGE=""VBScript"">" Line Location: PGHDR+2
Function Call: WRITE	Prompt: "<!--",! Line Location: PGHDR+3
Function Call: WRITE	Prompt: "Sub Window_OnLoad()",! Line Location: PGHDR+4
Function Call: WRITE	Prompt: "document.frmInfo.submit",! Line Location: PGHDR+5
Function Call: WRITE	Prompt: "End Sub",! Line Location: PGHDR+6
Function Call: WRITE	Prompt: "-->" Line Location: PGHDR+7
Function Call: WRITE	Prompt: "</SCRIPT>" Line Location: PGHDR+8
Function Call: WRITE	Prompt: "<TITLE>LOGIN RESULTS</TITLE></HEAD>" Line Location: PGHDR+9
Function Call: WRITE	Prompt: ">" Line Location: PGHDR+10
Function Call: WRITE	Prompt: "<FORM NAME=""frmInfo"" METHOD=""POST"" ACTION="""_BGUASP_""">" Line Location: PGHDR+11
Function Call: WRITE	Prompt: "</FORM></BODY></HTML>" Line Location: PGFTR+1
Function Call: WRITE	Prompt: "-1",$C(30),"SERVER ERROR=",$$EC^%ZOSV_" LAST REF="_$$LGR^%ZOSV,$C(4,13,10) Line Location: OLDETRAP+1
Function Call: WRITE	Prompt: XWBERR,! Line Location: OLDETRAP+19
Function Call: WRITE	Prompt: XWBERR,! Line Location: OLDETRAP+21
Function Call: WRITE	Prompt: XWBERR,! Line Location: OLDETRAP+23
Function Call: WRITE	Prompt: $C($L(X))_X Line Location: SNDERR+4
Function Call: WRITE	Prompt: ! Condition for execution: ($X+$L(X)+1)>512 Line Location: SNDERR+4
Function Call: WRITE	Prompt: $C($L(X))_X Line Location: SNDERR+6
Function Call: WRITE	Prompt: ! Condition for execution: ($X+$L(X)+1)>512 Line Location: SNDERR+6
Routine Call	%ZIS Line Location: IP+24

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	IP+4, ETRAP+6
^%ZOSF("TRAP"	RESTART+2, RESTART+7
^BGUSEC - [#90062.1]	LOGOUT+2, LOGOUT+4, LOGOUT+5, LOGOUT+6, LOGOUT+7*
^BGUSEC("CUR"	LOGOUT+2!
^BGUSP(1	INIT+1, MAIN+19, MAIN+23, MAIN+24, LOGOUT+3
^XWB(8994 - [#8994]	MAIN+4, MAIN+8, MAIN+9

Label References

Name	Line Occurrences
@(	MAIN+18
INIT	IP+27, WEB+3
LOGOUT	TCP+12
MAIN	TCP+17, WEB+3
PGFTR	MAIN+7, MAIN+25
PGHDR	MAIN+7, MAIN+25
RESTART	ETRAP+16
RESULT	MAIN+7, MAIN+25
SNDERR	OLDETRAP+21, ETRAP+11, ETRAP+13
TCP	RESTART+4
WRITE	RESULT+9, RESULT+11, RESULT+13, RESULT+14, ETRAP+11, ETRAP+13

Naked Globals

Name	Field # of Occurrence
^("OS"	IP+4, ETRAP+6
^(0	LOGOUT+5*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BGUAPP	MAIN+23*
>> BGUASP	PGHDR+11
>> BGUBGRND	PGHDR+10
>> BGUCK	RESULT+13*, RESULT+14
>> BGUCKL	RESULT+13*, RESULT+14
BGUDATA	TCP+1~, MAIN+3!, RESULT+9, RESULT+12, RESULT+13, RESULT+15
BGUDATA(	RESULT+11
BGUDATA(1	MAIN+6*
BGUDATA(2	MAIN+6*
>> BGUDTIME	TCP+6, TCP+7, TCP+11, INIT+1*
>> BGUERR	WEB+1*
>> BGUETH	MAIN+23*
BGUGUI	MAIN+3~, MAIN+18*
>> BGUHTMLS	WEB+2*, WRITE+2
>> BGUI	RESULT+13, RESULT+14
BGUIP	EN~, IP+1, IP+15, WEB+1*, MAIN+23, RESULT+16
>> BGUITYPE	MAIN+8*, MAIN+15
BGUMSG	MAIN+13*, MAIN+19, MAIN+23, MAIN+24, MAIN+26!
BGUMSM	IP+5~*, TCP+1, TCP+3, RESULT+16
>> BGUPRM	MAIN+23*
>> BGURS	RESULT+11*, WRITE+1
>> BGUSEC	MAIN+23*, LOGOUT+1, LOGOUT+2, LOGOUT+4, LOGOUT+5, LOGOUT+6, LOGOUT+7
BGUSKT	EN~, IP+1*, IP+15, MAIN+23
>> BGUSTAT(	MAIN+24*, LOGOUT+6
BGUTBUF	TCP+1~, TCP+2, TCP+6, TCP+7, TCP+10, TCP+11, TCP+12, TCP+13, MAIN+4, MAIN+6 , MAIN+13, MAIN+14, MAIN+16, MAIN+17*
BGUTLEN	TCP+1~, TCP+9*, TCP+10, TCP+11
BGUTLEN1	TCP+1~, TCP+6*, TCP+9
BGUTLEN2	TCP+1~, TCP+7*, TCP+9
>> BGUTRACE	MAIN+19
BGUTREF	TCP+1~, MAIN+4, MAIN+5, MAIN+8, MAIN+9, MAIN+10, MAIN+11
BGUTRTN	TCP+1~, MAIN+10, MAIN+15, MAIN+16, MAIN+18
BGUTYPE	TCP+1~, MAIN+6, MAIN+11, RESULT+9, RESULT+10, RESULT+11
BGUWEB	TCP+1~, WEB+1, INIT+2*, MAIN+7, MAIN+25, WRITE+1
BGUX	WRITE~, WRITE+1, WRITE+2
>> BGUX1	WRITE+2*
DIQUIET	RESTART+3, MAIN+3~, MAIN+18
DUZ	RESTART+8, TCP+13, MAIN+23, ETRAP+8, LOGOUT+2
>> I	MAIN+16, RESULT+11, LOGOUT+6*, LOGOUT+7
IO	IP+16, IP+23*, IP+24
IO(0	IP+16, IP+23
>> IOP	IP+24*
IOST	IP+23*
IOST(0	IP+23*
>> IOT	IP+23*
>> POP	IP+16
U	RESTART+3, INIT+1, MAIN+23, LOGOUT+6
X	RESTART+2, RESTART+7, TCP+1~, MAIN+3!, SNDERR+2~, SNDERR+3, SNDERR+4, SNDERR+5, SNDERR+6, LOGOUT+6*
X(	MAIN+16*
XRTL	IP+8!*
XWBARY	RESTART+9!
>> XWBCLMAN	IP+3*
XWBERC	ETRAP+1~, ETRAP+5*, ETRAP+8
XWBERR	OLDETRAP+21, ETRAP+1~, ETRAP+5*, ETRAP+11, ETRAP+13
>> XWBERROR	SNDERR+5, SNDERR+7*
>> XWBNULL	IP+23, IP+24
>> XWBOS	IP+4, IP+5, IP+8, IP+16, IP+17, IP+23, ETRAP+6, ETRAP+10, ETRAP+12
XWBR	RESTART+9!
>> XWBSEC	SNDERR+3
>> XWBTDEV	IP+16, IP+17, RESTART+4, RESTART+10, TCP+3, ETRAP+9
>> XWBTIME	IP+9*
>> XWBTIP	IP+15*, IP+16
>> XWBTLEN	OLDETRAP+21, ETRAP+11
>> XWBTSKT	IP+15*, IP+16
>> Y	LOGOUT+6*

Customize PDF page

Package: GUI Generic Tools

Routine: BGUTCPH

Call Graph Total: 10

Caller Graph Total: 1