Code snippets for IBM (CL/RPG/CMD)