Hola Luis:
Perdona que me he "rayado" ;-)
Define SER y VC en una DS y ya lo tienes resuelto:
DS
1 120 SER
1 120 VC
Y no hace falta que hagas los MOVE
Un saludo.
Juanra
----- Original Message -----
From: Luis .
To: forum.help400
Sent: Monday, September 07, 2009 11:33 AM
Subject: RE: Una de Series, vectores o Array, como quieran llamarlos
Hola Juan Ramón
Si uso movea, me dice que el campo resultado debe ser numérico, y claro no me
deja definir un campo numérico de 120 posiciones.
Un saludo
Luis
------------------------------------------------------------------------------
From: juanranei...@gmail.com
To: forum.help400@listas.combios.es
Subject: Re: Una de Series, vectores o Array, como quieran llamarlos
Date: Mon, 7 Sep 2009 11:17:50 +0200
Hola Luis:
Utiliza MOVEA en lugar de MOVE
Un saludo.
Juanra
----- Original Message -----
From: Luis .
To: forum.help400
Sent: Monday, September 07, 2009 11:07 AM
Subject: RE: Una de Series, vectores o Array, como quieran llamarlos
Vamos a ver si puedo aclarar mi problama a todos;
En la actualidad guardamos los movimientos de los artículos en un fichero
detallado, es decir un registro por cada movimiento, esto da mucho detalle,
pero es un poco lento y engorroso para sacar informes más generales. Por lo
tanto me planteo generar un fichero resumen donde para cada artículo haya una
serie de lo vendido mes a mes en euros, en unidades, de lo entregado por
logística .....
Con esta información resumida se pueden generar informes de una manera
rápida. No se si he sido lo suficiente mente expecífico, hay algún caso
concreto más, pero el problema es el mismo, pasar de información detallada a
acumulados mensuales.
Estoy tratando de probar la solución de Carlos, es decir poner en la dds un
campo del tamaño de la serie, y moverlo a una serie en el RPG, pero me está
dando errores al compilar. Recuerdo haber tenido estos errores ya otras veces,
pero no encuentro ahora mismo la solución. Les explico la Idea:
DDS
A R PRUSER TEXT('SERIES')
A CLAVE 6S 0 COLHDG('CLAVE')
A SER 120 COLHDG('Serie de 12 elemento de
10.0')
RPG
FPFPRUSERUF E K DISK
E VC 12 10 0
Leo el fichero y muevo
C CLASER CHAINPFPRUSER 41
C MOVE SER VC
Trato la serie y muevo para grabar
C MOVE VC SER (aquí me da error al compilar, me
dice que SER debe ser una serie)
C WRITEPRUSER
La opción de crear en la DDS un campo por cada elemento de la serie y luego
renombrar no la he probado, pero lo que trato de evitar es eso, definir un
montón de campos en la DDS y tener que estar poniendo una hoja I con el
renombre en cada RPG.
Un saludo
Luis
----------------------------------------------------------------------------
From: juanranei...@gmail.com
To: forum.help400@listas.combios.es
Subject: Re: Una de Series, vectores o Array, como quieran llamarlos
Date: Mon, 7 Sep 2009 10:14:28 +0200
Hola Javier:
La otra opción es posible que fuera definir los mismos campos del fichero
dentro de una DS donde también está definida la serie DAT con la longitud total
de la DS. Este método te permite acceder por nombre de campo o elemento de la
serie pero tiene la "pega" de tener que definir las posiciones inicial y final
de cada elemento de la serie.
Un saludo.
Juanra
----- Original Message -----
From: Javier Mora
To: forum.help400
Sent: Monday, September 07, 2009 9:52 AM
Subject: RE: Una de Series, vectores o Array, como quieran llamarlos
Hola Luis:
Este tema era algo que tenía muy claro hace muchos años, pero ahora me
falla la memoria. En mi caso utilizaba dos técnicas, aquí te muestro una (de la
otra no encuentro un ejemplo). Consiste en renombrar los campos del archivo con
elementos de una matriz. Aquí está el código:
E DAT 12 11 2
IRGCAFR 01
I CFV01D DAT,1
I CFV02D DAT,2
I CFV03D DAT,3
I CFV04D DAT,4
I CFV05D DAT,5
I CFV06D DAT,6
I CFV07D DAT,7
I CFV08D DAT,8
I CFV09D DAT,9
I CFV10D DAT,10
I CFV11D DAT,11
I CFV12D DAT,12
Si en nuestro archivo tenemos 12 campos (uno por mes) en formato numérico
empaquetado (11P2) yo defino una serie (DAT) de 12 posiciones de 11,2 (si te
das cuenta no es necesario que estén empaquetadas). A continuación renombro
cada uno de los campos del fichero con cada uno de los elementos de la serie.
En el programa se cargará automáticamente nada más leer el archivo. Este
sistema tiene una pequeñísima pega. Al renombrar los campos sólo podrás hacer
referencia a ellos a través de la serie (o matriz), no podrás utilizar el
nombre del campo directamente.
La otra opción que utilizaba permitía las dos posibilidades, pero no
encuentro ningún programa en donde la use.
Espero haberte aclarado algo sobre este asunto.
Javier
--------------------------------------------------------------------------
De: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Luis .
Enviado el: viernes, 04 de septiembre de 2009 14:43
Para: forum.help400
Asunto: RE: Una de Series, vectores o Array, como quieran llamarlos
En principio me siento más cómodo en RPG IV, pero si hace falta lo haré
con ILE, aunque no lo domino mucho y menos si es en Free, algo he hecho, pero
poco.
Un saludo
--------------------------------------------------------------------------
Subject: RE: Una de Series, vectores o Array, como quieran llamarlos
Date: Fri, 4 Sep 2009 12:11:31 +0200
From: jm...@musgrave.es
To: forum.help400@listas.combios.es
Hola Luis:
Que yo sepa, en las DDS no se pueden definir vectores sino como lo haces
ahora, campo a campo. Respecto al programa si se puede mejorar algo, ¿con qué
RPG lo harás, RPG IV o ILE RPG? Si no contesta alguien antes, voy a buscar
algún ejemplo.
Un saludo.
--------------------------------------------------------------------------
De: forum.help400-boun...@listas.combios.es
[mailto:forum.help400-boun...@listas.combios.es] En nombre de Luis .
Enviado el: viernes, 04 de septiembre de 2009 10:42
Para: forum.help400
Asunto: Una de Series, vectores o Array, como quieran llamarlos
Hola a todos.
La consulta puede resultar un poco densa, y más para un viernes. A ver si
consigo explicarme; Hasta ahora, para definir un vector, en la DDS definía un
campo por cada elemento del vector, luego en el RPG, definía un vector y movía
cada campo a su elemento correspondiente y ya podía usar el vector. Esta forma
que me enseñaron siempre me ha parecido algo pobre y poco elegante, pero como
hasta ahora no usaba demasiados vectores tampoco me ha molestado mucho. Además
la mayoría está en entorno 36 y allí se manejan más facilmente.
El problema me surge ahora que quiero mejorar las estadísticas, por lo
cual necesitaré bastantes vectores, típicos acumulados de ventas y demás. Me he
repasado los manuales de las DDS y RPG pero no consigo dar con una forma clara
de como hacerlo. Mi idea es poder definir en la dds un vector, sin tener que
hacerlo campo a campo, y poder leerlo/escribirlo en el RPG de como un vector.
Ya se que puede que la consulta sea demasiado pesada para explicarla en
un correo, pero un ejemplo o un enlace a un manual, libro rojo o libro (aunque
tenga que comprarlo) donde lo expliquen sería recibido como agüita de mayo ;-].
Un saludo
Luis
--------------------------------------------------------------------------
Con Vodafone disfruta de Hotmail gratis en tu móvil. ¡Pruébalo!
--------------------------------------------------------------------------
Hay tantos ordenadores como personas. ¡Descubre ahora cuál eres tú!
--------------------------------------------------------------------------
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
----------------------------------------------------------------------------
Celebramos el 10º aniversario de Messenger. ¡Únete a la fiesta!
----------------------------------------------------------------------------
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
------------------------------------------------------------------------------
Con Vodafone disfruta de Hotmail gratis en tu móvil. ¡Pruébalo!
------------------------------------------------------------------------------
____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400____________________________________________________
© Publicaciones Help400, S.L. - Todos los
derechos reservados http://www.help400.es
----------------------------------------------------
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
