A do group was open at the end of the program.
Add the missing ENDDO command. Then try the CRTCLPGM command again.
(C) Copyright IBM Corporation 1992, 2006. All Rights Reserved.