Então, a única maneira de sair é depurar o programa após dar o comando de saída.
Deveria haver um PERFORM que tenha um SELECT na tabela YTNAPR que lhe dará o nome do formulário na variável TNAPR-FONAM e o nome do programa em TNAPR-PGNAM.
Espero que isso ajude!