Yo creo recordar que hacía algo parecido a lo que se comenta aquí, con
RPG-FREE o sin él:

https://www.mcpressonline.com/programming/rpg/practical-rpg-activation-groups-and-inlr

<https://www.mcpressonline.com/programming/rpg/practical-rpg-activation-groups-and-inlr>
Al principio del programa se inserta este código p.ej., y cuando se quiere
descargar el programa de memoria y que cierre todo, se le llama sin
parámetros, o con algún parámetro expresamente para ello, para que active
el LR y termine con todo cerrado en el RETURN:

       // Check for shutdown request
       if %parms = 0;
         *inlr = *on;
         return;
       endif;






El mar, 27 abr 2021 a las 12:50, Javier Baca Lechuga (<[email protected]>)
escribió:

> Buenos días,
>
> ¿Entonces cómo se haría en ile free?
>
> Saludos,
> Javier
> ------------------------------
> *From:* Forum.help400 <[email protected]> on
> behalf of Alberto Martinez <[email protected]>
> *Sent:* Tuesday, April 27, 2021 7:20:25 AM
> *To:* forum.help400 <[email protected]>
> *Subject:* RE: Eliminar programa de memoria
>
>
> Buenos días.
>
> Haciendo memoria…diría que en ILE’Normal’ ya no estaba soportado.
>
> De hecho, creo que con el CVTRPGSRC ya te tendría que dar el error de la
> sentencia  FREE
>
> Saludos.
>
>
>
> *De:* Forum.help400 <[email protected]> *En
> nombre de *Javier Baca Lechuga
> *Enviado el:* viernes, 23 de abril de 2021 19:24
> *Para:* forum.help400 <[email protected]>
> *Asunto:* ** Newsletter ** Eliminar programa de memoria
>
>
>
> Buenas tardes :
>
>
>
> Tengo un programa A escrito en RPG-III (no ILE) que en un bucle llama
> muchas veces a un programa B.
>
>
>
> Para agilizar la ejecución del programa A, el programa B  acaba con RETRN
> (para dejarlo en memoria).
>
>
>
> Cuando finaliza el bucle del programa A, quito de memoria el programa B
> con FREE ‘B’.
>
>
>
> Hasta aquí, todo correcto.
>
>
>
> En RPG ILE FREE, parece que la sentencia FREE no compila.
>
>
>
> ¿Sabe alguien si realmente la han quitado o es que en RPG ILE FREE no hace
> falta liberar memoria porque al finalizar A ya lo hace el sistema?.
>
>
>
> Un saludo y muchas gracias,
>
>
>
> Javier
>
>
> ____________________________________________________
> Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
> Forum.Help400 © Publicaciones Help400, S.L.
____________________________________________________
�nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 � Publicaciones Help400, S.L.

Reply via email to