Cobol - problema con subprogramas

Estoy creando una aplicación y tengo un menú principal que llama a subprogramas donde en varios realizo salidas por impresora, el problema que tengo es que en estos subprogramas quiero llamar a otro que me visualice un proceso típico de carga (como al instalar un programa en Windows). Para realizar las llamadas a los subprogramas utilizo "CALL" y al final de cada subprograma utilizo "EXIT PROGRAM", esto funciona bien pero si en un subprograma llamo al del proceso de carga cuando este llega al fin se finaliza el programa en vez de volverme al subprograma que realizó la llamada, en este de carga también utilizo la instrucción "EXIT PROGRAM", ¿a qué puede ser debido? ¿Cómo lo puedo arreglar?

¿Estás seguro que durante la ejecición del programa la sentencia EXIT PROGRAM es alcanzada?.

pues no estoy seguro, tengo el programa en el trabajo, hoy lo miraré y por la noche te contesto

problema solucionado, gracias Diego