Bom dia, Estou precisando descobrir o nome do programa chamador Ex: O programa A, chama o programa B que por sua vez chama o programa C. Do programa C eu gostaria de saber quais os nomes dos programas B e A. Já utilizei esse comando há uns 3 anos rs e não me lembro de jeito nenhum...
DEFINE VARIABLE i AS INTEGER NO-UNDO. DO i = 1 TO 20: IF PROGRAM-NAME(i) = ? THEN LEAVE. DISP PROGRAM-NAME(i) FORMAT "X(50)". PAUSE. END.
Boa tarde! Você também pode setar o debug em mensagens (debug-alert), dessa forma: SESSIONEBUG-ALERT = YES. Esse comando pode ser executado fora do programa, numa procedure vazia. Com isso todas as caixas de mensagens que forem mostradas na sessão onde executar esse comando vão apresentar um botão ajuda, onde irá mostrar todo o caminho percorrido pela execução, desde o primeiro programa executado (programas e procedures). Então você pode colocar uma mensagem em qualquer ponto que desejar do programa. Espero que seja útil pra vc!
