Subcandstring COBOL
COBOL Subcubars es una característica poderosa del lenguaje de programación COBOL que permite a los programadores extraer fácilmente partes específicas de una cadena de datos. Esta subcadena se puede utilizar para realizar diversas operaciones, como manipulación de cadenas, coincidencia de patrones, cálculos y análisis de datos. Se puede utilizar la subconjuntos de Cobol para que los programas sean más eficientes, flexibles y mantenibles. Cobol Subcanding es una función incorporada del lenguaje COBOL, y se utiliza para extraer una subcadena de una cadena dada.
¿Qué hace la función de substr en COBOL??
COBOL ofrece la función subStr para extraer una parte de una cadena proporcionando la cadena de origen, la posición inicial y la longitud de la subcadena deseada. Esta funcionalidad permite un manejo eficiente de datos de cadenas en la programación de Cobol.
La función subStr extrae una parte de una cadena que comienza desde el enésimo carácter y con una longitud especificada por el usuario. Si la subcadena extraída es de menor longitud que la que se especifica, está acolchada con el carácter deseado.
Si el valor de N excede la longitud de la cadena de entrada, el resultado que se obtiene de la función subStr consiste en caracteres PAD.
Si no proporciona un valor para la longitud, la función devuelve el resto de la cadena desde la posición inicial. Por defecto, el personaje de PAD que se usa es un en blanco.
Sintaxis:
SubStr (fuente-STR, posposición de inicio, substr-Len)
La cuerda de origen es la cadena de la que desea extraer la subcadena. La "posición de inicio" es el índice inicial de la subcadena en la "fuente-STR". Y "substr-len" es la longitud de la subconjunto que desea extraer.
Programación Ejemplo 1:
División de identificación.
ID de programa. Examen de subcadena.
División de datos.
Sección de almacenamiento de trabajo.
01 Fuente de cuerda Pic x (20) Valor 'Hola mundo'.
01 PIC FINAL-STRING X (5).
División de procedimiento.
Lógico principal.
Cadena de cuerda de fuente delimitada por "en la cuerda final.
Mostrar cadena final: 'Final-String.
Parada.
Producción:
Papan@ubuntu: ~/Desktop $ COBC -XJF 1.CBL
Cadena final: hola
Explicación:
En este programa, definimos una cadena fuente de longitud 20 y una cadena final de longitud 5. Inicializamos la cadena de origen con el valor "Hello World". Luego usamos la función de cadena para extraer la primera palabra, "hola", desde la cadena de origen y almacenarla en la cadena final. Luego mostramos la cadena final usando la instrucción de pantalla.
Programación Ejemplo 2:
División de identificación.
ID de programa. Subconjoces.
División de datos.
Sección de almacenamiento de trabajo.
01 Fuente de cadena PIC x (20) Valor 'ABCDE'.
01 Subcubre-Len Pic 9 (2) Valor 1.
01 Valor de inicio de índice de inicio 9 (2) 1.
01 Picada de índice final 9 (2).
01 Sub-String Pic x (20).
División de procedimiento.
Lógico principal.
Realizar variables-Len de la subcadena de 1 por 1
Hasta el subcadeno> 20
Realizar diferentes índices de inicio de 1 por 1
Hasta el índice de inicio + Lenza de la subcadena-1> 20
Calcular end-odex = start-odex + subcand-len-1
String Source-String (injunta-índice: subcadena)
Delimitado por tamaño en la subtracción
DISPLAY 'Subcandring:' Sub-string
Rendimiento final
Rendimiento final
Parada.
Producción:
Papan@ubuntu: ~/escritorio/cbl $ COBC -XJF 2.CBL
Subcanding: ABCDE
Subcandina: BCDE
Subcandina: CDE
Subcandina: DE
Subcandina: E
Explicación:
Este programa genera todas las subcadenas posibles de una cadena de origen dada utilizando dos bucles anidados para iterar sobre todas las posibles longitudes de subcadena y posiciones iniciales. Almacena la cadena de origen y la longitud de la subcadena en la cuerda de origen y la etapa de la subcadena, respectivamente. Luego, utiliza el índice de inicio y el índice final para realizar un seguimiento de las posiciones de inicio y finalización actuales. El programa luego extrae la subcadena actual utilizando la instrucción de cadena y la función de subcadena, y la muestra utilizando la instrucción de visualización.
Programación Ejemplo 3:
División de identificación.
ID de programa. Programa inicial.
División de datos.
Sección de almacenamiento de trabajo.
01 WS-Full-Name Pic x (30) Valor 'Subash Chandra Bose'.
01 WS-First-Name Pic x (10).
01 WS-Middle-Name Pic x (10).
01 ws-quemar foto x (10).
01 ws-dot pic x valor '.'.
División de procedimiento.
Lógico principal.
Mostrar 'Nombre de entrada:' WS-Full-Name.
Compute WS-First-Name = Function Substring (WS-Full-Name, 1, Index (WS-Full-Name, ")-1).
Compute WS-Middle-Name = Function Substring (WS-Full-Name, index (ws-full-name, ") + 1, index (ws-full-name,", index (ws-full-name, ") + 1) - Índice (WS -Full -Name, ") - 1).
Compute WS-Surname = Function Substring (WS-Full-Name, Index (WS-Full-Name, ", Last-Index (WS-Full-Name,")) + 1).
Display 'Salida:' WS-First-Name (1: 1) WS-DOT WS-Middle-Name (1: 1) WS-Dot-Surname.
Parada.
Producción:
Papan@Ubuntu: ~/Desktop/CBL $ COBC -XJF 3.CBL
Nombre de entrada: subash Chandra Bose
Salida: S.C. Bosco
Explicación:
En este programa, la variable WS-Full-Name tiene el nombre completo de la persona. Las variables WS-First-Name, WS-Middle-Name y WS-Surname tienen el primer nombre, el segundo nombre y el apellido de la persona, respectivamente. Las funciones de índice y último índice se utilizan para encontrar las posiciones del primer y último espacios en la variable WS-Full-Name. Luego, imprimimos las iniciales del primer y segundo nombre, seguido del apellido, separados por un período.
Conclusión
Exploramos la función subStr en COBOL y proporcionamos algunos ejemplos sobre cómo usarla en aplicaciones prácticas. La función subStr es una característica útil en aplicaciones comerciales donde los datos a menudo deben ser manipulados o transformados. Con la función subStr, los programadores pueden extraer fácilmente las subcadenas de cadenas más grandes y usarlas para su posterior procesamiento. Con suerte, este artículo proporcionó una introducción útil a la función SubStr en COBOL, y demostró adecuadamente algunos de sus ejemplos prácticos.