Calling procedure S_FCUST :
HOpenConnection(MaConnection1)
sRPG is a string = [
DS_CUST E DS extname(S_CUSTOMER);
S_FCUST PR LIKEDS(DS_CUST);
TERM1 5P 0
]
IF NOT ASXMLDefine("RPG",sRPG ,MaConnection1) THEN
Info(ErreurInfo())
ELSE
Info("The definition has been loaded")
END