net = require('net');

 HOST = '192.168.1.111';
 PORT = 6969;
 var str='w $zv';

 client = new net.Socket();
 client.connect(PORT, HOST, function() {

    console.log('CONNECTED TO: ' + HOST + ':' + PORT);
    // Write a message to the socket as soon as the client is connected, the server will receive it as message from the client 
    client.write('XE ' + str + '\r\n');

});

// Add a 'data' event handler for the client socket
// data is what the server sent to this socket
client.on('data', function(data) {
    
    console.log('Data returned from [gtm] DataBase: ' + data);
    // Close the client socket completely
    client.destroy();
    
});

// Add a 'close' event handler for the client socket
client.on('close', function() {
    console.log('Connection closed');
});

.......................
cmdKill(input)
 n $zt s $zt=$$zt()
 s gtmbuild("Node")=input
 i gtmbuild("Node")["zmwire" w "-No access allowed to this global"_separatorend q
 k @("^"_gtmbuild("Node"))
 s response="+OK"_separatorend
 w response
 k gtmbuild("Node")
 q
 ;
cmdData(input)
 n $zt s $zt=$$zt()
 s gtmbuild("Node")=input
 s gtmbuild("Value")=$d(@("^"_gtmbuild("Node")))
 w gtmbuild("Value")_separatorend
 q
 ;
cmdGet(input)
 s $zt=$$zt()
 s gtmbuild("Node")=input
 s gtmbuild("Value")=@("^"_gtmbuild("Node"))
 w gtmbuild("Value")
 w separatorend
 q
 ;
cmdKeepAlive(input)
  q
 ;
cmdQuery(input);
 n $zt s $zt=$$zt()
 s gtmbuild("Node")=input
 s gtmbuild("Value")=$q(@("^"_gtmbuild("Node")))
 w gtmbuild("Value")_separatorend
 q
 ;
cmdOrder(input)
 n $zt s $zt=$$zt()
 s gtmbuild("Node")=$p(input,$c(0),1)
 s flag=$p(input,$c(0),2)
 i flag=1 d
 . s gtmbuild("Value")=$o(@("^"_gtmbuild("Node")))
 . w gtmbuild("Value")_separatorend
 i flag=0 d
 . s gtmbuild("Value")=$o(@("^"_gtmbuild("Node")),-1)
 . w gtmbuild("Value")_separatorend
 q
 ;
cmdSet(input)
 n $zt s $zt=$$zt()
 s gtmbuild("Node")=$p(input,$c(0),1)
 s gtmbuild("Value")=$p(input,$c(0),2)
 s @("^"_gtmbuild("Node"))=gtmbuild("Value")
 ;s response="+OK"_separatorend
 ;w response
 k gtmbuild("Node"),gtmbuild("Value")
 q
 ;
cmdXe(input)
 ;
 ; i input["^zmwire" w "No access allowed to this global"_separatorend q
 s gtmbuild("Xecute")=input
 n $zt s $zt=$$zt()
 x "New gtmbuild "_gtmbuild("Xecute")
 s $zt=""
 w separatorend
 k gtmbuild("Xecute"),gtmbuild
 w !
 q
 ;
cmdDo(input)
 ;
 n flag,rtn,head,cik,i,nprm,array,data,ByRef
 s head=$p(input,$c(0))
 s rtn=$p(head,"~",1)       ; RoutineLabel^RoutineName
 s nprm=$p(head,"~",2)      ; nr.parameters
 s flag=$p(head,"~",3)      ; flag
 s lenAll=$p(head,"~",4)    ; len all  -It's not used
 s lenP1=$p(head,"~",5)     ; len par1 -It's not used
 s lenP2=$p(head,"~",6)     ; len par2 -It's not used
 s lenP3=$p(head,"~",7)     ; len par3 -It's not used
 s lenP4=$p(head,"~",8)     ; len par4 -It's not used
 s lenP5=$p(head,"~",9)     ; len par5 -It's not used
 s lenP6=$p(head,"~",10)    ; len par6 -It's not used
 s lenP7=$p(head,"~",11)    ; len par7 -It's not used
 s lenP8=$p(head,"~",12)    ; len par8 -It's not used
 s lenP9=$p(head,"~",13)    ; len par9 -It's not used
 s lenP10=$p(head,"~",14)   ; len par10 -It's not used
 s lenP11=$p(head,"~",15)   ; len par11 -It's not used
 s lenP12=$p(head,"~",16)   ; len par12 -It's not used
 s lenP13=$p(head,"~",17)   ; len par13 -It's not used
 s lenP14=$p(head,"~",18)   ; len par14 -It's not used
 s lenP15=$p(head,"~",19)   ; len par15 -It's not used
 s lenP16=$p(head,"~",20)   ; len par16 -It's not used
 ;
 ; Passing parameters ByRef label^routine(.var1,.var2, ... .var16) return records or Array !!!
 s gtmbuild("gtmstring")=rtn_"("
 f i=2:1:nprm+1 d
 . s gtmbuild("ByRef",i)=$p(input,$c(0),i)
 . s ByRef=".ByRef"_i s gtmbuild("gtmstring")=gtmbuild("gtmstring")_(ByRef_","),passing="ByRef"_i,@passing=gtmbuild("ByRef",i)
 s $e(gtmbuild("gtmstring"),$l(gtmbuild("gtmstring")))=")"
 i nprm=0 s gtmbuild("gtmstring")=rtn ; with no parameter in function
 k i
 i flag="R" d
 . w ""_separator ; Return pseudo parameter ("")
 . n $zt s $zt=$$zt()
 . x "New gtmbuild Do "_gtmbuild("gtmstring")
 . s $zt=""
 . f i=2:1:nprm+1 d
 . . i $d(@("ByRef"_i))\10=0 w @("ByRef"_i)
 . . e  f cik=0:1 s array=$q(@("ByRef"_i_"("_cik_")")) q:array=""  w @array
 . . k @("ByRef"_i)
 . . w separator  ; Separator fragments
 i flag="F" d
 . n $zt s $zt=$$ztx()
 . x "New gtmbuild s ByRef=$$"_gtmbuild("gtmstring")
 . s $zt=""
 . w ByRef_separator
 . f i=2:1:nprm+1 d
 . . i $d(@("ByRef"_i))\10=0 w @("ByRef"_i)
 . . e  f cik=0:1 s array=$q(@("ByRef"_i_"("_cik_")")) q:array=""  w @array
 . . k @("ByRef"_i)
 . . w separator  ; Separator fragments
 w endfragment    ; END Separator
 w !
 q
 ;;