Title: RE: ¿Cómo pasar una estructura de datos en array como parámetro?

Gracias, Fernando, efectivamente era esto.

Saludos.
Juan Carlos.

    -----Mensaje original-----
    De:     [EMAIL PROTECTED] [SMTP:[EMAIL PROTECTED] En nombre de Fernando Pérez
    Enviado el:     jueves, 15 de diciembre de 2005 19:41
    Para:   [email protected]
    Asunto: Re: ¿Cómo pasar una estructura de datos en array como parámetro?

    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.

         


    --
    No virus found in this incoming message.
    Checked by AVG Anti-Virus.
    Version: 7.1.371 / Virus Database: 267.14.0/203 - Release Date: 15/12/2005
     

     <<Archivo: fperez.vcf>> 

--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.1.371 / Virus Database: 267.14.0/203 - Release Date: 15/12/2005
 

Responder a