Опция RENT для компиляции реентерабельной программы COBOL

Я новичок в программировании на COBOL. Я вношу изменения в программу COBOL, которая манипулирует потоками. Я добавил в программу файл для чтения набора параметров и их использования в программе. Но всякий раз, когда я компилирую программу, я получаю следующее предупреждение: -

*1237-W **Обработка файлов, используемая с директивой REENTRANT

Теперь я должен использовать опцию RENT для компиляции этой программы? Если да, то как мне скомпилировать с использованием опции RENT, т.е. точные команды, которые будут использоваться. Пожалуйста помоги.


cobol microfocus procobol
person Adi G    schedule 06.07.2014    source источник
comment
В: Какая у вас операционная система? Окна? линукс? Другой? В: Вы смотрели здесь Системный интерфейс Microfocus COBOL (Cob)?   -  person FoggyDay    schedule 07.07.2014
comment
Первоначально он был помечен как прокобол. ProCOBOL принадлежит Oracle. ОП был немного скромен с полной ссылкой на сообщение об ошибке. Итак, это COBOL, продаваемый Micro Focus, или ProCOBOL от Oracle (вероятно, написанный Micro Focus)? Что вы подразумеваете под манипулированием потоками? Сообщение выглядит как предупреждение. Вы пытались запустить программу? Действительно ли ваша программа реентерабельна? Если это так, и ваша служба обработки файлов знает об этом, вы можете идти (кто знает?).   -  person Bill Woodger    schedule 07.07.2014

Ответы (1)


arrow_upward
1
arrow_downward

Номер сообщения об ошибке подразумевает, что вы используете Micro Focus COBOL, поэтому в зависимости от платформы вы можете сделать следующее:

Юникс:

cob -C ПОВТОРНЫЙ ВХОД fred.cbl

Окна:

cobol fred.cbl ПОВТОРЯЮЩИЙСЯ; cbllink fred.obj

или вы можете добавить опцию к самому фактическому исходному коду, например:

  $set REENTRANT
person Stephen Gennard    schedule 01.08.2014
comment
ОП не заглядывал в течение пяти минут после публикации вопроса. Вы видели комментарии к вопросу? Тем не менее, прохожему с чем-то подобным все равно пригодится. - person Bill Woodger; 01.08.2014