As400 Code Example