Yo creo que esto te puede valer:
WORKING-STORAGE SECTION.
* -------------------- Párametros QCLSCAN ---------------
INPUT 01 SCAN PIC X(80) VALUE " PRUEBA LETRA CON QCLSCAN".
INPUT 01 LEN-SCAN PIC S9(3) USAGE PACKED-DECIMAL VALUE 80.
INPUT 01 W-START PIC S9(3) USAGE PACKED-DECIMAL VALUE 1.
INPUT 01 PATTERN PIC X(20) VALUE "LETRA ".
INPUT 01 LEN-PATTERN PIC S9(3) USAGE PACKED-DECIMAL VALUE 20.
INPUT 01 UPPERCASE PIC X VALUE SPACES.
* "1" Convierte minúsculas a mayúsculas
INPUT 01 TRIM PIC X VALUE "1".
* "1" Elimina blancos de cola en PATTERN
INPUT 01 WILDCARD PIC X VALUE SPACES.
* blancos = sin comodin, <> comodin en PATTERN
OUTPUT 01 RESULT PIC S9(3) USAGE PACKED-DECIMAL.
* > 0 Primer caracter donde es encontrado
* = 0 No localizado
* - 1 Error: PATTERN mayor que SCAN
*****************************************************************
PROCEDURE DIVISION.
*****************************************************************
INICIO.
CALL "QCLSCAN" USING SCAN LEN-SCAN
W-START
PATTERN
LEN-PATTERN
UPPERCASE TRIM
WILDCARD RESULT.
DISPLAY " SCAN: " SCAN .
DISPLAY " PATTERN: " PATTERN.
DISPLAY " RESULT : " RESULT .
GOBACK.
Saludos.
El 1 de diciembre de 2011 13:51, INFORMATICA
<[email protected]> escribió:
>
> Gracias FB.
> Pero si el valor a comparar lo paso como variable
> de por ejemplo 20 posiciones,
> y paso "letra ",
> como puedo hacer para comparar solo "letra" y no "letra " ??????
>
> ----- Original Message -----
> From: FB FB
> To: forum.help400
> Sent: Thursday, December 01, 2011 12:39 PM
> Subject: Re: PREGUNTA COBOL
>
> Usa la instrucción INSPECT
>
> El 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.
>
>
>
>
> --
> Atentamente.
>
> RP Director Técnico
> Tel. 93 255 31 51
> Fax. 93 255 31 09
>
> ________________________________
>
> ____________________________________________________
> Ú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.
____________________________________________________
Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd )
Forum.Help400 © Publicaciones Help400, S.L.
