Inspeccionar cláusula en COBOL

La mayoría de las veces, tiene el requisito de concatenar, dividir, reemplazar o extraer los caracteres de la cadena. En Cobol, tiene varias funciones que se pueden usar para manipular la cadena según sus requisitos. Veamos la declaración Inspect que se usa principalmente para contar y reemplazar el carácter en el campo. Discutiremos todas estas cláusulas (cuenta, reemplazando y conversando) en la siguiente discusión:

Detalles de sintaxis:

• La cláusula de inspección con la cláusula de recuento se usa para contar caracteres específicos.
• La cláusula de inspección con la cláusula de reemplazo se usa para reemplazar caracteres específicos.
• La cláusula Inspect con las cláusulas de recuento y reemplazo se usa para contar y reemplazar caracteres.

El aspecto de la cláusula de inspección

• Para contar el número de caracteres en una cadena específica, puede usar Inspect con la opción Tally.
• Para reemplazar el carácter específico de una cadena, puede usar inspeccionar con la cláusula de reemplazo.
• Puede usar tipos de datos alfabéticos, alfanuméricos o numéricos, pero el tipo de datos numéricos debe estar con el uso como pantalla. No debe mostrarse.
• El último punto es que puede usar la cláusula variable, inspeccionar con la opción de recuento y reemplazo para contar y reemplazar el carácter en una cadena específica.

Ahora, veremos algunos ejemplos de programación uno por uno.

Programación Ejemplo 1: Inspeccionar con Reemplazo

División de identificación.
ID de programa. FF.
División de datos.
Sección de archivo.
Sección de almacenamiento de trabajo.
01 WS-DTE PIC X (10) Valor "13-12-2022".
División de procedimiento.
A000-Mayor sección.
Inspeccione WS-DTE reemplazando todo "-" por "/".
Muestra WS-DTE
Parada.

Producción:

Papan@Papan -VirtualBox: ~ /Desktop /PP $ COBC -XJF MP.CBL
13/12/2022
Papan@Papan-VirtualBox: ~ /Desktop /PP $

Explicación:
Este es un ejemplo de declaración de inspección de Cobol con la opción Reemplazar. Lo que hicimos con él es declarar una variable llamada WS-DTE que en realidad está manteniendo su fecha, que es "13-12-2022". La sección de procedimientos y la división de procedimientos tienen un párrafo llamado sección principal. Allí, solo usa la declaración Inspect, que es "Inspeccionar WS-DTE Reemplazo"- "por"/". La salida de esta declaración en particular es por fecha que tiene "/" a pesar de.

Programación Ejemplo 2: Inspeccionar con Tallying

División de identificación.
ID de programa. BÁSICO.
División de datos.
Sección de archivo.
Sección de almacenamiento de trabajo.
01 WS-NME PIC X (15) Valor "Somdeb Nath".
01 WS-CNT PIC 9 (03) Valor de valor ceros.
División de procedimiento.
A000-Mayor sección.
Inspeccione WS-NME Tallying WS-CNT para todos los espacios.
Muestra WS-CNT.
Parada.

Producción:

Papan@Ubuntu: ~/Desktop/Cobol $ COBC -XJF 1.CBL
005

Explicación:
En este ejemplo, utilizamos dos variables para trabajar en la sección de almacenamiento. La primera variable es "WS-NME", que en realidad tiene un nombre llamado "Somdeb Nath". La segunda variable es "WS-CNT" que almacena el número de espacios en esa cadena particular.

Ahora, veamos la división de procedimientos y la sección. Dice insertar ws-nme-talling ws-cnt para todos los espacios. Como salida, obtenemos el recuento de espacios de esa cadena en particular.

Programación Ejemplo 3: Inspeccionar con Reemplazo

División de identificación.
ID de programa. Mm.
División de datos.
Sección de archivo.
Sección de almacenamiento de trabajo.
01 WS-NME PIC X (15) Valor "Dudley Dursley".
División de procedimiento.
A000-Mayor sección.
Inspeccione WS-NME reemplazando todo "D" por "D" después de la "D" inicial "D".
Mostrar ws-nme.
Parada.

Explicación:
Este ejemplo de programación es la instrucción COBOL "Inspeccionar con Reemplazo". En este caso, utilizamos una opción de reemplazo para reemplazar la letra "D" con su pequeña letra "D". Si ve la variable "WS-NME", en realidad tiene un nombre que es "Dudley Dursley". En este caso, tenemos tres letras "D" en el "Dudley Dursley". Entonces, lo que hace es que reemplace la segunda letra porque usamos la opción Reemplazar después de la "D" inicial. Entonces, después de la "D" inicial, cualquier letra "D" que encuentre se reemplaza con "D".

Programación Ejemplo 4: Inspeccionar con Convertir

División de identificación.
ID de programa. Dd.
División de datos.
Sección de archivo.
Sección de almacenamiento de trabajo.
01 WS-NME PIC X (15) Valor "Dudley Dursley".
División de procedimiento.
A000-Mayor sección.
Inspeccionar la conversión de WS-NME
"Abcdefghijklmnopqrstuvwxyz" a
"ABCDEFGHIJKLMNOPQRSTU VWXYZ".
Mostrar ws-nme.
Parada.

Producción:

Papan@Ubuntu: ~/Desktop/Cobol $ COBC -XJF 1.CBL
Dudley Dursley

Explicación:
El último pero no menos importante ejemplo de programación es sobre la declaración de Cobol "Inspeccionar con Convertir". Convertimos todo el nombre en letras pequeñas. Entonces, lo que hicimos es que el uso del nombre de la variable Cobol Inspect "WS-NME" Convertir, damos todos los alfabetos en el código que es "A a Z". Luego, especificamos todos los alfabetos pequeños correspondientes de "A" a "Z". La salida es "Dudley Dursley" con la segunda palabra en todas las minúsculas.

Conclusión

En este artículo en particular, cubrimos todos los aspectos de la declaración de "inspeccionar" en el lenguaje de programación de COBOL, especialmente en la discusión de la declaración de "inspeccionar", sus detalles de sintaxis y la aplicación de esta declaración con respecto al programa.