FUNCTION
TRIM EN COBOL 400
Dependiendo de la versión del sistema operativo del Iseries que
tengamos actualmente, podremos hacer uso de muchas funciones en el Lenguaje de
nuestros ancestros (Cobol) como la conocida y muy usada función TRIM, TRIMR o
TRIML.
Esta función es muy usada en RPG, pero no lo es en Cobol.
Aquí les dejo un ejemplo básico de cómo hacer uso de esta función
que está disponible a partir de la versión 7 del Iseries (si es que no me
equivoco)
DATA DIVISION.
WORKING-STORAGE SECTION.
77 DIRECCION PIC X(120) VALUE 'AV. NO
DISPONIBLE HUAYLAS 1737'.
77 DIR-1 PIC X(60) VALUE SPACES.
77
DIR-2 PIC X(60) VALUE
SPACES.
*
PROCEDURE
DIVISION.
CORREGIR-DIRECCIONES.
*********************
* DIRECCION DE
DOMICILIO
INSPECT
DIRECCION REPLACING ALL "NO DISPONIBLE" BY SPACES.
UNSTRING DIRECCION DELIMITED
BY " "
INTO DIR-1
DIR-2
END-UNSTRING
MOVE SPACES TO DIRECCION
STRING FUNCTION TRIM(DIR-1)
FUNCTION TRIM(DIR-2) DELIMITED BY SIZE
INTO DIRECCION
END-STRING
****************** Fin de datos
****************************************
|
El resultado del ejemplo anterior :
INPUT= "AV. NO
DISPONIBLE HUAYLAS 1737 ".
OUTPUT= "AV.HUAYLAS 1737
".
Así mismo, recordar que también podremos hacer uso de las
funciones TRIMR y TRIML.