Gracias a todos. Ya funciona. Pero poniendo la DS con la definicion de campos tal cual sin EXTNAME,no me pregunteis por qué. Y tampoco sé por qué, pero OUTFILFMT(*TYPE2) tampoco me funciona,peta al hacer el DSPJRN y me da el error CPF9860,que este formato no es válido. Le he puesto Type3 y funciona ¿? En fin...
Os explico la mecánica por si os sirve,aunque en esto yo soy novato:
Hago un Journal de varios ficheros y al hacer el DSPJRN pongo para JOESD la longitud de registro del fichero más grande,luego leo el journal y paso este campo a una variable que sí tiene la longitud de registro del fichero registrado por diario y llamo a un programa que procesa cada fichero. El problema me lo daban los empaquetados que habia por medio,pero parece que ahora funciona
| Pedro Pinedo <[EMAIL PROTECTED]>
Enviado por: [EMAIL PROTECTED] 27/10/05 07:46
|
|
Tal vez el problema sea que el campo JOEDS varia segun el archivo que recuperes del journal ¿por que no ejecutas el DSPJRN del archivo en cuestion solamente? en el parametro de longitud (ENTDTALEN) debes poner la del fichero a leer y OUTFILFMT(*TYPE2)
Pedro Pinedo Hernandez: Analista-Programador
Grupo Amcor Flexibles Hispania S.L.
Planta: Tobepal Logroño
Departamento de Informática / IT Department
tfno.:+34 941 28 60 90 - 941 03 01 39
fax: +34 941 20 75 43
26006 Logroño Spain
[EMAIL PROTECTED]
(quitar nospam del dominio, para enviar)
[EMAIL PROTECTED] wrote on 26/10/2005 17:52:59:
>
> A ver.No me sale.No lo debo de hacer bien:
> Tengo un programa que lee todo el journal como Input Primary, y
> dependiendo del archivo registrado,manda el registro como parámetro
> a un programa u otro. En este caso el programa es este:
> FLogealbcc O a E k Disk
> DRegealbcc e DS Extname(Logealbcc)
> DXCSITU 1 13
> DXCTIPO 1
> DXCEMPR 3p 0
> DXCNALB 6s 0
> DXCCLIA 5p 0
> DXCRUTA 2s 0
> DXCDEXP 8p 0
> DXCTBAS 11p 2
> DXCTALB 11p 2
> c *entry plist
> c parm @entrada 2
> c parm @nrr 10 0
> c parm @regealbcc 272
> C Move @regealbcc Regealbcc
> Los datos que me llegan en el @regealbcc corresponden al campo JOEDS
> del fichero generado por el journal.
> *
>
>
> alex martinez <[EMAIL PROTECTED]>
> Enviado por: [EMAIL PROTECTED] 26/10/05 11:09
>
> Por favor, responda a
> [email protected]
>
> Para
>
> [email protected]
>
> cc
>
> Asunto
>
> Re: Una de Journals
>
>
>
>
> No es complicado
>
> en un ILE-RPG creas una DS con el formato de registro y mueves el
> campo JOESD a la DS
>
> d registro e ds extname ( fichero )
>
> c move joeds registro
>
>
> El 26/10/05, [EMAIL PROTECTED]<[EMAIL PROTECTED]> escribió:
> >
> > Hola
> > Una pregunta para los que entendeis de Journals,que yo la verdad,no tengo
> > mucha idea:
> > En el refistro hay un campo variable que se llama JOESD y que contiene los
> > datos de todo el registro del fichero 'journalizado' en cuestión. Cuando en
> > este fichero tengo campos empaquetados se me descogorcian los datos del
> > campo del journal y no los puedo recuperar. Cómo lo haceis vosotros?
>
>
> --
> Mi blog sobre as400
> http://www.ajut400.com
>
> __________________________________________________
> 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 visita la siguente URL:
> http://coyote.combios.es/mailman/listinfo/forum.help400
______________________________________________________ AMCOR FLEXIBLES - LEADING THROUGH INNOVATION ______________________________________________________ CAUTION - This message may contain privileged and confidential information intended only for the use of the addressee named above. If you are not the intended recipient of this message you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify AMCOR FLEXIBLES immediately. Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of AMCOR FLEXIBLES.
