COBCH0583 EXIT PROGRAM in GLOBAL declarative