I have been involved in all kinds of perversions to access Data on our AS/400. Now I have a new tool in my toolchest:

Erlang (BEAM) emulator version 5.5.2

Eshell V5.5.2  (abort with ^G)
1> application:start(odbc).
ok
2> {ok,Ref} = odbc:connect("DSN=HD400",[{trace_driver,on}]).
{ok,}
3> odbc:sql_query(Ref, "SELECT * FROM ISB00"). 
{selected,["IBFNR",
           "IBBWSL",
           "IBLGNR",
           "IBARTN",
           "IBMNGB",
           "IBINFO",
           "IBFCOD",
           "IBDFSL",
           "IBSTAT"],
          [{"01",
            135,
            100,
            "85030               ",
            12.0000,
            "275                 ",
            "          ",
            "          ",
            "X"},
...
4> odbc:sql_query(Ref, "UPDATE SMKDIFP.IET00 SET ETDRET=2 WHERE ETSANR=355384").
{updated,1}

o/

Kommentar verfassen

Trage deine Daten unten ein oder klicke ein Icon um dich einzuloggen:

WordPress.com-Logo

Du kommentierst mit Deinem WordPress.com-Konto. Abmelden / Ändern )

Twitter-Bild

Du kommentierst mit Deinem Twitter-Konto. Abmelden / Ändern )

Facebook-Foto

Du kommentierst mit Deinem Facebook-Konto. Abmelden / Ändern )

Google+ Foto

Du kommentierst mit Deinem Google+-Konto. Abmelden / Ändern )

Verbinde mit %s