Проверка программирования сальника на тайм-аут

Question

Надеюсь, вы можете мне помочь или направить меня к тому, кто может мне помочь. Я программирую в M (UMPS), и у меня проблема. В программе я жду ответа от мэйнфрейма, который я читаю (R x: 15). Я понимаю, что через 15 секунд, если я не получу ответа, я перестану ждать ответа. Я проверил свой $ T, и если там ничего нет или если он равен нулю, я хочу остановить программу.

Это работает иногда, но чаще всего программа прерывается перед проверкой $ T, у меня даже нет возможности увидеть, что находится в x, как я могу поймать это, прежде чем он прерывается. Я смотрел в журнал консоли и везде, но я не вижу никаких ошибок. Единственная ошибка, я вижу, когда я смотрю на неудачной задаче он сказать ERR (GetR + 9, который является линией, где я делаю свое чтение.

R x:15 (IT STOPS HERE AND ABORTS if I run out of time) 

Я попытался

G:'$T END 
OR 
I '$T G END 
OR 
S TEST=$T 
IF TEST=0 .......... 

Но ни один из эти проверки, если я тайм-аут Если я не таймаут все работает отлично

Answer 1

по прозорливости я оказался на этом форуме сегодня Так, может быть, этот вопрос был дан ответ уже Во всяком случае, здесь идет:....

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

переменные чтения: 15 Если «$ Test Гото ErrorHandler

Однако, когда канал связи между двумя системами закрывается, это рассматривается как состояние ошибки, поэтому в этом случае, должно работать:

Set $ ​​этрапа = "Goto ErrorHandler"

Читать переменную Set $ ​​этрапа = ""; Обратите внимание, что мы не нуждаемся в тайм-ауте, чтобы справиться с этим ...

Надеется, что это помогает