Yo también sufrí este problema hace tiempo. Primero un consejo: olvídate de técnicas que con OPM RPG funcionaban muy bien, muchas de ellas no tienen sentido en ILE.
Este problema yo lo he resuelto lanzando “excepciones”. En el RPG clásico podíamos tener anidadas una infinidad de llamadas EXSR y en cualquier punto de este “camino” podíamos finalizar el programa con un Return (*InLR = *ON si queríamos cerrar ficheros también). La solución de Juan Carlos es posible pero “afea” muchísimo el programa. En mi caso, yo estudié varias alternativas y, al final, opté por la opción que explico aquí. La idea consiste en “lanzar” un mensaje de escape cuando se quiera cancelar un programa. Esta no es, ni mucho menos, una técnica novedosa y se utiliza en lenguajes como Java y C++ desde hace años. El IBM i lleva integrado en el sistema operativo un control de mensajes que permite “lanzarlos” y “atraparlos”. Cuando envías un mensaje de escape, éste recorre toda la pila de llamadas hasta que es manejado por programa o por el sistema. En mis programas, una salida de este tipo siempre se produce por un motivo excepcional del cual quiero informar. Para mantener estos mensajes bajo control deberás utilizar “Monitor” en RPG o MONMSG en CL. No sé si he sido capaz de explicar la técnica. En mi caso se ha desarrollado un programa de servicio con la funcionalidad necesaria para “lanzar” (throw), “atrpar” (catch) y consultar la excepción manejada. Estas utilidades utilizan las APIs del sistema para el manejo de funciones. Saludos, Javier Mora De: forum.help400-boun...@listas.combios.es [mailto:forum.help400-boun...@listas.combios.es] En nombre de ostatu ostatu Enviado el: miércoles, 15 de marzo de 2017 10:13 Para: forum.help400@listas.combios.es Asunto: Necesito una ayudita con los subprocedimientos :-) Hola. Estoy empezando a utilizar los subprocedimientos en vez de las "clasicas" subrutinas y me acabo de encontrar con un problema que no soy capaz de resolver. Cuando trabajo con subrutinas y deseo finalizar el programa puedo codificar un *inLR = *on y un Return en cualquier parte y el programa finaliza, pero si intendo hacer los mismo en un subprocedimiento no hay manera de que el programa finalize inmediatamente :-( Este es el pgm de ejemplo. H DFTACTGRP(*NO) /free dsply 'inicio main' ; sub1() ; dsply 'final main' ; *inLR = *on ; Return ; /end-free p sub1 b d pi /free dsply 'inicio sub1' ; finalizar_pgm() ; dsply 'final sub1' ; /end-free p e * p finalizar_pgm b d pi /free dsply 'inicio finalizar_pgm' ; *inLR = *on ; Return ; dsply 'final finalizar_pgm' ; /end-free p e He probado a llamar a una subrutina desde el subprocedimiento (Exsr) para hacer el LR y el Return pero al compilador no le ha gustado con lo que deduzco que no se pueden hacer Exsr dentro de los subprocedimientos ... ¿Alguna idea de como solucionar el problema? Saludos Ostatu
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.