Зміст
IBM COBOL (Common Business Oriented Language) дозволяє користувачам обробляти різні типи даних у бізнес-і фінансових програмах. COBOL підтримує типи даних змінної довжини для використання в файлах баз даних, що зберігаються на жорстких дисках; користувач вказує максимальну і мінімальну довжину записів для опису файлів диска з записами змінної довжини. Читання файлів даних з змінною довжиною дозволяє обробляти інформацію бази даних без встановлення точного розміру запису у вашій програмі COBOL.
Інструкції
-
Введіть "Edit" у консолі керування системою z / OS360 і натисніть клавішу "Enter" для редагування програми COBOL.
-
Додайте наступний код до початку програми:
РОЗДІЛ ІДЕНТИФІКАЦІЇ. 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
-
Введіть "Save" на консолі і натисніть клавішу "Enter", щоб дозволити програмі обробляти записи змінної довжини.