Cobol - Ayuda en COBOL

   
Vista:

Ayuda en COBOL

Publicado por P951 (1 intervención) el 22/10/2008 03:31:27
Hola a todos !!! Necesito ayuda con respecto a una instrucción en COBOL: Navegando por Internet encontré una rutina en COBOL que necesito para validar una dirección de correo email. Esta instrucción dice:

INSPECT direccion-correo (i: car-antes-arroba)
CONVERTING w-class-plus TO ALL "^"

direccion-correo es la variable donde almaceno la dirección a validar.
w-calss-plus es una variable de nivel 78 donde se almacenan los caracteres válidos para una dirección de correo email.

Pero no sé lo que hace la sentencia "TO ALL"... qué es lo que específicamente se está convirtiendo, o reemplazando por el caracter "^" ????

Muchas gracias por vuestra ayuda !!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Ayuda en COBOL

Publicado por SuperIndio (138 intervenciones) el 22/10/2008 14:35:31
El INSPECT CONVERTING
busca una letra u un TEXTO dentro de otro TEXTO y lo reemplaza por otro TEXTO del mismo tamaño

Ejemplo:

01 Mis-Variables.
03 Idx Pic 9(04) Value 0.
03 Frase.
05 F1 Pic X(35) Value
"Yo Los Conozco, Son Ocho Los Monos,".
05 F1 Pic X(44) Value
" Son Todos Los Trolos, Lolo, Pololo, Montoto".

05 F1 Pic X(35) Value
" Corolo, Bartolo, Son Todos Chorros".
03 R-Frase Redefines Frase Pic X(114).

INSPECT R-Frase CONVERTING "olo" TO ALL "ola"

Resultado
"Yo Los Conozco, Son Ocho Los Monos,".
" Son Todos Los Trolas, Lola, Polola, Montoto".
" Corola, Bartola, Son Todos Chorros".
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Ayuda en COBOL

Publicado por Luis Salinas (83 intervenciones) el 28/10/2008 14:04:45
TO ALL implica un A TODO
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar