No se porque sucede esto, pero a mi también me ha pasado en alguna ocasión sobre todo cuando se combinan llamadas entre RPG-LE y RPGIII. Creo que es por los grupos de activación, que el RPGIII abre uno y el ILE aunque tenga CALLER y debiera coger el que esta abierto no lo hace.
Yo tome la decisión de definir todos los ficheros de Apertura manual en los
SRVPGM. En cada procedimiento abro los que utiliza y los cierro al final.
De este modo no he tenido ningún problema además si el Programa de
servicios tiene muchos procedimientos y tienes definidos muchos ficheros
solo abres los necesarios para cada PI.
Espero que te sirva de ayuda.
Un Saludo,
Jose Luis Aguilera Fernández
Dpto. Informática
E.D. Rueda
E-mail: [EMAIL PROTECTED]
Tlf 914-343-860
___________________________________________________________
"Este mensaje y los documentos que, en su caso, lleve anexos, pueden
contener información confidencial. Por ello, se informa a quien lo reciba
por error que la información contenida en el mismo es reservada y su uso no
autorizado está prohibido legalmente , se abstenga de realizar copias
del
mensaje o remitirlo o entregarlo a otra persona y proceda a borrarlo de
inmediato."
___________________________________________________________
Fernando Pérez
<[EMAIL PROTECTED]
m> Para
Enviado por: "'[EMAIL PROTECTED]'"
forum.help400-req <[EMAIL PROTECTED]>
[EMAIL PROTECTED] cc
Asunto
27/10/03 09:32 RE: Service Programs y Act Groups.
Por favor,
responda a
[EMAIL PROTECTED]
bios.es
Corrección a la pregunta: ?El archivo es de APERTURA manual, y en algún
momento haces Close?
Lunes por la ma?ana ... :)
Saludos.
Fernando Pérez.
Cerámica Saloni. Dpto. Sistemas
<mailto:[EMAIL PROTECTED]>
-----Mensaje original-----
De: Fernando Pérez [mailto:[EMAIL PROTECTED]
Enviado el: lunes, 27 de octubre de 2003 9:07
Para: '[EMAIL PROTECTED]'
Asunto: RE: Service Programs y Act Groups.
Lo que seguro no te fallará : convierte el RPG III a ILe y ponle
actgrp(*New). (con cvtrpgsrc es inmediato, como mucho te tocará quitar los
Free que tuviera).
De todas maneras, no entiendo por qué te falla el srvpgm. ?HAs probado a
depurarlo?. ?Se te genera algún log? ?El archivo es de lectura manual, y en
algún momento haces Close?
Saludos.
Fernando Pérez.
Cerámica Saloni. Dpto. Sistemas
<mailto:[EMAIL PROTECTED]>
-----Mensaje original-----
De: Nico Machado [mailto:[EMAIL PROTECTED]
Enviado el: viernes, 24 de octubre de 2003 23:35
Para: Foroas400
Asunto: Service Programs y Act Groups.
Hola voy a tratar de explicarme lo mejor que pueda.
Tengo un programa RPG/III llama a una Programa RPG/ILE, como comparten una
pantalla de intercambio de datos, le tuve que poner al ILE ACTGRP *CALLER.
Este ILE llama a un Procedimiento que esta dentro de un Service Programa,
este service Program Abre un archivo.
Lo mas curioso es que si el ILE que llama al Service program fue compilado
con ACTGRP *CALLER, el service program cancela al acceder al archivo, yo
miro con PETSYS/3/14 y efectivamente el archivo no esta abierto.
Ahora si cambio el Programa ILE y lo Compilo con ACTGRP *NEW, luego al
llamar al Service Program, el archivo lo abre perfecto.
Esta es alguna informacion de Service Program.
Fecha/hora de creación del programa de servicio : 25/07/02 16:25:04
Archivo fuente de exportación . . . . . . . . . : QRPGLESRC
Biblioteca . . . . . . . . . . . . . . . . . . : QGFDEVLIB
Miembro de exportación . . . . . . . . . . . . . : ZSPUTBLI
Atributo de grupo de activación . . . . . . . . : *CALLER
Grupo de activación compartido . . . . . . . . . : *NO
Tengo que tocar alguno de los valores en rojo???
Hay algo que pueda hacer que no me afecte al Service Program??
Gracias
Saludos
---
Este Mail NO contiene Virus.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.530 / Virus Database: 325 - Release Date: 22/10/03
(See attached file: Fernando Pérez.vcf)
Fernando Pérez.vcf
Description: Binary data
