As400 syntax fix production