CL Programming for the IBM AS/400