Как да прочетете файл с разширение в COBOL

Съдържание

• инструкции

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

инструкции

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

1. Напишете "Edit" в конзолата за управление на z / OS360 и натиснете бутона "Enter", за да редактирате вашата COBOL програма.

2. Добавете следния код в началото на програмата:

   ИДЕНТИФИКАЦИОННО ОТДЕЛЕНИЕ. ПРОГРАМА-ID. COBVAR. ОТДЕЛЕНИЕ НА ОКОЛНАТА СРЕДА. РАЗДЕЛ ВХОД - ИЗХОД. ФАЙЛ-контрол. ИЗБЕРЕТЕ ПОДПИСА НА IFILE НА "IFILE".

   РАЗДЕЛ ДАТА. ФАЙЛОВ СЕКЦИЯ. FD IFILE RECORD се променя от 10 на 50 в зависимост от LEN. 01 IREC. 05 ПОПЪЛВАЩО ПОКАЗАНИЕ X СЛЕДВА ОТ 10 ДО 50 ВРЕМЕ В ЗАВИСИМОСТ ОТ LEN.

   РАЗДЕЛ НА ПРОЦЕДУРАТА. Р1. ДИСПЛЕЙ "ПРИМЕР 1 ЗАВИСИ ОТ ЗАПИС" ОТКЛЮЧВАЙТЕ ВХОД IFILE ИЗПЪЛНЕТЕ ДО ЛЕН = -1 ПРОЧЕТЕТЕ IFILE НА КРАЙНИТЕ ПРЕМИНАВАЙТЕ -1 ДА НЕ СЕ КРАЙ ДИСПЛЕЙ ИРЕК ДИСПЛЕЙ LEN END-READ END-PERFORM

   
   

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

3. Напишете "Save" в конзолата и натиснете бутона "Enter", за да позволите на програмата да обработва записи с променлива дължина.