Як прочитати файл змінної у COBOL

Автор: Tamara Smith
Дата Створення: 27 Січень 2021
Дата Оновлення: 1 Грудень 2024
Anonim
Як прочитати файл змінної у COBOL - Статті
Як прочитати файл змінної у COBOL - Статті

Зміст

IBM COBOL (Common Business Oriented Language) дозволяє користувачам обробляти різні типи даних у бізнес-і фінансових програмах. COBOL підтримує типи даних змінної довжини для використання в файлах баз даних, що зберігаються на жорстких дисках; користувач вказує максимальну і мінімальну довжину записів для опису файлів диска з записами змінної довжини. Читання файлів даних з змінною довжиною дозволяє обробляти інформацію бази даних без встановлення точного розміру запису у вашій програмі COBOL.


Інструкції

Програми COBOL можуть обробляти записи змінної довжини, що зберігаються в файлах баз даних (Jupiterimages / Photos.com / Getty Images)

  1. Введіть "Edit" у консолі керування системою z / OS360 і натисніть клавішу "Enter" для редагування програми COBOL.

  2. Додайте наступний код до початку програми:

    РОЗДІЛ ІДЕНТИФІКАЦІЇ. PROGRAM-ID. COBVAR. РОЗДІЛ ЕКОЛОГІЇ. РОЗДІЛ ВХІД-ВИХІД. FILE-CONTROL. ВИБІР IFILE ASSIGN TO "IFILE".

    РОЗДІЛ ДАТИ. РОЗДІЛ ФАЙЛА. FD IFILE RECORD Зміна від 10 до 50 залежно від LEN. 01 IREC. 05 ПІДНІЧНИЙ ПОСЛІД X ЗБІЛЬШИ ВІД 10 ДО 50 РОКІВ В залежності від ЛЕН.

    РОЗДІЛ ПРОЦЕДУРИ. P1. ВІДОБРАЖЕННЯ "ПРИКЛАД 1 ЗБІЛЬШЕНО ЗА ЗАПИСУ" ВІДКЛЮЧАЙТЕ ВХІД IFILE ВІДПОВІДІТЬ ДО LEN = -1 ЧИТАЙТЕ IFILE НА КІНЕЦЬ ПЕРЕВЕЗЕННЯ -1 ДЛЯ ЛЕНЯ НЕ НА КІНЕЦЬ ДИСПЛЕЙ ЗАСТОСУВАННЯ КІНО


    ДИСПЛЕЙ "ПРИКЛАД FIXED REC" ВІДКРИВАТИ ВХІД IFILE MOVE ALL "X" ДО IREC ЧИТАЙТЕ IFILE НА КІНЕЦЬ ПЕРЕВОД -1 ДО LEN DISPLAY IREC DISPLAY SPACE

  3. Введіть "Save" на консолі і натисніть клавішу "Enter", щоб дозволити програмі обробляти записи змінної довжини.