Re: Fichero separado por caracter |

[Pedro Pinedo]

mira a ver si te sirve
c                   movea     registro      tex             250      
c                   exsr      campo                                  
c                   eval      campo1=%trim(cam250)                    
c                   exsr      campo                                  
c                   eval      campo2=%trim(cam250)                    
 *****************************************************************    
 *                                                               *    
 *  campo : INICIALIZA CAMPOS                            *    
 *                                                               *    
 *****************************************************************    
C     campo         BEGSR                                            
c                   move      *blanks       cam250          250      
c                   movea     cam250        cam                      
C                   z-add     1             n1                2 0    
C     N             DOWLE     250                                    
C     n1            andLE     250                                    
C     tex(n)        andne     '|'                                    
C                   MOVE      tex(N)        cam(n1)                    
C                   ADD       1             n1                          
C                   ADD       1             N                          
C                   ENDDO                                              
c                   movea     cam           cam250                      
c                   endsr                                    
         
Pedro Pinedo Hernandez:  Analista-Programador
Grupo Amcor Flexibles Hispania S.L.  
Planta: Tobepal Logroño
Departamento de Informática / IT Department
tfno.:+34 941 28 60 90 - 941 03 01 39
fax: +34 941 20 75 43
26006 Logroño Spain
[EMAIL PROTECTED]
(quitar nospam del dominio, para enviar)


[EMAIL PROTECTED] wrote on 22/03/2006 11:54:35:

> Hola foro:
>
> Tengo un fichero que recupero de un sitio FTP y en el que los camposme vienen
> separados por el caracter "|". Son un montón de campos y el programade pasar a
> un fichero de 400 se me está complicando bastante.
>
> ¿Tiene alguien alguna rutina o algún truco para poder hacer algo de esto?.
>
>
> Gracias
>
>
>
> __________________________________________________
> 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
_______________________________________________ AMCOR FLEXIBLES - LEADING THROUGH INNOVATION _______________________________________________ CAUTION - This message may contain privileged and confidential information intended only for the use of the addressee named above. If you are not the intended recipient of this message you are hereby notified that any use, dissemination, distribution or reproduction of this message is prohibited. If you have received this message in error please notify AMCOR FLEXIBLES immediately. Any views expressed in this message are those of the individual sender and may not necessarily reflect the views of AMCOR FLEXIBLES.