Как КОБОЛ хранит и получает данные? [закрытый]

COBOL - это еще один компьютерный язык третьего поколения. Он просто немного старше большинства, что не означает, что он в чем-то неполный (на самом деле в нем довольно много багажа, но это уже другая история).

Как и любой другой язык третьего поколения, COBOL управляет файлами данных почти так же, как и в программе на языке C. Ничего странного, загадочного или волшебного в этом нет. Файлы открываются, читаются, записываются и закрываются с использованием функций файлового ввода-вывода языка.

Для установления связи между реальным файлом и программой используются различные механизмы. Подробности здесь часто относятся к той операционной системе, в которой вы работаете. Как правило, реализации COBOL пытаются изолировать себя от операционной среды с помощью логического имени файла, а не фактического имени. Это добавленное косвенное обращение важно, когда вы пишете программы, которые будут портированы на разные платформы (например, писать и тестировать в среде IDE на платформе Windows, а затем запускать на мэйнфрейме).

Следующие примеры относятся к среде мэйнфрейма IBM.

В мире мэйнфреймов IBM вы обнаружите, что программы выполняются либо в пакетном режиме, либо в интерактивном режиме (например, CICS). Я не буду описывать, как настроить файловый ввод-вывод под CICS (это долгая история). Программы, которые используются для работы с файлами, обычно являются пакетными. Вот приблизительная иллюстрация того, как работает пакетная программа:

1. Пакетные программы запускаются через JCL. JCL используется для идентификации программы для запуска (оператор EXEC) и для определения файлов, которые ваша программа будет ссылаться с помощью операторов DD.Функция оператора DD состоит в том, чтобы сформировать логическую связь между фактическим файлом и именем, на которое ваша программа COBOL будет ссылаться, когда захочет обратиться к файлу (это механизм изоляции, упомянутый ранее). Например,

    JCLDDNAM DD DSN = 'HLQ.MY.FILE' ... 
    

   свяжет 'DD' имя 'JCLDDNAM' с файлом с именем 'HLQ.MY.FILE'. Эта часть зависит от платформы, поэтому детали зависят от операционной среды.

2. В разделе «FILE-CONTROL» вашей программы на COBOL вы связываете «DD NAME», определенное в вашем JCL, с именем, которое вы будете использовать в каждом операторе ввода-вывода для ссылки на этот файл. Это соединение определяется с помощью оператора SELECT.
   Например,

    SELECT MYFILE 
   ASSIGN JCLDDNAM 
   остаток от select 
    

   устанавливает соединение между любым файлом, который вы связали с 'JCLDDNAM 'в вашем' JCL 'в' MYFILE ', на который вы позже будете ссылаться в операторах ввода-вывода COBOL. Сам оператор SELECT является частью стандарта ISO COBOL. Однако многие реализации COBOL определяют некоторые нестандартные расширения для облегчения различных причуд своих файловых подсистем.

3. Открывать, читать, писать и закрывать файлы в разделе «PROCEDURE DIVISION» вашей программы, используя имя «MYFILE», например:

    OPEN MYFILE 
   READ MYFILE 
   CLOSE MYFILE {{ 1}} 

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

IBM COBOL поддерживает широкий спектр файловых организаций и методов доступа. Вы можете просмотреть справочное руководство по языку IBM Enterprise COBOL здесь , чтобы получить синтаксис и правила для работы с файлами, однако в Руководстве пользователя приведено множество хороших примеров для чтения / записи файлов ( придется немного покопаться - но это все уже выложено за вас).

Настройка ссылки на базу данных SQL через программу COBOL несколько отличается, но включает установку соединения между вашей программой и подсистемой базы данных. В мире IBM это делается через JCL, другие среды будут использовать другие механизмы.

IBM COBOL использует препроцессор или сопроцессор для интеграции доступа к базе данных и обмена данными. Например, следующий код будет извлекать некоторые данные из базы данных DB2:

MOVE 1234 TO PERSON-ID
EXEC SQL
  SELECT  FIRST_NAME,  LAST_NAME
  INTO   :FIRST-NAME, :LAST-NAME
  FROM PERSON
  WHERE PERSON_ID = :PERSON-ID
END-EXEC
DISPLAY PERSON-ID FIRST-NAME LAST-NAME

Материал между EXEC SQL и END-EXEC представляет собой довольно простой оператор выбора SQL. Имена, которым предшествуют двоеточия, представляют собой переменные хоста COBOL, используемые для передачи данных в DB2 или получения их обратно. Если вы когда-либо кодировали процедуры доступа к базе данных, это должно быть вам хорошо знакомо. Эта ссылка дает простое введение в включение операторов SQL в программу IBM Enterpirse COBOL.

Между прочим, IBM Enterprise COBOL также может работать с XML-документами. Извините за сильный уклон IBM, но это среда, с которой я больше всего знаком.

Надеюсь, это поможет вам начать в правильном направлении.