Una manera de controlar las llamadas recursivas en RPG (ILE o OPM), es
intentar "comunicarse" con el programa: si no est� en la pila, se produce un
error, lo monitorizas y ya lo tienes as� controlado. Todo ello se puede
hacer con un CLP al que le pasas por par�metro el nombre del programa RPG a
llamar y te devuelve un par�metro '1' o '0' (est� o no en la pila), y
entonces no llamas al programa en cuesti�n, con lo que evitas que pete.
Te muestro el c�digo del CLP :
PGM PARM(&PGM &ESTA)
DCL VAR(&PGM) TYPE(*CHAR) LEN(10) /* PROGRAMA A MIRAR */
DCL VAR(&ESTA) TYPE(*LGL)
CHGVAR VAR(&ESTA) VALUE('1')
RCVMSG PGMQ(*SAME &PGM) RMV(*NO) /* MIRA C�A MISSATGES */
MONMSG MSGID(CPF2479) EXEC(CHGVAR &ESTA '0')
ENDPGM
Saludos,
Marcel.
-----Mensaje original-----
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED]]En nombre de Jose Luis Cabrera
Enviado el: viernes, 12 de abril de 2002 13:41
Para: [EMAIL PROTECTED]
Asunto: Llamada de programa recursiva
Buenos d�as foro, mi pregunta es la siguiente y creo que ya ha salido en
alguna ocasi�n en el foro:
Tengo un programa ILE RPG que se llama de forma recursiva y quisiera
controlar esa llamada para que no petara el programa.
Quisiera saber si es posible controlarlo y de que forma
Un saludo y gracias por adelantado.
_____________________________________________________
Forum.HELP400 es un servicio m�s de NEWS/400.
� Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
