Hola Forer@
El programa RPG cuantos archivos tiene que abrir?El programa RPG cada vez que
lo invocan cuando terminar el programa lo hace con las instrucción *inlr = *on?
Si el programa es invocado muchas veces, recomiendo definir los archivos con la
instrucción USROPN, utilizar un parámetro de entrada para abrir o cerrar
archivos (OPCL Alfa de 1). En el programa RPG incluir las instrucciones para
los siguiente:
Cuando el parámetro OPCL es igual a blancos, si no están abiertos los archivos,
abrir todos los archivos con la instrucción open y cuando termine el programa
utilizar la instrucción return.
Cuando el parámetro OPCL es igual a 'C', si están abiertos los archivos, cerrar
todos los archivos con la instrucción close y cuando termine el programa
utilizar la instrucción *inlr = *on.
Lo anterior hace que el programa al invocarlo con el parametro OPCL en blancos
abra todos los archivos una sol vez y las siguientes veces que lo invoquen con
el parámetro OPCL en blancos no tendrá que volver a abrir los archivos porque
ya los tiene abiertos. Para no dejar los archivos abiertos, cuando no se
requiera ejecutar más el programa RPG, se invoca con el parametro OPCL es igual
a 'C'.
fARCHIVO uf e k disk usropn * if OPCL = *blanks; if
not %open(ARCHIVO); open ARCHIVO;
endif; lógica de programa else; close(e) ARCHIVO;
*inlr = *on; endif; return;
Espero que te ayude
Date: Wed, 6 Aug 2014 14:11:26 -0400
Subject: Msg:Demasiados archivos abiertos para procesar
From: [email protected]
To: [email protected]
Hola estoy ejecutando un programa Rpg que no abre archivos y cual llama a
programa socket al llegar a las 200 llamadas me aborta el programa y me da el
mensaje anterior. Solo se normaliza cuando cierro la sesión. Alguien me podría
ayudar. Gracias.
Enviado desde Samsung Mobile
____________________________________________________
�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.
