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]

Responder a