COBOL - Manejo de Cadenas
Manejo de cadenas en COBOL se utilizan para hacer varias operaciones con cadenas. A continuación, se indican las instrucciones de manejo cadena:
- Inspeccionar
- Cadena
- Unstring
Inspeccionar
Inspeccione verbo es usado para contar o reemplazar los caracteres de una cadena. Cadena de operaciones que se pueden llevar a cabo el alfanumérico, numérico, alfabético o valores. Inspeccionar las operaciones se realizan de izquierda a derecha. Las opciones que se utilizan para las operaciones de cadena de la siguiente manera:
Cómputo
Cómputo se utiliza la opción para contar los caracteres de la cadena.
Sintaxis
Continuación se presenta la sintaxis de Cómputo opción:
INSPECT input-string TALLYING output-count FOR ALL CHARACTERS
Los parámetros utilizados son los siguientes:
- Entrada de cadena: La cadena cuyos caracteres se van a contar.
- Salida de contar : elemento de datos que se va a celebrar el recuento de caracteres.
Ejemplo
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-CNT1 PIC 9(2) VALUE 0. 01 WS-CNT2 PIC 9(2) VALUE 0. 01 WS-STRING PIC X(15) VALUE 'ABCDACDADEAAAFF'. PROCEDURE DIVISION. INSPECT WS-STRING TALLYING WS-CNT1 FOR ALL CHARACTERS. DISPLAY "WS-CNT1 : "WS-CNT1. INSPECT WS-STRING TALLYING WS-CNT2 FOR ALL 'A'. DISPLAY "WS-CNT2 : "WS-CNT2 STOP RUN.
JCL para ejecutar el programa COBOL.
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C //STEP1 EXEC PGM=HELLO
Cuando se compila y ejecuta el programa antes mencionado, se produce el resultado siguiente:
WS-CNT1 : 15 WS-CNT2 : 06
Sustitución
Sustitución opción se utiliza para sustituir el caracteres de la cadena.
Sintaxis
Continuación se presenta la sintaxis de sustitución:
INSPECT input-string REPLACING ALL char1 BY char2.
El parámetro utilizado es el siguiente:
Entrada de cadena: La cadena cuyos caracteres se van a cambiar de char1 a char2.
Ejemplo
IDENTIFICATION DIVISION. PROGRAM-ID. HELLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 WS-STRING PIC X(15) VALUE 'ABCDACDADEAAAFF'. PROCEDURE DIVISION. DISPLAY "OLD STRING : "WS-STRING. INSPECT WS-STRING REPLACING ALL 'A' BY 'X'. DISPLAY "NEW STRING : "WS-STRING. STOP RUN.
JCL para ejecutar el programa COBOL.
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C //STEP1 EXEC PGM=HELLO
Cuando se compila y ejecuta el programa antes mencionado, se produce el resultado siguiente:
OLD STRING : ABCDACDADEAAAFF NEW STRING : XBCDXCDXDEXXXFF
Cadena
Cadena verbo se utiliza para concatenar las cadenas. Uso de cadenas, dos o más cadenas de caracteres se pueden combinar para formar una cadena más larga. 'Delimitado por' la cláusula es obligatoria.
Sintaxis
La sintaxis siguiente es verbo de cadena:
STRING ws-string1 DELIMITED BY SPACE ws-string2 DELIMITED BY SIZE INTO ws-destination-string WITH POINTER ws-count ON OVERFLOW DISPLAY message1 NOT ON OVERFLOW DISPLAY message2 END-STRING.
A continuación, se describen los detalles de los parámetros utilizados:
- WS-cadena1 y ws-cadena2 : cadenas de entrada que se concatenarán
- WS-string : cadena de salida
- WS-: Se utiliza para contar la longitud de la nueva cadena concatenada
- Delimitado especifica el final de la cadena
- Puntero y el desborde son opcionales
Ejemplo
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-STRING PIC A(30).
01 WS-STR1 PIC A(15) VALUE 'Tutorialspoint'.
01 WS-STR2 PIC A(7) VALUE 'Welcome'.
01 WS-STR3 PIC A(7) VALUE 'To AND'.
01 WS-COUNT PIC 99 VALUE 1.
PROCEDURE DIVISION.
STRING WS-STR2 DELIMITED BY SIZE
WS-STR3 DELIMITED BY SPACE
WS-STR1 DELIMITED BY SIZE
INTO WS-STRING
WITH POINTER WS-COUNT
ON OVERFLOW DISPLAY 'OVERFLOW!'
END-STRING.
DISPLAY 'WS-STRING : 'WS-STRING.
DISPLAY 'WS-COUNT : 'WS-COUNT.
STOP RUN.
JCL para ejecutar el programa COBOL:
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C //STEP1 EXEC PGM=HELLO
Cuando se compila y ejecuta el programa antes mencionado, se produce el resultado siguiente:
WS-STRING : WelcomeToTutorialspoint WS-COUNT : 25
Unstring
Unstring verbo se usa para dividir una cadena en varias sub-cadenas. Delimitado por la cláusula es obligatoria.
Sintaxis
Continuación se presenta la sintaxis de Unstring verbo:
UNSTRING ws-string DELIMITED BY SPACE INTO ws-str1, ws-str2 WITH POINTER ws-count ON OVERFLOW DISPLAY message NOT ON OVERFLOW DISPLAY message END-UNSTRING.
Ejemplo
IDENTIFICATION DIVISION.
PROGRAM-ID. HELLO.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS-STRING PIC A(30) VALUE 'WELCOME TO TUTORIALSPOINT'.
01 WS-STR1 PIC A(7).
01 WS-STR2 PIC A(2).
01 WS-STR3 PIC A(15).
01 WS-COUNT PIC 99 VALUE 1.
PROCEDURE DIVISION.
UNSTRING WS-STRING DELIMITED BY SPACE
INTO WS-STR1, WS-STR2, WS-STR3
END-UNSTRING.
DISPLAY 'WS-STR1 : 'WS-STR1.
DISPLAY 'WS-STR2 : 'WS-STR2.
DISPLAY 'WS-STR3 : 'WS-STR3.
STOP RUN.
JCL para ejecutar el programa COBOL:
//SAMPLE JOB(TESTJCL,XXXXXX),CLASS=A,MSGCLASS=C //STEP1 EXEC PGM=HELLO
Cuando se compila y ejecuta el programa antes mencionado, se produce el resultado siguiente:
WS-STR1 : WELCOME WS-STR2 : TO WS-STR3 : TUTORIALSPOINT
