Ver Mensaje Individual
  #3
Antiguo 9 de abril de 2015, 20:18
Josber
Moderador Global
Activista del Foro: Activista del Foro - Issue reason: Por aportar manuales y enriquecer  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Issue reason: Por muchos agradecimientos 
Última Actividad 20.09.2026 12:17
Posts Posts: 883
Likes enviados Enviados: 418
Likes recibidos Recibidos: 492

Aunque ya te lo ha dicho Kuk, es muy sencillo

Supongamos que tenemos CAMPO1 que vale 'ABCDEF0123" , CAMPO2 que vale "LMNOPPPQ9876" y una variable numérica llamada CONTADOR...

INSPECT, sirve para "inspeccionar" una variable y una vez inspeccionada, puedes hacer varias cosas con ella:

Reemplazar carácteres:


Código COBOL:
  1. INSPECT CAMPO1 REPLACING ALL "B" BY SPACES
El resultado sería "A BCDEF0123"

Contar ocurrencias:
Código COBOL:
  1. INSPECT CAMPO2 TALLIYNG CONTA FOR ALL "P"

CONTA valdrá 3, que es el número de P que hay en CAMPO2

Código COBOL:
  1. INSPECT CAMPO1 TALLYING CONTA FOR CHARACTERS

CONTA valdrá 10, que es el número total de caracteres que hay en la variable CAMPO1, los espacios en blanco, también cuentan

Tiene más funciones, busca en internet que te salen seguro.

STRING sirve para concatenar (enlazar) campos, es una sentencia con muchas opciones

Supongamos que tenemos una variable más que se llama CAMPO3 que está vacía ...

Código COBOL:
  1. STRING CAMPO1 CAMPO2 DELIMITED BY SIZE INTO CAMPO3

El resultado de CAMPO3 será

"ABCDEF0123LMNOPPPQ9876"

DELIMITED BY SIZE, "significa" que coja el CAMPO1 entero y el CAMPO2 entero, (incluso si tiene 100 espacios al final de algún campo) los una y el resultado lo ponga en CAMPO3

Código COBOL:
  1. STRING CAMPO1 CAMPO2 DELIMITED BY "1" INTO CAMPO3

El resultado de CAMPO3 sería

"ABCDEF0LMNOPPPQ9876"

DELIMITED BY Variable/constante, es igual, pero "corta" cuando encuentra los valores dichos

Tiene más opciones, pero son un poco complicadas de explicar por aquí, te aconsejo que busque en internet, que hay mucha información al respecto.

Un saludo.-
Josber is offline   Responder Con Cita