Perd�n por la pregunta tan tonta, no hag�is caso de la �ltima pregunta.
Un saludo y gracias a todos por vuestra ayuda. [EMAIL PROTECTED] -----Mensaje original----- De: Miquel Lerin Enviado el: jueves, 03 de junio de 2004 12:53 Para: [EMAIL PROTECTED] Asunto: RE: cobol, inicializacion registros fichero impresora El problema que tengo es que he modificado la estructura de un programa cobol y resulta que en la estructura anterior exist�a un INITIALIZE que ahora no me interesa que se realice, y claro el pgm se interrumpia dando un mensaje de datos decimales. Al ponerme a investigar llegue al punto en el cual me encuentro. Gracias por vuestra ayuda. Por cierto sab�is alguna manera de definir cada formato a parte, sin realizar el REDEFINES al nivel 01.???? -----Mensaje original----- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Enviado el: jueves, 03 de junio de 2004 12:41 Para: [EMAIL PROTECTED] Asunto: RE: cobol, inicializacion registros fichero impresora Que no, si te fijas en la listado de compilaci�n cada registro DET01, TOT01, CAB01 se crean con la cla�sula REDEFINES; esto significa que simplemente son diferentes formas de llamar a un mismo registro. No veo ning�n problema en esto, cuando imprimes un detalle que m�s da lo que habia en la cabecera. Eso si, al volver a pintar la cabecera debes cargar los campos otra vez. -----Mensaje original----- De: Miquel Lerin [mailto:[EMAIL PROTECTED] Enviado el: jueves, 03 de junio de 2004 12:36 Para: [EMAIL PROTECTED] Asunto: RE: cobol, inicializacion registros fichero impresora Lo tengo definido de la siguiente forma: FILE-CONTROL. SELECT Fichero ASSIGN TO FORMATFILE-Fichero-SI. FD Fichero LABEL RECORD IS OMITTED. 01 RIMP. COPY DDS-ALL-FORMATS OF Librer�a-Fichero. Estoy de acuerdo en que todos est�n agrupados dentro del nivel 01 RIMP. Pero lo que me despista es que si yo inicializo DETA-O que esta en un nivel 05, me inicialice tambi�n el CABE-O. Eso significa que cada vez que yo inicialice cualquier registro asociado al RIMP tendr� que volver a informar el resto de formatos ?�?�?�?�?�?�?� Por otra parte observo que tanto CAB-O como DET-O parece ser que tienen la misma estructura y eso no es as�. Cuando yo hago un INITIALIZE me tendr�a que inicializar solamente el registro de formato que yo estoy especificando en el INITIALIZE y no todos los formatos que est�n asociados a un mismo nivel 01. Otra cosa muy diferente seria que yo inicializara el nivel 01, entonces si que entiendo que me inicialice todos los formatos de registro asociados a dicho nivel. -----Mensaje original----- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Enviado el: jueves, 03 de junio de 2004 12:24 Para: [EMAIL PROTECTED] Asunto: RE: cobol, inicializacion registros fichero impresora Me imagino que habr�s definido en el Cobol el fichero as�: FD IMPR. 01 RIMPR. COPY DDS-ALL-FORMATS-O OF IXXX. Ya es lo normal, todos los formatos est�n debajo del nivel 01. O sea, todos comparten el mismo registro RIMPR. De todas formas no veo ning�n problema, es una forma de trabajar. -----Mensaje original----- De: Miquel Lerin [mailto:[EMAIL PROTECTED] Enviado el: jueves, 03 de junio de 2004 12:14 Para: [EMAIL PROTECTED] Asunto: RV: cobol, inicializacion registros fichero impresora Hola forum, tengo la siguiente situaci�n, a ver si me pod�is ayudar. Tengo un pgm cobol, que realiza un listado. El fichero de impresora esta compuesto por los siguientes registros: Registro de cabecera: CABE Registro de detalle: DETA Registro de totales: TOTA La situaci�n es que cuando realizo una inicializaci�n del registro DETA-O, me reinicializa el registro CABE-O y viceversa ocurre lo mismo. �Alguien se le ocurre por que? Gracias. Un saludo. [EMAIL PROTECTED] _____________________________________________________ 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] _____________________________________________________ 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] _____________________________________________________ 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] _____________________________________________________ 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] _____________________________________________________ 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] _____________________________________________________ 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]
