RE: Identificación de un caracter en un campo

Mon, 27 Jan 2014 10:49:47 -0800 

Buenas tardes,

Hola Veronica.

Me tome la libertad de hacerte el programa, 

Te lo hago llegar en formato txt. Bajalo al AS, compilalo y hazle un 
debug. vas a ver que tu nombre quedara separado de tu apellido. Creo que 
es eso lo que necesitas hacer.




Si tienes dudas hazmelo saber.

Saludos,

Luis A. Salguero M.





Oqueller Petrocini <[email protected]> 
Sent by: [email protected]
27/01/2014 01:04 p.m.
Please respond to
"forum.help400" <[email protected]>


To
veronica pimentel <[email protected]>, "forum.help400" 
<[email protected]>, 
cc

Subject
RE: Identificación de un caracter en un campo








Utiliza     %scan 
 
De: [email protected] [
mailto:[email protected]] En nombre de veronica 
pimentel
Enviado el: lunes, 27 de enero de 2014 12:01 p.m.
Para: forum 400
Asunto: Identificación de un caracter en un campo
 
Buenos días foro:
 
Deseo que se encuentren excelente
 
Mi problema es el siguiente tengo un  campo de 20 posiciones alfanumérico 
en donde me están pasando cierta información la cual esta separada por una 
coma lo que esta antes de la coma es mi destino y lo que esta después de 
esta es el origen, el detalle es que no tengo idea de como realizar la 
lectura de la coma(,) e identificar lo que hay antes de la misma y después 
de ella, para poderlo mover a otros campos; no se si utilizar una data 
structure o un arreglo, me podrían ayudar por favor; de antemano muchas 
gracias.
 
Que tengan un  excelente día.
 
 
************
La vida es corta, trabaja como si fuera tu primer día, perdona 
rápidamente, besa apasionadamente, ama verdaderamente, ríe 
incontrolablemente y nunca dejes de sonreír por más extraño que sea el 
motivo.
La vida no siempre es la fiesta que esperamos, pero cuando estamos aquí, 
debemos sonreír y dar gracias.....
************
 ____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

<<image/gif>>

     h DFTACTGRP(*NO)

     d Campo_20_Pos    S             20a   Inz('VERONICA,PIMENTEL')
     d Tu_Nombre       S             20a   Inz(*Blanks)
     d Tu_Apellido     S             20a   Inz(*Blanks)
     d WIndex          s              2S 0 Inz(*Zeros)
     d WIndex2         s              2S 0 Inz(*Zeros)
     d WCc             s              1a


      /free

         *In13       =  *Off;
         *In14       =  *Off;
         Tu_Nombre   =  *Blanks;
         Tu_Apellido =  *Blanks;
         WIndex2     =  *Zeros;

           For Windex = 1 To 20;
             WCc   = (%Subst(Campo_20_Pos: WIndex:  1));
             *In14 = (%Scan(WCc: ',': 1) > *Zero);

             If Not *In14 And Not *In13;
                %Subst(Tu_Nombre: Windex: 1) = Wcc;
                Else;
                *In13 = *On;
             EndIf;

             If *In13 And Wcc <> ',';
                %Subst(Tu_Apellido: (Windex2 + 1): 1) = Wcc;
                Windex2 += 1;
             EndIf;

           EndFor;

       *InLr = *On;
      /End-free

____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.

Responder a