Есть некая большая программа, работающая по расписанию на сервере.
Там по пятницам идет копирование таблиц в нужную директорию
и потом их зипирование и стирание копий
Работает эта штука у меня года полтора.
Сейчас третью или четвертую неделю программа застревает в середине копирований.
От меня при этом идет на ура.
Код для все таблиц тривиальный
set reproc to 30 sec
try
copy путь+имятаблицы.* to путь1+имя таблицы.*
=writeprot('имя таблицы')
catch to loexp
=writeerror('Имя таблицы')
endtry


функции write банальные strtofile( ...,.t.)

> застревает в середине копирований.

Возникает перехватываемая ошибка? Что при ошибке в loexp.Message (.ErrorNo) ?

в том -то и дело, что ошибки не пишет,
похоже, висит на копировании намертво
Если бы была ошибка, я и вопрос тут не задавал

boba
Сейчас третью или четвертую неделю программа застревает в середине копирований.

У меня такое было ,пока пк окончательно не здох. После того как поменяли вздутые кондесаторы начало копировать нормально.

Наверное, и копирование виндой к такому же зависанию приводит? Тогда это проблемы железа, или сети...

Программа висит до сих пор,
заменить не могу. Жду системщика, чтобы он сорвал.
Копирование висит чуть ли не для самой маленькой таблицы.
Почему на ней, никаких идей.
У меня все работает.

Может прога модальное окно выдала, ждет нажатия на кнопку? Попробуй визуализировать висящую прогу, либо послать окну проги Enter.





Исправлено 2 раз(а). Последнее : PaulWist, 19.03.21 09:57

Можно посмотреть кем открыт данный сетевой(?) файл. До сих пор использую древний NetWatch, штатным монитором ресурсов что-то видно, что открыт...

messagebox() нет

виндой этот файл копируется?

сейчас запустили еще раз
Отвалилась на другой таблице
Явно чего-то не понимаю, а что,
не пойму.
До вызова архиватора не доходит.



Исправлено 1 раз(а). Последнее : boba, 19.03.21 11:16

Речь не про пользовательское окно, а об окне ошибок самого фокса.

boba
Явно чего-то не понимаю, а что,
не пойму.

Может быть там не хватает прав на что-то?
Скажем после обновлений системы - если оно именно с какого-то момента началось.
Без административного доступа вряд ли разберешься с таким.

Обработчик ошибок там кроме try
свой, в нем нет messagebox
То есть, ситуации, когда на серваке некому будет ответить на сообщение
об ошибке нет.
Программа идет по расписанию на сервере от моего имени в 6 утра,
у меня на все эти директории права есть.
Проблема появилась с месяц назад,
до этого все работало года полтора
С моего компьютера сегодня прошла до конца,
файлы скопированы, заархивированы и потом стерты
в директории для копирования.
Напрягает, что я сам на сервер зайти не могу,
просить срывать приходится системщика.
Подумал, что в самой части обработки после catch
ошибка, сам сделал намерено ошибку после try до копирования , catch
отработал на ура.
Явно какая-то тривильщина, но в чем она?

Можно перед копированием делать попытку открытия файла эклсюзивно, и если не получается, то сообщать/логировать... То же и в директории приемника файла. Но раз это работало, но вдруг перестало, причем на разных файлах, то или железные проблемы, или кто-то их держит...

boba
у меня на все эти директории права есть.
Проблема появилась с месяц назад,
до этого все работало года полтора

Уже обсуждали когда-то - права пользователя и права собственно программы им запущенной в принципе отличаются, если в исполняемом файле на задано их повышение.
А тот факт, что проблема недавно появилась, может говорить, что это скорее всего связано именно с самой системой (тем более, раз уж в программе ничего не менялось).
Скажем, в эти дни пришло какое-то обновление безопасности. Или что-то в этом роде изменило настройки безопасности например на умолчания какие-то по доступу.
Т.е. скорее всего в системе проблема. Ну в любом случае без админа не разобраться думаю.

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

() Всё ты пытаешься свести к перехватываемой ощибке, Игорь. Он же говорит, что неперехватываемая ошибка, и вообще не ошибка. не копируется у него

Доб. И попробовать он не может. Прога у него ставится админами в неведомую даль, и он не может ее смотреть и пробовать )

() И рон эту непргерскую ошибку решит... мтк...ну, пока, по всем факторам, уверен(!)



Исправлено 2 раз(а). Последнее : of63, 21.03.21 00:27

Цитата:

Ну в любом случае без админа не разобраться думаю.

Это, если админы вменяемые, хватает квалификации. Наши просто говорят "Ищите ошибку в программе".


Надо логи системы изучить ДО появления ошибки и ПОСЛЕ появления ошибки, думаю, что проблема в системе, как Криспа написал.

of63
() Всё ты пытаешься свести к перехватываемой ощибке, Игорь. Он же говорит, что неперехватываемая ошибка, и вообще не ошибка. не копируется у него

Я лишь говорю о шагах, которые позволят вместо "неперехватываемой ошибки и вообще не ошибки" получить таки перехватываемую, обрабатываемую/отслеживаемую ошибку.
С set reproc тоже есть свои хитрости - SYS(3052) которая говорит чтобы заданный set reproc работал с индексными и мемо-файлами, set reproc system - если используется dbc и вдруг не в режиме readonly (сам контейнер) - тоже может возникнуть "зависание" при работе уже с самим контейнером.

В общем смысл простейший - для такого рода программ/сервисов необходимо устранить ВСЕ возможные модальные состояния. Как вручную из кода вызываемые - типа забытого где-то messagebox или do form, так и фоксовые - когда он просит "покажи файл" при не найденном файле, или говорит "что-то у тебя тут индекс пропал, давай ка я уберу информацию о нём из dbf"...