Breew, perdona, ya lo he corregido. Lo del IDX-1 venia porque al principio hice el codigo, luego renombre los indices para que sea mas comprensible. Te lo he modificado añadiendo una tabla interna. Te explico el codigo:
Tenemos 3 indices, de posicion, de longitud y de ocurrencias de tabla. Lo que hacemos en el primer buscle es buscar la longitud del texto a buscar. Si el texto a buscar existe (IF IDX-LON > ZEROS), en el segundo buscle recorremos todas las ocurrencias de la tabla, dentdo del cual hay un tercer buscle donde buscamos la cadena determinada en el campo WS-TEXTO-BSQ(1:IDX-LON) dentro de la tabla interna. Al salir del tercer bucle, preguntamos si lo ha encontrado, y si es asi, pues añadimos el registro a un CmList (como ejemplo, puede ser ListView u otra tabla interna).
NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro. 
¿Te han ayudado? NO TE OLVIDES de darle a 
¿Quieres dirigirte a alguien en tu post? Notifícale  haciendo clic en su Nick
|