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 |
|