no response after try to connect to remote host

**an expert beginer** · Oct 26th, 2012, 10:31 AM

Hello,

I'm a beginner who wanna try to make a simple telnet client app, that connected to TPF mainframe using port 23.
I have coded the app as below:

Code:

Private Const resdip = "172.25.203.194", telnetport = 23

Private Sub cmdConnect_Click()
con.Connect
cmdConnect.Visible = False 'prevent to clicked twice
End Sub

Private Sub con_DataArrival(ByVal bytesTotal As Long)
Dim reply_out As String
textOut.Visible = True
textOut.Text = textOut.Text & reply_out
End Sub

Private Sub con_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
txtlog "Something's went wrong!" & Description & Number & vbclrf
End Sub

Private Sub Form_Load()

If con.State = sckConnected Or con.RemoteHost <> resdip Or con.RemotePort <> telnetport Then
con.Close
End If

con.RemoteHost = resdip
con.RemotePort = telnetport

If con.State <> sckConnected Then
textOut.Visible = False
cmdConnect.Visible = True 'suppress default value
End If
End Sub

After the form's loaded, I got the Connect button (named as cmdConnect) appeared, and it's because the winsock (named as con) state not equal to sckConnected.
After I try to connect it, there is no response I got.
Anyone please help me or give me some advise. Any help is appreciated.

Thanks

- Ron -

**Doogle** · Oct 27th, 2012, 04:52 PM

The DataArrival event is triggered when something has been received. You have to read it.

Code:

Private Sub con_DataArrival(ByVal bytesTotal As Long)
Dim reply_out As String
con.GetData reply_out
textOut.Visible = True
textOut.Text = textOut.Text & reply_out
End Sub

**an expert beginer** · Nov 2nd, 2012, 12:12 AM

Originally Posted by Doogle

The DataArrival event is triggered when something has been received. You have to read it.

Code:

Private Sub con_DataArrival(ByVal bytesTotal As Long)
Dim reply_out As String
con.GetData reply_out
textOut.Visible = True
textOut.Text = textOut.Text & reply_out
End Sub

Thanks Doogle

it works now, however I got the data in EBCDIC format and I'm looking for how to translate it to ASCII format.
But thanks for your correction.

**Doogle** · Nov 2nd, 2012, 02:26 AM

Simplest method might be to create a 'look-up' array with 256 elements, each element holding the ASCII equivalent for the EBCDIC value. e.g. Lookup(193) would contain "A" ,where 193 is the EBCDIC value for 'A' = Hex(C1) = 193

There's a translation table here: http://www.simotime.com/asc2ebc1.htm

**Doogle** · Nov 2nd, 2012, 03:14 AM

Here's one I made earlier. It just translates printable characters, all others return 255

Code:

Option Explicit

Private EBCDICLookup(255) As String

Public Sub SetUpTranslate()
EBCDICLookup(0) = Chr(255)      ' Unprintable
EBCDICLookup(1) = Chr(255)      ' Unprintable
EBCDICLookup(2) = Chr(255)      ' Unprintable
EBCDICLookup(3) = Chr(255)      ' Unprintable
EBCDICLookup(4) = Chr(255)      ' Unprintable
EBCDICLookup(5) = Chr(255)      ' Unprintable
EBCDICLookup(6) = Chr(255)      ' Unprintable
EBCDICLookup(7) = Chr(255)      ' Unprintable
EBCDICLookup(8) = Chr(255)      ' Unprintable
EBCDICLookup(9) = Chr(255)      ' Unprintable
EBCDICLookup(10) = Chr(255)     ' Unprintable
EBCDICLookup(11) = Chr(255)     ' Unprintable
EBCDICLookup(12) = Chr(255)     ' Unprintable
EBCDICLookup(13) = Chr(255)     ' Unprintable
EBCDICLookup(14) = Chr(255)     ' Unprintable
EBCDICLookup(15) = Chr(255)     ' Unprintable
EBCDICLookup(16) = Chr(255)     ' Unprintable
EBCDICLookup(17) = Chr(255)     ' Unprintable
EBCDICLookup(18) = Chr(255)     ' Unprintable
EBCDICLookup(19) = Chr(255)     ' Unprintable
EBCDICLookup(20) = Chr(255)     ' Unprintable
EBCDICLookup(21) = Chr(255)     ' Unprintable
EBCDICLookup(22) = Chr(255)     ' Unprintable
EBCDICLookup(23) = Chr(255)     ' Unprintable
EBCDICLookup(24) = Chr(255)     ' Unprintable
EBCDICLookup(25) = Chr(255)     ' Unprintable
EBCDICLookup(26) = Chr(255)     ' Unprintable
EBCDICLookup(27) = Chr(255)     ' Unprintable
EBCDICLookup(28) = Chr(255)     ' Unprintable
EBCDICLookup(29) = Chr(255)     ' Unprintable
EBCDICLookup(30) = Chr(255)     ' Unprintable
EBCDICLookup(31) = Chr(255)     ' Unprintable
EBCDICLookup(32) = Chr(255)     ' Unprintable
EBCDICLookup(33) = Chr(255)     ' Unprintable
EBCDICLookup(34) = Chr(255)     ' Unprintable
EBCDICLookup(35) = Chr(255)     ' Unprintable
EBCDICLookup(36) = Chr(255)     ' Unprintable
EBCDICLookup(37) = Chr(255)     ' Unprintable
EBCDICLookup(38) = Chr(255)     ' Unprintable
EBCDICLookup(39) = Chr(255)     ' Unprintable
EBCDICLookup(40) = Chr(255)     ' Unprintable
EBCDICLookup(41) = Chr(255)     ' Unprintable
EBCDICLookup(42) = Chr(255)     ' Unprintable
EBCDICLookup(43) = Chr(255)     ' Unprintable
EBCDICLookup(44) = Chr(255)     ' Unprintable
EBCDICLookup(45) = Chr(255)     ' Unprintable
EBCDICLookup(46) = Chr(255)     ' Unprintable
EBCDICLookup(47) = Chr(255)     ' Unprintable
EBCDICLookup(48) = Chr(255)     ' Unprintable
EBCDICLookup(49) = Chr(255)     ' Unprintable
EBCDICLookup(50) = Chr(255)     ' Unprintable
EBCDICLookup(51) = Chr(255)     ' Unprintable
EBCDICLookup(52) = Chr(255)     ' Unprintable
EBCDICLookup(53) = Chr(255)     ' Unprintable
EBCDICLookup(54) = Chr(255)     ' Unprintable
EBCDICLookup(55) = Chr(255)     ' Unprintable
EBCDICLookup(56) = Chr(255)     ' Unprintable
EBCDICLookup(57) = Chr(255)     ' Unprintable
EBCDICLookup(58) = Chr(255)     ' Unprintable
EBCDICLookup(59) = Chr(255)     ' Unprintable
EBCDICLookup(60) = Chr(255)     ' Unprintable
EBCDICLookup(61) = Chr(255)     ' Unprintable
EBCDICLookup(62) = Chr(255)     ' Unprintable
EBCDICLookup(63) = Chr(255)     ' Unprintable
EBCDICLookup(64) = Chr(255)     ' Unprintable
EBCDICLookup(65) = Chr(255)     ' Unprintable
EBCDICLookup(66) = Chr(255)     ' Unprintable
EBCDICLookup(67) = Chr(255)     ' Unprintable
EBCDICLookup(68) = Chr(255)     ' Unprintable
EBCDICLookup(69) = Chr(255)     ' Unprintable
EBCDICLookup(70) = Chr(255)     ' Unprintable
EBCDICLookup(71) = Chr(255)     ' Unprintable
EBCDICLookup(72) = Chr(255)     ' Unprintable
EBCDICLookup(73) = Chr(255)     ' Unprintable
EBCDICLookup(74) = Chr(162)     '¢
EBCDICLookup(75) = Chr(46)      '.
EBCDICLookup(76) = Chr(60)      '<
EBCDICLookup(77) = Chr(40)      '(
EBCDICLookup(78) = Chr(43)      '+
EBCDICLookup(79) = Chr(124)     '|
EBCDICLookup(80) = Chr(255)     ' Unprintable
EBCDICLookup(81) = Chr(255)     ' Unprintable
EBCDICLookup(82) = Chr(255)     ' Unprintable
EBCDICLookup(83) = Chr(255)     ' Unprintable
EBCDICLookup(84) = Chr(255)     ' Unprintable
EBCDICLookup(85) = Chr(255)     ' Unprintable
EBCDICLookup(86) = Chr(255)     ' Unprintable
EBCDICLookup(87) = Chr(255)     ' Unprintable
EBCDICLookup(88) = Chr(255)     ' Unprintable
EBCDICLookup(89) = Chr(255)     ' Unprintable
EBCDICLookup(90) = Chr(33)      '!
EBCDICLookup(91) = Chr(36)      '$
EBCDICLookup(92) = Chr(42)      '*
EBCDICLookup(93) = Chr(41)      ')
EBCDICLookup(94) = Chr(59)      ';
EBCDICLookup(95) = Chr(172)     '¬
EBCDICLookup(96) = Chr(45)      '-
EBCDICLookup(97) = Chr(47)      '/
EBCDICLookup(98) = Chr(255)     ' Unprintable
EBCDICLookup(99) = Chr(255)     ' Unprintable
EBCDICLookup(100) = Chr(255)    ' Unprintable
EBCDICLookup(101) = Chr(255)    ' Unprintable
EBCDICLookup(102) = Chr(255)    ' Unprintable
EBCDICLookup(103) = Chr(255)    ' Unprintable
EBCDICLookup(104) = Chr(255)    ' Unprintable
EBCDICLookup(105) = Chr(255)    ' Unprintable
EBCDICLookup(106) = Chr(166)    '¦
EBCDICLookup(107) = Chr(44)     ',
EBCDICLookup(108) = Chr(37)     '%
EBCDICLookup(109) = Chr(95)     '_
EBCDICLookup(110) = Chr(62)     '>
EBCDICLookup(111) = Chr(63)     '?
EBCDICLookup(112) = Chr(255)    ' Unprintable
EBCDICLookup(113) = Chr(255)    ' Unprintable
EBCDICLookup(114) = Chr(255)    ' Unprintable
EBCDICLookup(115) = Chr(255)    ' Unprintable
EBCDICLookup(116) = Chr(255)    ' Unprintable
EBCDICLookup(117) = Chr(255)    ' Unprintable
EBCDICLookup(118) = Chr(255)    ' Unprintable
EBCDICLookup(119) = Chr(255)    ' Unprintable
EBCDICLookup(120) = Chr(255)    ' Unprintable
EBCDICLookup(121) = Chr(96)     '`
EBCDICLookup(122) = Chr(58)     ':
EBCDICLookup(123) = Chr(35)     '#
EBCDICLookup(124) = Chr(64)     '@
EBCDICLookup(125) = Chr(39)     ''
EBCDICLookup(126) = Chr(61)     '=
EBCDICLookup(127) = Chr(34)     '"
EBCDICLookup(128) = Chr(255)    ' Unprintable
EBCDICLookup(129) = Chr(97)     'a
EBCDICLookup(130) = Chr(98)     'b
EBCDICLookup(131) = Chr(99)     'c
EBCDICLookup(132) = Chr(100)    'd
EBCDICLookup(133) = Chr(101)    'e
EBCDICLookup(134) = Chr(102)    'f
EBCDICLookup(135) = Chr(103)    'g
EBCDICLookup(136) = Chr(104)    'h
EBCDICLookup(137) = Chr(105)    'i
EBCDICLookup(138) = Chr(255)    ' Unprintable
EBCDICLookup(139) = Chr(255)    ' Unprintable
EBCDICLookup(140) = Chr(255)    ' Unprintable
EBCDICLookup(141) = Chr(255)    ' Unprintable
EBCDICLookup(142) = Chr(255)    ' Unprintable
EBCDICLookup(143) = Chr(255)    ' Unprintable
EBCDICLookup(144) = Chr(255)    ' Unprintable
EBCDICLookup(145) = Chr(106)    'j
EBCDICLookup(146) = Chr(107)    'k
EBCDICLookup(147) = Chr(108)    'l
EBCDICLookup(148) = Chr(109)    'm
EBCDICLookup(149) = Chr(110)    'n
EBCDICLookup(150) = Chr(111)    'o
EBCDICLookup(151) = Chr(112)    'p
EBCDICLookup(152) = Chr(113)    'q
EBCDICLookup(153) = Chr(114)    'r
EBCDICLookup(154) = Chr(255)    ' Unprintable
EBCDICLookup(155) = Chr(255)    ' Unprintable
EBCDICLookup(156) = Chr(255)    ' Unprintable
EBCDICLookup(157) = Chr(255)    ' Unprintable
EBCDICLookup(158) = Chr(255)    ' Unprintable
EBCDICLookup(159) = Chr(255)    ' Unprintable
EBCDICLookup(160) = Chr(255)    ' Unprintable
EBCDICLookup(161) = Chr(126)    '~
EBCDICLookup(162) = Chr(115)    's
EBCDICLookup(163) = Chr(116)    't
EBCDICLookup(164) = Chr(117)    'u
EBCDICLookup(165) = Chr(118)    'v
EBCDICLookup(166) = Chr(119)    'w
EBCDICLookup(167) = Chr(120)    'x
EBCDICLookup(168) = Chr(121)    'y
EBCDICLookup(169) = Chr(122)    'z
EBCDICLookup(170) = Chr(255)    ' Unprintable
EBCDICLookup(171) = Chr(255)    ' Unprintable
EBCDICLookup(172) = Chr(255)    ' Unprintable
EBCDICLookup(173) = Chr(255)    ' Unprintable
EBCDICLookup(174) = Chr(255)    ' Unprintable
EBCDICLookup(175) = Chr(255)    ' Unprintable
EBCDICLookup(176) = Chr(255)    ' Unprintable
EBCDICLookup(177) = Chr(255)    ' Unprintable
EBCDICLookup(178) = Chr(255)    ' Unprintable
EBCDICLookup(179) = Chr(255)    ' Unprintable
EBCDICLookup(180) = Chr(255)    ' Unprintable
EBCDICLookup(181) = Chr(255)    ' Unprintable
EBCDICLookup(182) = Chr(255)    ' Unprintable
EBCDICLookup(183) = Chr(255)    ' Unprintable
EBCDICLookup(184) = Chr(255)    ' Unprintable
EBCDICLookup(185) = Chr(255)    ' Unprintable
EBCDICLookup(186) = Chr(255)    ' Unprintable
EBCDICLookup(187) = Chr(255)    ' Unprintable
EBCDICLookup(188) = Chr(255)    ' Unprintable
EBCDICLookup(189) = Chr(255)    ' Unprintable
EBCDICLookup(190) = Chr(255)    ' Unprintable
EBCDICLookup(191) = Chr(255)    ' Unprintable
EBCDICLookup(192) = Chr(123)    '{
EBCDICLookup(193) = Chr(65)     'A
EBCDICLookup(194) = Chr(66)     'B
EBCDICLookup(195) = Chr(67)     'C
EBCDICLookup(196) = Chr(68)     'D
EBCDICLookup(197) = Chr(69)     'E
EBCDICLookup(198) = Chr(70)     'F
EBCDICLookup(199) = Chr(71)     'G
EBCDICLookup(200) = Chr(72)     'H
EBCDICLookup(201) = Chr(73)     'I
EBCDICLookup(202) = Chr(255)    ' Unprintable
EBCDICLookup(203) = Chr(255)    ' Unprintable
EBCDICLookup(204) = Chr(255)    ' Unprintable
EBCDICLookup(205) = Chr(255)    ' Unprintable
EBCDICLookup(206) = Chr(255)    ' Unprintable
EBCDICLookup(207) = Chr(255)    ' Unprintable
EBCDICLookup(208) = Chr(125)    '}
EBCDICLookup(209) = Chr(74)     'J
EBCDICLookup(210) = Chr(75)     'K
EBCDICLookup(211) = Chr(76)     'L
EBCDICLookup(212) = Chr(77)     'M
EBCDICLookup(213) = Chr(78)     'N
EBCDICLookup(214) = Chr(79)     'O
EBCDICLookup(215) = Chr(80)     'P
EBCDICLookup(216) = Chr(81)     'Q
EBCDICLookup(217) = Chr(82)     'R
EBCDICLookup(218) = Chr(255)    ' Unprintable
EBCDICLookup(219) = Chr(255)    ' Unprintable
EBCDICLookup(220) = Chr(255)    ' Unprintable
EBCDICLookup(221) = Chr(255)    ' Unprintable
EBCDICLookup(222) = Chr(255)    ' Unprintable
EBCDICLookup(223) = Chr(255)    ' Unprintable
EBCDICLookup(224) = Chr(92)     '\
EBCDICLookup(225) = Chr(255)    ' Unprintable
EBCDICLookup(226) = Chr(83)     'S
EBCDICLookup(227) = Chr(84)     'T
EBCDICLookup(228) = Chr(85)     'U
EBCDICLookup(229) = Chr(86)     'V
EBCDICLookup(230) = Chr(87)     'W
EBCDICLookup(231) = Chr(88)     'X
EBCDICLookup(232) = Chr(89)     'Y
EBCDICLookup(233) = Chr(90)     'Z
EBCDICLookup(234) = Chr(255)    ' Unprintable
EBCDICLookup(235) = Chr(255)    ' Unprintable
EBCDICLookup(236) = Chr(255)    ' Unprintable
EBCDICLookup(237) = Chr(255)    ' Unprintable
EBCDICLookup(238) = Chr(255)    ' Unprintable
EBCDICLookup(239) = Chr(255)    ' Unprintable
EBCDICLookup(240) = Chr(48)     '0
EBCDICLookup(241) = Chr(49)     '1
EBCDICLookup(242) = Chr(50)     '2
EBCDICLookup(243) = Chr(51)     '3
EBCDICLookup(244) = Chr(52)     '4
EBCDICLookup(245) = Chr(53)     '5
EBCDICLookup(246) = Chr(54)     '6
EBCDICLookup(247) = Chr(55)     '7
EBCDICLookup(248) = Chr(56)     '8
EBCDICLookup(249) = Chr(57)     '9
EBCDICLookup(250) = Chr(255)    ' Unprintable
EBCDICLookup(251) = Chr(255)    ' Unprintable
EBCDICLookup(252) = Chr(255)    ' Unprintable
EBCDICLookup(253) = Chr(255)    ' Unprintable
EBCDICLookup(254) = Chr(255)    ' Unprintable
EBCDICLookup(255) = Chr(255)    ' Unprintable
End Sub

Public Function Translate(strEBCDIC As String) As String
Dim intI As Integer
If Len(strEBCDIC) > 0 Then
    For intI = 1 To Len(strEBCDIC)
        Translate = Translate & EBCDICLookup(Asc(Mid$(strEBCDIC, intI, 1)))
    Next intI
End If
End Function

Just stick that into a Module and put

Code:

SetUpTranslate

in your Form_Load event and when you want to translate an EBCDIC string to ASCII use

Code:

Dim strASCII as String
strASCII = Translate(strEBCDIC)

where strEBCDIC is the string of EBCDIC characters.

**Doogle** · Nov 2nd, 2012, 03:32 AM

BTW I didn't sit and type all that in, I used the following code and attached file to create the module. I've posted it here so you can simply make any changes to the file (eg if you want to translate some of the unprintable characters), run the code and it will create the .bas module for you. (Just change the Paths to the input and output files as necessary)

Code:

Option Explicit

Private Sub Command_Click()
Dim strData As String
Dim strLines() As String
Dim strLine() As String
Dim intFile As Integer
Dim intFileOut As Integer
Dim intI As Integer
Dim intLoc As Integer
intFile = FreeFile()
Open "C:\MyDir\ebcdic.txt" For Input As intFile
intFileOut = FreeFile()
Open "C:\myDir\modEbcdic.bas" For Output As intFileOut
Print #intFileOut, "Option Explicit"
Print #intFileOut,
Print #intFileOut, "Private EBCDICLookup(255) As String"
Print #intFileOut,
Print #intFileOut, "Public Sub SetUpTranslate()"
strData = Input(LOF(intFile), intFile)
Close intFile
strLines = Split(strData, vbNewLine)
For intI = 0 To UBound(strLines)
        strLine = Split(strLines(intI), " ")
        intLoc = CInt(strLine(0))
        If UBound(strLine) > 1 Then
            If Len(strLine(2)) = 1 Then
                Print #intFileOut, "EBCDICLookup(" & intLoc & ") = " & "Chr(" & (Asc((strLine(2)))) & ")" & vbTab & "'" & strLine(2)
            Else
                Print #intFileOut, "EBCDICLookup(" & intLoc & ") = Chr(255)" & vbTab & "' Unprintable"
            End If
        Else
                Print #intFileOut, "EBCDICLookup(" & intLoc & ") = Chr(255)" & vbTab & "' Unprintable"
        End If
Next intI
Print #intFileOut, "End Sub"
Print #intFileOut,
Print #intFileOut, "Public Function Translate(strEBCDIC As String) As String"
Print #intFileOut, "Dim intI As Integer"
Print #intFileOut, "If Len(strEBCDIC) > 0 Then"
Print #intFileOut, "    For intI = 1 To Len(strEBCDIC)"
Print #intFileOut, "        Translate = Translate & Chr(EBCDICLookup(Asc(Mid$(strEBCDIC, intI, 1))))"
Print #intFileOut, "    Next intI"
Print #intFileOut, "End If"
Print #intFileOut, "End Function"
Close intFileOut
End Sub

**an expert beginer** · Nov 16th, 2012, 10:07 AM

Hi Doogle, it works very well

thanks for your big help, but there is some mistake in your module generator script, in this line:

Code:

Print #intFileOut, "        Translate = Translate & Chr(EBCDICLookup(Asc(Mid$(strEBCDIC, intI, 1))))"

it should be:

Code:

Translate = Translate & EBCDICLookup(Asc(Mid$(strEBCDIC, intI, 1)))

as your post above it.

I've tested the function as below:

Code:

Private Sub cmdConnect_Click()
con.Connect
cmdConnect.Visible = False
SetUpTranslate
strEBCDIC = Chr(240)
test = Translate(strEBCDIC)
End Sub

And returned character 0, (hex F0 in EBCDIC)

I think this post is resolved. Thanks for the simplest solution from Doogle.

**Doogle** · Nov 18th, 2012, 03:03 AM

Oops, sorry about that ! Must have been a last minute change that I didn't test or something. Glad it's working now though.

To mark the Thread as Resolved go to the top of the Thread and under the 'Thread Tools' menu, click on 'Mark Thread as Resolved', that will close it off.

Thread: no response after try to connect to remote host

Thread Tools

Display

no response after try to connect to remote host

Re: no response after try to connect to remote host

Re: no response after try to connect to remote host

Re: no response after try to connect to remote host

Re: no response after try to connect to remote host

Re: no response after try to connect to remote host

Re: no response after try to connect to remote host

Re: no response after try to connect to remote host

Posting Permissions