eacret is int
CmdLine is string
RetVal is string
// Connect to AS/400
IF NOT HOpenConnection("MyConnection",user,pwd,ipadress,hNativeAccessAS400,hOReadWrite,"") THEN
Info(HErrorInfo())
END
// Write to DATAARA
CmdLine="chgdtaara dtaara(easycom/dtaara) value('Hello World')"
IF NOT ASExec(CmdLine) THEN
Info(ErrorInfo())
END
// Retreive DTAARA value
CmdLine = "rtvdtaara dtaara(easycom/dtaara *ALL) rtnvar(&var1)"
eacret = ASRtvCall(CmdLine)
IF NOT eacret THEN
Info(ErrorInfo())
END
// Lecture du Result
RetVal = ASRtvResult("var1")
IF NOT RetVal = "0" THEN
Info("New DTAARA value is : " + RetVal)
ELSE
Info("L'appel a échoué")
END
HCloseConnection("MyConnection")