Una posible forma (en Rpg) sería así:
h DFTACTGRP(*NO)
d Campo
S 20a Inz('aaaaaa,
bbbbb')
d Destino
S 20a Inz(*Blanks)
d Origen
S 20a Inz(*Blanks)
d PosComa S 2S 0 Inz(*Zeros)
/free
PosComa = %scan(',': Campo: 1);
if PosComa > 0;
Destino = %substr(Campo: 1: PosComa - 1);
Origen = *blanks;
if (PosComa + 1 <= 20);
Origen = %substr(Campo: PosComa + 1);
EndIf;
EndIf;
InLr = *On;
/End-free
El 27 de enero de 2014, 17:30, veronica pimentel <[email protected]>escribió:
> 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.
>
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
