Содержание
IBM COBOL (Common Business Oriented Language) позволяет пользователям обрабатывать различные типы данных в приложениях для бизнеса и финансов. COBOL поддерживает типы данных записи переменной длины для использования в файлах базы данных, хранящихся на жестких дисках; пользователь указывает максимальную и минимальную длины записей для описания файлов диска с записями переменной длины. Чтение файлов данных переменной длины позволяет вам обрабатывать информацию базы данных без установки точного размера записи в вашей программе COBOL.
направления
-
Введите «Edit» в консоли управления системой z / OS360 и нажмите «Enter», чтобы отредактировать программу на COBOL.
-
Добавьте следующий код в начало вашей программы:
ИДЕНТИФИКАЦИОННЫЙ ОТДЕЛ. ПРОГРАММА-ID. COBVAR. ОТДЕЛ ОКРУЖАЮЩЕЙ СРЕДЫ. РАЗДЕЛ ВВОДА-ВЫВОДА. FILE-CONTROL. ВЫБЕРИТЕ IFILE Назначить "IFILE".
ОТДЕЛ ДАТЫ. РАЗДЕЛ ФАЙЛА. FD IFILE RECORD варьируется от 10 до 50 в зависимости от объектива. 01 IREC. 05 FILLER PIC X происходит от 10 до 50 раз в зависимости от объектива.
ПРОЦЕДУРА ОТДЕЛА. P1. ДИСПЛЕЙ «ПРИМЕР 1 ПРОИСХОДИТ В ЗАВИСИМОСТИ ОТ ЗАПИСИ» ОТКРЫТЫЙ ВХОД ИСПОЛЬЗУЕТСЯ ПЕРЕДАЧИ ДОЛГО = -1 ЧИТАТЬ ИФИЛЬ ПРИ КОНЕЧНОМ ПЕРЕМЕЩЕНИИ -1, ЧТОБЫ НЕ ЗАКОНЧАТЬ ДИСПЛЕЙ IREC ДИСПЛЕЙ ОТКРЫТЬ КОНЕЦ-ЧИТАТЬ КОНЕЦ-ИСПОЛНИТЬ ЗАКРЫТЬ ПЕРЕДАЧИ ДИСПЛЕЯ
ДИСПЛЕЙ «ПРИМЕР ФИКСИРОВАННОЙ ЗАП.», ОТКРЫТЫЙ ВХОД, ЕСЛИ В ПЕРЕМЕЩЕНИИ ПЕРЕМЕЩАЕТСЯ ВСЕ «X», ЧИТАТЬ ИРИКУ, В ПЕРЕДВИЖЕНИИ - КОНЕЦ ПЕРЕМЕЩ.
-
Введите «Сохранить» в консоли и нажмите клавишу «Ввод», чтобы позволить программе обрабатывать записи переменной длины.