Explicación de FILLER en programa COBOL

En lenguaje COBOL, define todas las variables y campos de datos en una sección llamada División de Datos (Data Division). Aquí configura registros para archivos de disco, diseños de impresión, contadores y almacenamiento de trabajo para cálculos. Define la mayoría de campos dándoles nombres únicos, pero la palabra clave FILLER permite reservar espacio de memoria sin necesidad de nombre.

FILLER

FILLER es palabra reservada: no puede usarla para nombrar campos/registros salvo para definir elementos de memoria individuales. Use FILLER inmediatamente tras un número de nivel y antes de una cláusula PICTURE que define tamaño y tipo de dato. COBOL restringe FILLER a la División de Datos; no aplica a Identificación, Entorno o Procedimiento.

Diseños de registro (Record Layouts)

Un uso común de FILLER es definiciones de registros de datos. Si usa archivo con longitud de registro 150 caracteres y no necesita etiquetar cada campo, defina los caracteres innecesarios como FILLER:

01 customer-record.
  05 FILLER PIC X(10).
  05 customer-name PIC X(30).
  05 customer-address PIC X(30).
  05 customer-city PIC X(30).
  05 FILLER PIC X(50).

Esto lee registro de 150 caracteres e identifica campos deseados (nombre, dirección, ciudad) ignorando el resto.

Extracción de subcadena (SubString Extraction)

Puede usar FILLER para extraer subcadenas de una cadena mayor. Para extraer primeros 5 dígitos de código postal:

01 whole-zip-code.
  05 primary-zip PIC X(5).
  05 FILLER PIC X(5).

En División de Procedimiento, mueva código ZIP+4 a whole-zip-code, luego mueva primary-zip a campo destino. Así descarta todo tras primeros 5 dígitos.

FILLER y VALUE

En un registro, campo FILLER reserva espacio y acepta cualquier dato que mueva. También puede definir FILLER con VALUE. Programadores usan esto para encabezados de informes:

01 print-line.
  05 FILLER PIC X(10) VALUE SPACES.
  05 FILLER PIC X(15) VALUE "YEAR END REPORT".
  05 FILLER PIC X(20) VALUE SPACES.
  05 FILLER PIC X(5) VALUE "PAGE ".
  05 page-number PIC ZZZ9.

El encabezado de página (títulos y espaciado) se hace con FILLER, salvo un campo nombrado para número de página.