KEA!420 Welke Telnet client ondersteund deze taal?

[Da_maniaC]

Hallo,

Ik ben via mijn werk een werkplek tegen gekomen waar men nog steeds vast moet blijven houden aan Windows 7 32-bit omdat er een bepaalde telnet client (Attachmate KEA!420) wordt gebruikt met weergaloos veel macro's.
Binnen afzienbare tijd verwacht ik eigenlijk dat alle machines binnen het bedrijf (dus ook deze) een keer vervangen gaan worden voor nieuwe Windows 10 apparaten.

Nu vroeg ik mij af, of iemand hier misschien bekend is met een nieuwere Telnet client welke ook ondersteuning bied voor macro's en wellicht dezelfde taal ondersteund (volgens mij lijkt het op PASCAL).

Ik heb hier een voorbeeld van wat code:

code:

// --------------------------
// Macro met code voorbeeld
// --------------------------


var pad = "U:\locatiemutatie.csv"
var magnr, stelling, diepte, nivo, locatienr
var positie 
var t


Function LeesData()
    FileHandle = FileOpen( "U:\locatiemutatie.csv", File_Read )
    
    n=0

    While NOT FileEnd( FileHandle )

        regel = FileRead( FileHandle )
        n=n+1
        
        Magnr[n]        = LeesCSV(regel, 1)
        Stelling[n]     = LeesCSV(regel, 2)
        Diepte[n]       = LeesCSV(regel, 3)
        Nivo[n]         = LeesCSV(regel, 4)
        Locatienr[n]        = LeesCSV(regel, 5)

    end
End

// ---------------------------------------------------------------------------
// Zoekt de N'e string in RGL; entries gescheiden door een , of een ; 
// ---------------------------------------------------------------------------

Function LeesCSV(rgl, n)
    Kar = substr(rgl, 1, 1)

    while n <> 1
        if Kar = "," OR Kar = ";" 
            rgl = substr(rgl, 2, len(rgl))
            Kar = substr(rgl, 1, 1)
            n=n-1
        else
            rgl = substr(rgl, 2, len(rgl))
            Kar = substr(rgl, 1, 1)
        end
    end

    a=1
    einde = false
    lengte = len(rgl)

    while not einde
        Kar = substr(rgl, a, 1)
        
        if Kar = "," OR Kar = ";" OR a > lengte
            einde = true
        else
            a = a + 1
        end
    end

    rgl = substr(rgl, 1, a-1)

    Return rgl
End


// --------------------------------------------------------------------------------------
// Controleert of de cursor zich op de juiste positie bevind.
// --------------------------------------------------------------------------------------

Function PositieControle(rij, kolom)
    positie = FALSE
    cursor = GetCursor()
    row = Cursor["ROW"]
    col = Cursor["COL"]

    if rij = row AND kolom = col
        positie = TRUE
    end 
    
    return positie
End


// --------------------------------------------------------------------------------------
// Vraagt om coordinaten en een string controleert of dit werkelijk op die plaats staat. 
// --------------------------------------------------------------------------------------

Function ChkScr( beginregel, beginkolom, eindregel, eindkolom, checkstring )
    var StrMatch

    extract = ScreenRead( Type=Select_Block, Row=beginregel, Col=beginkolom, EndRow=eindregel, EndCol=eindkolom )

    if extract = checkstring
        StrMatch = TRUE
    else
        StrMatch = FALSE
    end

    return StrMatch
End

[Cypher87]

Wellicht de opvolger van KEA?

https://www.microfocus.com/products/reflection/desktop/

[Bigs]

Zo te zien draaien ze al minstens tien jaar gratis op niet ondersteunde software: https://support2.microfoc...e/version-status.html?kea

Wellicht wordt het nu tijd om eens wat in de IT infrastructuur te investeren ipv dit soort lapmiddelen aan te houden? Vroeg of laat loop je vast en dan is er niemand die je kan helpen.

[Da_maniaC]

@Cypher87 Ik heb inmiddels contact gehad met Microfocus. Zij geven aan alle macros te kunnen herschrijven om te werken op hen Reflection client (met alle belachelijk hoge kosten van dien).

Echter zou dit gaan om een recompile van Pascal naar VBA. Zou dit met een tool wellicht ook te hercompileren zijn? Ik kan mij voorstellen dat dit niet 100% foutloos gaat, maar zou je zo al niet een heel eind moeten kunnen komen?

[-Klimaks-]

afaik werkt KEA!420 gewoon op Windows 10 (32 & 64bit), nooit problemen mee gehad eigenlijk. Heb je het al getest op Win10?

[Verwijderd]

*knip spam*

[ Voor 90% gewijzigd door NMe op 26-02-2018 15:03 ]