Объяснение заполнителя в программе COBOL

В языке программирования COBOL вы определяете все переменные и поля данных в разделе вашей программы, называемом Data Division. Здесь вы настраиваете записи для дисковых файлов, макеты печати, счетчики и рабочее хранилище для расчетов. Вы определяете большинство полей данных, давая им уникальные имена, но ключевое слово FILLER позволяет вам выделить место в памяти без необходимости имени.

НАПОЛНИТЕЛЬ

FILLER — это зарезервированное слово, означающее, что вы не можете использовать это слово для именования полей или записей, кроме как для определения отдельных элементов памяти. Вы используете FILLER сразу после номера уровня и перед предложением PICTURE, которое определяет размер поля и тип данных. COBOL ограничивает использование FILLER отделом данных; это не относится к подразделениям идентификации, среды или процедур.

Макеты записи

Одним из наиболее распространенных применений FILLER является определение записей данных. Если вы используете файл данных с длиной записи 150 символов и вам не нужно маркировать каждое поле в нем, вы можете определить ненужные символы как ЗАПОЛНИТЕЛЬ, как в следующем коде:

01 клиент-запись. 05 ЗАПОЛНИТЕЛЬ РИСУНОК X(10). 05 имя клиента PIC X(30). 05 адрес клиента PIC X(30). 05 клиент-город PIC X(30). 05 ЗАПОЛНИТЕЛЬ ИЗОБРАЖЕНИЕ X(50).

Это позволяет прочитать запись из 150 символов и указать нужные поля (имя клиента, адрес и город), игнорируя при этом остальную часть записи.

Извлечение подстроки

Вы можете использовать ключевое слово FILLER, чтобы помочь в извлечении подстрок из большей строки. Например, чтобы извлечь первые пять цифр почтового индекса, вы можете настроить следующие операторы в разделе «Рабочее хранилище»:

01 весь почтовый индекс. 05 первичный почтовый индекс PIC X(5). 05 ЗАПОЛНИТЕЛЬ ИЗОБРАЖЕНИЕ X(5).

В процедурном отделе вы перемещаете почтовый индекс плюс 4 в целостный почтовый индекс, а затем перемещаете первичный почтовый индекс в поле назначения. При этом вы отбрасываете все после первых пяти цифр.

ЗАПОЛНИТЕЛЬ и ЗНАЧЕНИЕ

В записи поле FILLER резервирует место в памяти и принимает любые данные, которые вы в него перемещаете. Вы также можете определить поле FILLER, чтобы оно имело значение. Программисты часто используют этот метод для настройки заголовков отчетов, например, в следующем примере:

01 строка печати. 05 FILLER PIC X(10) ЗНАЧЕНИЕ ПРОСТРАНСТВ. 05 FILLER PIC X(15) ЗНАЧЕНИЕ "ГОДОВОЙ ОТЧЕТ". 05 FILLER PIC X(20) ЗНАЧЕНИЕ ПРОСТРАНСТВ. 05 FILLER PIC X(5) ЗНАЧЕНИЕ "СТРАНИЦА". 05 номер страницы PIC ZZZ9.

Обратите внимание, что заголовки и интервалы между заголовками страниц отчета задаются с помощью FILLER, за исключением одного именованного поля, в котором отображается номер страницы.