Duvida Gerar log de acessos dos usuários via progress

Bom dia pessoal!
Alguém sabe se é possível gerar log de acessos dos usuários via comando progress, contendo informações como código do usuário, data/hora início/fim que o usuário permaneceu logado?

Há várias formas de gerar um log.
Aqui na empresa eu criei uma tabela com os campos que preciso armazenar e para cada acesso eu crio um registro novo.
Se o programa que vai originar o log for customizado eu incluo um bloco a mais.
Se o programa for nativo eu uso uma UPC para gravar o log.

Não sei se usas o Datasul EMS (TOTVS), se a resposta for sim, o sistema já possui recursos para gerar log. Quando cadastramos um procedimento/programa há um flag que indica que desejamos gravar log.
Há também programas nativos para listar este log.

Exemplo:
create log-alt-totvs.
assign log-alt-totvs.sistema = "MI"
log-alt-totvs.acao = if new(b-ord-manut) then "Inc" else "Alt"
log-alt-totvs.componente[1] = "MI1001"
log-alt-totvs.tabela = "ord-manut"
log-alt-totvs.rec-id = recid(b-ord-manut)
log-alt-totvs.maquina = if session:batch-mode = no then "On-line" else "RPW"
log-alt-totvs.tipo-log = "Log"
log-alt-totvs.texto-1 = "Esta OM foi reaberta. H um programa em MI para listar estes casos. Veja MRMI106."
log-alt-totvs.texto-2 = "Ordem: " + string(b-ord-manut.nr-ord-produ) + " " +
"Estado original: " + trim(string(b-ord-manut-ant.estado)) + " - " + trim(entry(b-ord-manut-ant.estado,{ininc/i01in271.i 3})) + " " +
"Estado novo: " + trim(string(b-ord-manut.estado)) + " - " + trim(entry(b-ord-manut.estado,{ininc/i01in271.i 3}))
log-alt-totvs.texto-3 = "Dt-manut: " + string(b-ord-manut.dt-manut,"99/99/9999") + " Dt-prev-manut: " + string(b-ord-manut.dt-prev-manut,"99/99/9999")
log-alt-totvs.char-1 = ""
log-alt-totvs.char-2 = ""
log-alt-totvs.log-usr = v_cod_usuar_corren
log-alt-totvs.log-data = today
log-alt-totvs.log-hora = string(time, "HH:MM:SS").
release log-alt-totvs.

Sds