Переменная имени модуля - есть?

[optron]

Добрый день всем.
Clarion 5.5 EE ABC

Хочу сделать вывод в LOG - файл ошибок, возникших при выполнении программы, операций, выполняемых пользователями и т. д.
В связи с этим написал стандартную сплэш - процедуру, в которую параметрами передается всё то, что хочу залогить.
Так вот хотелось бы передавать еще и имя модуля, вызывающего процедуру. Можно, конечно, и ручками, но может есть стандартная переменная, в которой при выполнении модуля фиксируется его имя?

Заранее спасибо.

[Дед Пахом]

%Module

[optron]

Спасибо, Дед Пахом.

[Admin]

Спасибо, Дед Пахом.

Вот тебе шаблончик:

Код: Выделить всё

#TEMPLATE(ModuleName,'Module Name template'), FAMILY('ABC'), FAMILY('Clarion')
#!=============================================================================
#EXTENSION(ModuleNameGlobal,'Add Module Name template')
#SHEET
  #TAB('Tips')
    #DISPLAY
    #DISPLAY('Use varisable Module:Name')
    #DISPLAY
  #ENDTAB
#ENDSHEET
#!=============================================================================
#AT(%ModuleDataSection)
%[40]('Module:Name') EQUATE('%Module')
#ENDAT
#!=============================================================================

Он добавляет в каждый модуль программы такой EQUATE
Module:Name EQUATE('mobil001.clw')

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

[optron]

Вот тебе шаблончик:

Код: Выделить всё

#TEMPLATE(ModuleName,'Module Name template'), FAMILY('ABC'), FAMILY('Clarion')
#!=============================================================================

Он добавляет в каждый модуль программы такой [color=#0000BF]EQUATE[/color]
[color=#FF0000]Module:Name[/color]  [color=#0000BF]EQUATE[/color]('[color=#008000]mobil001.clw[/color]')

Учти что в основной модуль ничего не добавляется т.к. он глобальный...
Если что подправишь шаблон, там все просто...[/quote]

Сделал вот что: 
1. Сохранил означенный код в файле name.tpl  
2. Зарегил шаблон.
3. Добавил в Global\Extention 

Теперь всё прописывает. В каждом модуле есть глобальная переменная Module:Name. Могу к ней обратиться.   
Не дают покоя следующие вопросы - 
[quote] 
Учти что в основной модуль ничего не добавляется т.к. он глобальный...
Если что подправишь шаблон, там все просто...[/quote]
1) Это в какой основной?  (Name.clw)? Действительно не добавляет, да и не нужно ... 
2) Пишется имя файла (Name007.clw), а не имя модуля (Main). А можно, чтобы писалось имя модуля?

[optron]

Ну то есть желательно было бы автоматически получить имя вызвавшей его процедуры.

[Yufil]

Сразу после входа сохрани GlobalErrors.GetProcedureName () . Для всех ABC - процедур кроме Source выдаст наименование процедуры.

[Admin]

Ну то есть желательно было бы автоматически получить имя вызвавшей его процедуры.

Какой вопрос такой и ответ. Изначально говорилось о имени модуля

[optron]

Спасибо всем. Воспользовался и темплейтом и GlobalErrors.GetProcedureName(). Решил выводить в лог и то и то.
Всё получилось.