as400 communication code