creeria que con punteros lo podrias resolver.
d ArrVal ds dim(100) qualified
d Val 15p 5
d Tpc 5p 2
d medpon pr 15p 5
d pArrVal * value
/free
Media=medpon(%addr(ArrVal));
/end-free
en el subrutina realizas lo siguiente
p medpon b Export
d medpon pi 15p 5
d pArrVal * value
d P1ArrVal based(pArrVal) like(ArrVal)
tal vez algo similar a lo anterior...
_________________________________
----- Original Message -----
From: "Juan Carlos Paredes" <[EMAIL PROTECTED]>
To: "Forum Help 400" <forum.help400@combios.es>
Sent: Thursday, December 15, 2005 2:17 PM
Subject: *****SPAM***** ¿Cómo pasar una estructura de datos en array como
parámetro?
Buenas tardes, foro:
Me encuento con el siguiente problema. Tengo que pasarle a un programa una
estructura de datos que es al mismo tiempo un array, y recibo el siguiente
error en la compilación:
RNF5343 30 1 La matriz tiene demasiados índices omitidos; se ignora la
especificación.
Las definiciones son las siguientes:
d Media s 15p 5
d ArrVal ds dim(100) qualified
d Val 15p 5
d Tpc 5p 2
d medpon pr 15p 5
d P1ArrVal like(ArrVal)
/free
Media=medpon(ArrVal);
/end-free
y MEDPON es un procedimiento que lo que debe hacer es calcular la media
ponderada de los valores que van en VAL, ponderándolos con el porcentaje
indicado en TPC. El error antes indicado me lo da en la línea de llamada al
procedimiento.
¿Alguna sugerencia o idea?
Gracias y saludos.
Juan Carlos.
--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.1.371 / Virus Database: 267.13.13/200 - Release Date: 14/12/2005
__________________________________________________
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
