Creo que se hace as�, hace tiempo que no trabajo de esta forma y no te lo
puedo asegurar. Lo has de probar.
Hay va un ejemplo:
FILE-CONTROL.
SELECT RLLISTAT ASSIGN TO FORMATFILE-SBBLL803-SI
FILE STATUS IS ST-PRTFA.
FILE SECTION.
FD RLLISTAT.
01 BUFLLISTAT PIC X(500).
WORKING-STORAGE SECTION.
01 PRINT.
COPY DDS-CABECERA-O OF SBBLL803.
COPY DDS-LISTADO-O OF SBBLL803.
COPY DDS-LLISTBUIT-O OF SBBLL803.
COPY DDS-SALTPAG-O OF SBBLL803.
A la hora de imprimir.
WRITE BUFLLISTAT FROM CABECERA-O FORMAT "CABECERA"
-----Mensaje original-----
De: Miquel Lerin [mailto:[EMAIL PROTECTED]
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]
