Supongo que tiene que ver con el factor de bloque del archivo xxx, el numero de registros que componen un bloque de e/s. A mi me paso alguna vez, normalmente cuando el tamaño del registro era pequeño. Creo que en la definición del PF se puede jugar con este factor, yo no lo he hecho nunca. Lo que yo hacía igual no era ortodoxo pero funcionaba: forzar el cierre el archivo (CLOF) en el programa antes de la llamada al CL. Espero que te sirva. Luis _____
De: [email protected] [mailto:[email protected]] En nombre de Benito Hernandez Enviado el: jueves, 27 de enero de 2011 20:04 Para: forum.help400 Asunto: caso raro (duda) Tengo un programa que recibe parametros empieza hacer una serie de instrucciones y va grabando en un archivo XXX registro por registro . despues de haber grabado ciertos registros entra una subrutina y en esa subrutina vuelve a grabar mas registros al archivo XXX al termniar la subrutina le doy un CALL a un CL Este CL hace un CPYF que selecciona solo los registros que se fueron grabando en el programa al archivo XXX para dejarlos en un archivo con otro nombre YYYYYYYYYY (YYYYYYYYYY va cambiando de nombre de acuerdo a los parametros y solo se graba un campo del archivo XXX a YYYYYYYYY con *MAP y *DROP), despues del CALL al CL prendo el *INLR para finalizar el programa. EL problema que tengo es que cuando hace el copy no esta pasando los 3 ultimos registros al Archivo YYYYYYYYYY que se graban en el archivo XXX no entiendo por que no los copia, si cuando finaliza el programa y despliego el archivo XXX ahi estan los registros hagan de cuenta que esos registros se quedaron en memoria y no los muestra en el archivo XXX hasta que finaliza el programa con el *INLR aunque ya se hizo el write al archivo Espero me puedan dar una idea de lo que pudiera estar pasando les mando instrucciones de como esta definido el archivo y unas lineas que dan idea de lo que hace el programa: -- - - - - - - - - - - - - - - - - - - - - -- - - - - - -- - - - - -- - DEFINICION DE ARCHIVO PARA GRABAR FXXX O A E DISK se mueven a los campos diferentes valores y se graba el registro WRITE RXXX CLEAR RXXX esto de mover valores a campos y hacer el write y el clear se hace como 50 veces despues de grabar los 50 registros entra un IF como sigue IF tipimp = 'I' EXSR DETALLE ENDIF se ejecutan algunas instrucciones y despues de estas se hace un CALL CALL CLCPYF (Este CL hace el CPYF ) esta es la parte de la rutina que se ejecuta en el IF DETALLE BEGSR se mueven a los campos diferentes valores y se graba el registro WRITE RXXX CLEAR RXXX igual a qui se graban otros 50 registros en la rutina del detalle y termina la rutina ENDSR como les comento los ultimos 3 registros que se graban en la rutina de detalle no se van con el CPYF que se hace en el CL aunque esos 3 registros si cumplen las condiciones para que pasen Mucho Agradecere su ayuda y espero no haberlos enredado con mi readccion Saludos Benito Hernandez Rivera
____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L.
