Я получил код, какКак создавать задержки в программе cobol без использования какой-либо полезности?
ACCEPT TIME-TODAY FROM TIME.
** 10 SECONDS waiting:
PERFORM UNTIL DELTATIME <= 00001000
ACCEPT TIME-TODAY-2 FROM TIME
COMPUTE DELTATIME = (TIME-TODAY-2 - TIME-TODAY)
END-PERFORM.
Подробнее: http://ibmmainframes.com/about9953.html#ixzz4NiZIe8cY
но этот код не работает для граничных условий.
У вас есть мэйнфрейм на ваш вопрос, я предположим, что z/OS или z/VM - это ваша операционная система.
Процедуры выполнения для вашего приложения в совокупности называются языковой средой. Неявно или явно, вы будете вызывать эти процедуры выполнения. Вы не можете этого избежать.
Время выполнения: CEE3DLY, что соответствует вашей цели. Проверьте раздел «Языковая среда» в Центре знаний IBM.
Я понимаю, что вы считаете, что ваше требование заключается в создании задержки в вашем коде без использования «какой-либо полезности». Я говорю вам, что вы постоянно используете утилиты (подпрограммы среды языковой среды) в своем коде. Например, Work-Storage выделяется подпрограммами Language Environment. Вызов CEE3DLY не добавляет никаких зависимостей.
Поскольку это дубликат: пожалуйста, не голосуйте на этот ответ - @cschneid: скопируйте большую часть этого ответ на ответ, который вы дали в своем первоначальном ответе (дубликат), удалите свой ответ, если это возможно, и проголосуйте за дубликат –
Нет, это просто абсурдно. Знаете ли вы стоимость 10 секунд процессора на вашем мэйнфрейме? Я думаю, это заставит вас почувствовать тошноту. Почему, по-вашему, вам нужно это делать? –
Тема, на которую вы ссылаетесь на другой веб-странице, составляет десять лет. – cschneid
Duplicate: http://stackoverflow.com/questions/11786621/how-to-sleep-in-mainframe-cobol –