Title: Mensaje
Ya, pero lo que yo te dec�a es que conviertas el rpg III a ILE, manteniendo el que usa el SRVPGM con Actgrp=*Caller.
 
Para intentar deducir que pasa, vuelvo a preguntar:
 
�HAs probado a depurarlo?. �Se te genera alg�n log? �El archivo es de apertura manual, y en alg�n momento haces Close?
 
Creo que el problema est� en que no se haga close del fichero en el programa de servicio. Si esto pasa, en ciertos casos se da que el indicador de fichero abierto est� a True cuando �ste se ha cerrado o al rev�s, con lo que en la siguiente llamada al programa, el primer acceso al fichero da error. Esto no ocurre si el grupo de activaci�n del programa es *new, porque en ese caso, adem�s de cerrarse los ficheros se inicializa la memoria del proceso, con lo que el indicador de fichero abierto tiene el valor correcto.
 
Para evitar esto, yo habilito en los programas de servicio una funci�n que cierra todos los ficheros que utilizan, y hago que los programas que los usen llamen a esa funci�n antes de finalizar.
 
 

Saludos.

Fernando P�rez.

Cer�mica Saloni. Dpto. Sistemas

<mailto:[EMAIL PROTECTED]>

-----Mensaje original-----
De: Nico AS/400 [mailto:[EMAIL PROTECTED]
Enviado el: lunes, 27 de octubre de 2003 16:16
Para: [EMAIL PROTECTED]
Asunto: Re: Service Programs y Act Groups.

Hola Fernando.
Claro el problema esta en que si el programa ILE que usa el SRVPGM tiene ACTGRP *NEW, funciona.
 
Ahora este PGMILE en el que tengo el Problema debe tener actgrp *CALLER ya que comparte un subfile con un programa RPGIII.
Ya me paso con este caso que le tuve que poner *CALLER sino no podia leer el subfile compartido.
 
Lo he resuelto haciendo un peque�o programa en ILE (con ACTGRP *NEW)  que es llamado por el anterior ILE (ACTGRP = *CALLER ) y ahora no falla.
 
Pero me gustaria tener una idea de porque sucede.
 
Saludos
Y gracias
 
----- Original Message -----
Sent: Monday, October 27, 2003 5:32 AM
Subject: RE: Service Programs y Act Groups.

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

Attachment: Fernando P�rez.vcf
Description: Binary data

Responder a