En el copy/paste, se me olvido los retornos de RESULT:

OUTPUT 01 RESULT       PIC S9(3)  USAGE PACKED-DECIMAL.
      *                    > 0 Primer caracter donde es encontrado
      *                    = 0 No localizado
      *                    - 1 Error: PATTERN mayor que SCAN
      *                    - 2 Error: LEN-PATTERN < 1
      *                    - 3 Error: Primer char de PATTERN es comodín
      *                    - 4 Error: PATTERN a blancos y TRIM a "1"
      *                    - 5 Error: W-START no válida
      * -------------------------------------------------------

Saludos de nuevo.

El día 1 de diciembre de 2011 12:07, INFORMATICA
<[email protected]> escribió:
> Buenos días.
>
> Alguien me puede ayudar?
>
> Tengo que buscar en un campo de un fichero de 70
> posiciones, una serie de carácteres, que puede estar en cualquier posición.
>
> Sabeis como puedo hacerlo?
>
> Ejemplo:
>
> Buscar "letra" dentro de un campo de observaciones;
>
> "Esta letra no es valida"
> "La letra de la cancion me gusta"
> "No he llegado la letra"
>
>
>
>
> 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.

Responder a