mainframe

1зной

2ответ

Получить имена полей во время выполнения программы

У меня есть копия книги, как: 01 MY-STRUCTURE. 05 STRUCTURE-NAME PIC X(20). 05 STRUCTURE-DATE PIC X(8). 05 STRUCTURE-LIB PIC 9(3). Как я могу получить имя моих полей? Я хочу иметь про

2зной

1ответ

Объясните использование полной остановки/периода/точки в абзаце

Я использую COBOL в своей работе, и я изначально узнал на сайте с использованием perform - thru .... Теперь я сменил работу, и местные стандарты программирования разные, поэтому мне нужно привыкнуть к

4зной

3ответ

В COBOL, можно ли рекурсивно вызвать абзац?

В COBOL для IBM Mainframe можно ли вызывать абзац рекурсивно? 200-PARAGRAPH SECTION. IF WS-COUNTER < 10 ADD 1 TO WS-COUNTER PERFORM 200-PARAGRAPH ELSE DISPLAY 'I'M DONE'

0зной

3ответ

Как включить focexec в другой focexec в WebFocus?

Каков фактический синтаксис для добавления INCLUDE focexec в другой focexec? Я новичок в WebFocus. Может ли один пожалуйста, скажите мне, почему я получаю эту ошибку: "ERROR: ERROR_MR_FEX_NOT_FOUND Ca

1зной

1ответ

CICS Return VS GOBACK

Что случилось с Commarea, переданным программой A в обоих этих примерах? Программа A делает EXEC CICS LINK в программе В то программа B использует команду GoBack Программа A делает EXEC CICS LINK в пр

1зной

3ответ

Возвращается ли вся ссылка?

В программе EXEC CICS LINK PROGRAM(PGMB) COMMAREA(COMMA) LENGTH(LENGTH OF COMMA) RESP(CICS-RESP) END-EXEC В программе б EXEC CICS RETURN END-EXEC программа Имеет ли б только

0зной

2ответ

Сравнение того, что находится в переменной для текста?

Я пытаюсь выполнить некоторую проверку данных и пытаюсь использовать оператор if, чтобы узнать, есть ли в переменной ERROR-FLAG и RECORD-CODE «NO» и «VC». Пример ниже .. MOVE "NO" TO ERROR-FLAG.