String Cobol

Dominando la Concatenación de Cadenas en COBOL

En el mundo de la programación, tratar con cadenas es una tarea común. En COBOL, a menudo se puede enfrentar el desafío de concatenar cadenas cuya longitud no está predeterminada. Este artículo tiene como objetivo proporcionar una solución clara a la cuestión de cómo concatenar efectivamente dos cadenas de longitud desconocida en COBOL.

El Problema

Imagina que estás trabajando con un programa que maneja el nombre y apellido de un usuario. Tu sección de WORKING-STORAGE define variables para almacenar estos nombres, pero el desafío surge cuando necesitas concatenarlos en un nombre completo sin retener espacios innecesarios. Por ejemplo, dado:

WORKING-STORAGE.
    FIRST-NAME    PIC X(15) VALUE SPACES.
    LAST-NAME     PIC X(15) VALUE SPACES.
    FULL-NAME     PIC X(31) VALUE SPACES.

Asumiendo que FIRST-NAME está establecido en 'JOHN ' y LAST-NAME en 'DOE ', buscas lograr el resultado:

FULL-NAME = 'JOHN DOE                       '.

Sin embargo, una concatenación ingenua podría hacer que termines con:

FULL-NAME = 'JOHN            DOE            '.

Este no es el resultado deseado, ya que incluye espacios extra entre las partes concatenadas. Entonces, ¿cómo resuelves este problema?

La Solución

La solución a este problema es usar eficazmente la declaración STRING de COBOL. Te permite concatenar cadenas y especificar delimitadores para eliminar espacios no deseados. A continuación, se presentan los pasos para concatenar las dos cadenas correctamente.

Guía Paso a Paso

  1. Definir las Cadenas: Asegúrate de haber definido tus FIRST-NAME, LAST-NAME y FULL-NAME en tu sección de WORKING-STORAGE como se ilustra arriba.

  2. Usar la Declaración STRING: Puedes utilizar la declaración STRING para concatenar las cadenas. Así es como se hace:

    STRING
    FIRST-NAME DELIMITED BY " ",
    " ",
    LAST-NAME DELIMITED BY SIZE
INTO FULL-NAME.

Desglose de la Declaración STRING

  • FIRST-NAME DELIMITED BY " “: Esto le indica a COBOL que use FIRST-NAME y detenga la concatenación en el primer espacio encontrado, recortando efectivamente los espacios en blanco al final.

  • ” “: Esto añade un espacio único entre el nombre y el apellido para asegurar que estén correctamente separados.

  • LAST-NAME DELIMITED BY SIZE: Esto indica que toda la longitud de LAST-NAME debe incluirse en la concatenación, evitando así espacios en blanco no deseados al final.

  • INTO FULL-NAME: Esto dirige la cadena concatenada resultante para que se almacene en FULL-NAME.

Conclusión

Siguiendo estos pasos, podrás concatenar de manera eficiente cadenas de longitudes desconocidas en COBOL asegurando un resultado limpio y formateado. Al aprovechar la declaración STRING con delimitadores apropiados, COBOL simplifica el proceso de gestión de cadenas, convirtiéndolo en una herramienta poderosa para tus necesidades de programación.

¡Ahora, la próxima vez que te enfrentes a un desafío similar con la concatenación en COBOL, podrás aplicar este método con confianza para lograr los resultados deseados!