Explicación de relleno en un programa COBOL

En el lenguaje de programación COBOL , debe definir todas las variables y campos de datos en una sección de su programa llamado Data Division . A continuación , configure los registros de los archivos del disco , diseños de impresión , mostradores y almacenamiento de trabajo para los cálculos. Usted define la mayoría de los campos de datos , dándoles nombres únicos , pero la palabra clave RELLENO le permite dejar de lado el espacio de memoria sin necesidad de un nombre. RELLENO

relleno es una palabra reservada , lo que significa que no puede utilizar la palabra para nombrar campos o registros distintos para definir los elementos de memoria individuales . Utiliza RELLENO inmediatamente después de un número de nivel y que precede a una cláusula de imagen que define el tamaño de un campo y tipos de datos. COBOL restringe el uso de relleno para la División de datos , sino que no se aplica a la identificación , Medio Ambiente o divisiones Procedimiento

diseños de registro

Uno de los usos más comunes. de carga es para las definiciones de registro de datos . Si utiliza un archivo de datos con una longitud de registro de 150 caracteres y no es necesario etiquetar todos los campos en el mismo, se pueden definir los caracteres que no sean necesarios como relleno , como en el siguiente código:

01 clientes record.05 RELLENO PIC X ( 10 ) ,05 nombre-cliente PIC X ( 30 ) ,05 cliente dirección PIC X ( 30 ) ,05 - cliente ciudad PIC X ( 30 ) 0,05 RELLENO PIC X ( 50 ) .

Esto le permite leer un registro de 150 caracteres e identificar los campos que desee - el nombre del cliente , dirección y ciudad - . ignorando el resto del registro
SubString extracción

Puede utilizar la palabra clave de relleno para ayudar en la extracción de subcadenas de una cadena más grande. Por ejemplo, para extraer los cinco primeros dígitos de un código postal , puede configurar las siguientes declaraciones en la sección Working -Storage :

01 todo -zip - code.05 primaria -zip PIC X ( 5 ) 0.05 RELLENO PIC X ( 5 ) .

En la División de Procedimiento, que se mueven de un código postal -plus- a - 4 - código postal entero , a continuación, pasar primaria -zip a un campo de destino. Al hacerlo, se le cae todo después de los primeros cinco dígitos .
Relleno y VALOR

En un registro, un campo de reservas de espacio de memoria de relleno y acepta cualquier tipo de datos se mueve en ella. También puede definir un campo de relleno para tener un valor. Los programadores utilizan esta técnica con frecuencia para crear encabezados del informe , como en el siguiente ejemplo :

01 impresión line.05 RELLENO PIC X ( 10 ) VALOR SPACES.05 RELLENO PIC X ( 15 ) VALUE " FIN DE AÑO iNFORME " 0.05 RELLENO PIC X ( 20 ) VALOR SPACES.05 RELLENO PIC X ( 5 ) VALOR " PAGE " 0.05 page-number PIC ZZZ9 .

Tenga en cuenta que los títulos de encabezado de página del informe y el espacio se hace todo con un relleno , excepto un campo con nombre que muestra el número de página .