HLCSTCP1 ;SFIRMFO/RSD - BI-DIRECTIONAL TCP ;07/08/2009 15:27
Source file <HLCSTCP1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PROCESS | ;check message and reply
|
|
| READ() | ;read 1 message, returns ien in 773^ien in 772 for message
|
|
| RDBLK | ;
; initialize |
|
| RDBLK2 | ;data stream: <sb>dddd<cr><eb><cr>
; HL*1.6*122 end ; look for segment= <CR> |
|
| SAVE(SRC,DEST) | ;save into global & set top node
|
|
| DELMSG(HLMAMT) | ;delete message from Message Administration/Message Text files.
|
|
| PING | ;process PING message
|
|
| CLEAN | ;reset var. for next message
|
|
| ERROR | ; Error trap for disconnect error and return back to the read loop.
; patch HL*1.6*122 ; move to routine HLCSTCP4 (splitted-size over 10000) |
|
| CC(X) | ;cleanup and close
|
|
| RESET | ;reset info as a result of no end block
|
| Name | Field # of Occurrence |
|---|---|
| ^DIK | DELMSG+3, DELMSG+5 |
| $$STOP^HLCSTCP | HLCSTCP1+29 |
| LLCNT^HLCSTCP | PROCESS+17, PROCESS+26, PROCESS+27 |
| MON^HLCSTCP | HLCSTCP1+21, HLCSTCP1+29, READ+1, CC+1 |
| CLEANVAR^HLCSTCP4 | HLCSTCP1+31 |
| ERROR1^HLCSTCP4 | ERROR+3 |
| HLDUZ2^HLCSTCP4 | HLCSTCP1+40 |
| MIEN^HLCSTCP4 | RDBLK2+24 |
| NEW^HLTP3 | PROCESS+18 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^HL(772 - [#772] | Classic Fileman Calls |
| ^HLMA - [#773] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("OS" | RDBLK+24 |
| ^HL(772 - [#772] | RDBLK2+72*, SAVE+7, SAVE+13 |
| ^HLMA - [#773] | SAVE+5, SAVE+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | RESET+1~, RESET+3* |
| DA | DELMSG+1~, DELMSG+2*, DELMSG+4* |
| DEST | SAVE~, SAVE+4, SAVE+9, SAVE+10, SAVE+12 |
| DIK | DELMSG+1~, DELMSG+2*, DELMSG+4* |
| DT | SAVE+10 |
| DUZ | HLCSTCP1+19 |
| HLACKWT | READ+2~, READ+9*, READ+12 |
| HLASTMSG | HLCSTCP1+8~, HLCSTCP1+23* |
| HLBUFF | READ+10~, RDBLK+2*, RDBLK+14*, RDBLK+16, RDBLK+17, RDBLK+19*, RDBLK+22, RDBLK+30, RDBLK+41, RDBLK+56 , RDBLK+58, RDBLK+59*, RDBLK+71, RDBLK+77, RDBLK+78* |
| HLBUFF("END" | READ+19*, READ+24*, RDBLK+22* |
| HLBUFF("HLIND1" | RDBLK2+44* |
| HLBUFF("START" | READ+18*, READ+22*, RDBLK+17, RDBLK+20* |
| HLDB | READ+2~, RDBLK+57*, RDBLK+58, RDBLK+59 |
| HLDB(1 | RDBLK+6*, RDBLK+14 |
| HLDB(2 | RDBLK+47*, RDBLK+50, RDBLK+51 |
| >> HLDBACK | READ+9 |
| >> HLDBSIZE | RDBLK+14, RDBLK+47, RDBLK+57, RDBLK+65, RDBLK2+51 |
| HLDEND | READ+2~, READ+4*, READ+23, RDBLK+22, RDBLK+65, RDBLK2+28, RDBLK2+34, RDBLK2+36, RDBLK2+51, RDBLK2+69 , PING+6 |
| >> HLDP | PROCESS+3, PROCESS+17, PROCESS+27 |
| >> HLDP("HLLINK" | PROCESS+12*, PROCESS+26 |
| >> HLDP("SETINQUE" | PROCESS+13*, PROCESS+24 |
| >> HLDREAD | READ+12 |
| HLDSTRT | READ+2~, READ+4*, READ+21, RDBLK+17, RDBLK+19, RDBLK2+7, RDBLK2+9, RDBLK2+10, RDBLK2+11, RDBLK2+12 , RDBLK2+51, RDBLK2+54, RDBLK2+56, RDBLK2+60 |
| HLDT | READ+2~ |
| HLDUZ | HLCSTCP1+18~, HLCSTCP1+19*, HLCSTCP1+42~ |
| HLHDR | READ+2~, READ+9*, RDBLK+31, RDBLK2+7, RDBLK2+17, RDBLK2+26*, RDBLK2+60*, RDBLK2+62 |
| HLIND1 | READ+2~, READ+9*, READ+33*, READ+34, RDBLK+31, RDBLK2+32, RDBLK2+40, RDBLK2+43*, RDBLK2+44, RDBLK2+66 , RDBLK2+69, RDBLK2+72, SAVE+5, SAVE+7, SAVE+12, SAVE+13 |
| HLINE | READ+2~, READ+9*, RDBLK2+5*, RDBLK2+7, RDBLK2+9, RDBLK2+10, RDBLK2+11, RDBLK2+12, RDBLK2+13, RDBLK2+26* , RDBLK2+28, RDBLK2+34, RDBLK2+35*, RDBLK2+36, RDBLK2+48*, RDBLK2+52*, RDBLK2+60*, RDBLK2+62, RDBLK2+71, SAVE+10 , CLEAN+2*, RESET+2, RESET+3, RESET+4* |
| HLMAMT | DELMSG~, DELMSG+2, DELMSG+4 |
| HLMIEN | HLCSTCP1+8~, HLCSTCP1+23*, HLCSTCP1+29, HLCSTCP1+34*, HLCSTCP1+35, PROCESS+3, PROCESS+18 |
| HLMSG | READ+2~, RDBLK2+25!, RDBLK2+40, RDBLK2+72, RDBLK2+74!, CLEAN+1! |
| HLMSG( | RDBLK2+5*, RDBLK2+7, RDBLK2+9, RDBLK2+10, RDBLK2+11*, RDBLK2+12*, RDBLK2+28, RDBLK2+34, RDBLK2+35!, RDBLK2+36* , RDBLK2+48*, RDBLK2+52*, RDBLK2+60*, RESET+2, RESET+3! |
| HLMSG(0 | RDBLK2+71 |
| HLMSG(1 | RDBLK2+17, RDBLK2+18*, RDBLK2+22, PING+1, RESET+2* |
| HLMSG(2 | RDBLK2+17, RDBLK2+18, RDBLK2+19* |
| HLRDOUT | READ+2~, READ+9*, READ+25, RDBLK+41, RDBLK2+3, RDBLK2+49, CLEAN+2* |
| HLRS | READ+2~, READ+4*, RDBLK+65, RDBLK2+3, RDBLK2+5, RDBLK2+51 |
| HLRS("START-FLAG" | READ+13*, RDBLK2+8*, RDBLK2+66 |
| HLTCP | PROCESS+2~, PROCESS+3* |
| HLTCPI | PROCESS+2~, PROCESS+3* |
| >> HLTCPLNK("IOF" | PING+6 |
| HLTCPO | PROCESS+2~, PROCESS+3* |
| >> HLTCPORT("IO" | HLCSTCP1+11*, HLCSTCP1+33 |
| HLTMBUF | HLCSTCP1+14~ |
| HLTMBUF(0 | READ+9, READ+14*, READ+31* |
| HLTMBUF(1 | READ+16, READ+17*, READ+32* |
| HLX | READ+2~, READ+9*, READ+20, READ+21, READ+23, READ+31, RDBLK+6, RDBLK+30, RDBLK+47, RDBLK+52* , RDBLK+57, RDBLK+60*, RDBLK+62, RDBLK+65, RDBLK2+3, RDBLK2+5*, RDBLK2+51, RDBLK2+52*, RDBLK2+54, RDBLK2+56* , RDBLK2+60*, RDBLK2+69 |
| HLX(1 | READ+16*, READ+20, READ+21, READ+23, READ+32, RDBLK+6, RDBLK+30, RDBLK+41, RDBLK+44, RDBLK+50 , RDBLK+51*, RDBLK+56, RDBLK+77* |
| HLX(2 | RDBLK+50*, RDBLK+52 |
| HLXX | READ+10~, RDBLK+58*, RDBLK+60 |
| IO | HLCSTCP1+11, HLCSTCP1+33*, READ+28, RDBLK+13, PING+6, PING+8 |
| IO(0 | READ+28, PING+8 |
| MAXWAIT | READ+10~, READ+12*, RDBLK+14 |
| SRC | SAVE~, SAVE+9 |
| U | READ+33, RDBLK2+40, RDBLK2+43, RDBLK2+72, SAVE+7, SAVE+13, DELMSG+4 |
| X | READ+2~, RDBLK2+10*, RDBLK2+11, RDBLK2+56*, PING+1*, PING+6, CC~, CC+1 |