XWBTCPL ;SLC/KCM - Listener for TCP connects ;12/09/2004 07:33
Source file <XWBTCPL.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(XWBTSKT) | ; -- accept clients and start the individual message handler
|
|
RESTART | ;
|
|
QSND(STR) | ;Write output (*p35)
|
|
ETRAP | ; -- on trapped error, send error info to client
|
|
ETRAPX | ||
FLUSH | ;Flush the input buffer
|
|
RELEASE(%) | ;Now release the connection. (*p7*)
|
|
UPDTREC(XWBTSKT,STATE,XWBENV) | ; -- update STATUS field and ^%ZIS X-ref of the
|
|
SEMAPHOR(XWBTSKT,XWBACT) | ;Lock/Unlock listener semaphore
|
|
NEWJOB() | ;Check if OK to start a new job, Return 1 if OK, 0 if not OK.
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: READ |
|
Function Call: WRITE |
|