Ah, y también puede que te haga falta:
d P1ArrVal likeDS(ArrVal) dim(100)
Saludos.
Fernando Pérez
Cerámica Saloni. Dpto. Sistemas
Fernando Pérez escribió:
d P1ArrVal likeDS(ArrVal)
Salvo ese error, el resto parece estar bien.
Saludos.
Fernando Pérez
Cerámica Saloni. Dpto. Sistemas
Juan Carlos Paredes escribió:
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.
|
begin:vcard
fn;quoted-printable:Fernando P=C3=A9rez
n;quoted-printable:P=C3=A9rez;Fernando
org:;Sistemas
email;internet:[EMAIL PROTECTED]
tel;work:Ext. 627
x-mozilla-html:TRUE
version:2.1
end:vcard
