Re: Varying de 32767

Mon, 21 Aug 2006 15:50:30 -0700

Este es el problema que tengo, incluso con tu ejemplo
 
> EVAL ml                                                               
  ML =                                                                  
            ....5...10...15...20...25...30...35...40...45...50...55...60
       1   ' ajut400.com varying ajut400.com varying ajut400.com varying'
      61   ' ajut400.com varying ajut400.com varying ajut400.com varying'
     121   ' ajut400.com varying ajut400.com varying ajut400.com varying'
     181   ' ajut400.com varying ajut400.com varying ajut400.com varying'
     241   ' ajut400.com varying ajut400.com varying ajut400.com varying'
     301   ' ajut400.com varying ajut400.com varying ajut400.com varying'
     361   ' ajut400.com varying ajut400.com varying ajut400.com varying'
     421   ' ajut400.com varying ajut400.com varying ajut400.com varying'
     481   ' ajut400.com varying ajut400.com varying ajut400.com varying'
     541   ' ajut400.com varying ajut400.com varying ajut400.com varying'
     601   ' ajut400.com varying ajut400.com varying ajut400.com varying'
     661   ' ajut400.com varying ajut400.com varying ajut400.com varying'
     721   ' ajut400.com varying ajut400.com varying ajut400.com varying'
     781   ' ajut400.com varying ajut400.com varying ajut400.com varying'
     841   ' ajut400.com varying ajut400.com varying ajut400.com varying'
     901   ' ajut400.com varying ajut400.com varying ajut400.com varying'
     961   ' ajut400.com varying ajut400.com varying ajut400.com varying'
    1021   ' aju'    
 
Pero al programa le realizo un dump antes del lr y se puede observar la variable con toda la información
 
ML                    CHAR(32767) VARYING  ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        81                 ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        161                ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        241                ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        321                ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        401                ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        481                ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        561                ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        641                ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        721                ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        801                ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        881                ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        961                ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        1041               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        1121               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        1201               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        1281               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        1361               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        1441               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        1521               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        1601               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        1681               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        1761               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        1841               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        1921               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        2001               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        2081               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                                                                                                                        Págin
VUELCO CON FORMATO ILE RPG/400                                                                                              
                        2161               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        2241               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        2321               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        2401               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        2481               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        2561               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        2641               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        2721               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        2801               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying' 
                        2881               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        2961               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        3041               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        3121               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        3201               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        3281               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        3361               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        3441               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        3521               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        3601               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        3681               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        3761               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        3841               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        3921               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        4001               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        4081               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        4161               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        4241               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        4321               ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'  
:
:
:
                        19121              ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        19201              ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        19281              ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        19361              ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        19441              ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        19521              ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        19601              ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        19681              ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        19761              ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        19841              ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'
                        19921              ' ajut400.com varying ajut400.com varying ajut400.com varying ajut400.com varying'                                                
----- Original Message -----
Sent: Monday, August 21, 2006 2:21 PM
Subject: Re: Varying de 32767

Hola de nuevo:

Quizás sea un problema del depurador. ¿que quieres decir con que solo puedes observar 1024 ?

En mi equipo en V5R2 he probado este fuente, y puedo observar el total del campo "ml" en el debug, que al finalizar el bucle contiene información hasta los 19000 caracteres aproximadamente.

Haz la prueba de este ejemplo en tu sistema

d ml              s          32767    varying                   
                                                                
c                   do        1000                              
c                   eval      ml = ml + ' ajut400.com varying'  
c                   enddo                                       
c                   eval      *inlr = *on                       

Salu2

El día 21/08/06, Jaime Villa Torres <[EMAIL PROTECTED]> escribió:
Alex, el problema real es, estoy de debug y la variable de 32767 que es varying, tiene información de unos 4000 caracteres, pero únicamente puedo observar 1024, pero la información esta completa, escribimos esta trama en un archivo cuando entra al programa y efectivamente esta toda la información.
 
----- Original Message -----
Sent: Monday, August 21, 2006 1:39 AM
Subject: Re: Varying de 32767

Hola Jaime:

No indicas el nivel de PTFs de tu sistema ni proporcionas un ejemplo, pero como indicas que en v4r5 funciona pienso que puede ser un problema de PTFs:

Asegurate de tener instalada la PTF SI10630

El cover letter de la PTF parece coincidir con tu problema.
http://www-912.ibm.com/a_dir/as4ptf.nsf/ALLPTFS/SI10630

Nota: Está sustituida por la SI24621
http://www-912.ibm.com/a_dir/as4ptf.nsf/ALLPTFS/SI24621

El día 21/08/06, Jaime Villa Torres <[EMAIL PROTECTED]> escribió:
Tengo una variable varying de 32767, pero únicamente llena hasta la posición 1024, esto en v5r2m0 pero en v4r5 funciona perfectamente.
 
Alguna sugerencia.
 
Gracias.



--
Mi blog sobre as400
http://www.ajut400.com



--
Mi blog sobre as400
http://www.ajut400.com

Responder a