As400 API bug fix