У меня есть сомнения, как найти стек pgm?
ПРИМЕР: У нас есть три PGM: PGM 1, PGM 2, PGM 3.
Однако PGM 2 вызывается PGM1, а PGM 3 вызывается PGM 2.
как мы проверяем, что PGM 3 вызывается PGM 2, так как мы знаем только о PGM 3. мы не знаем о других PGM.
Есть ли команда для проверки стека PGM. Какой PGM вызывается каким PGM без проверки исходного кода.
Спасибо! Мохд Васим
Проверьте API QWVRCSTK: API qwvrcstk. эквивалент параметра информации о задании 11 = Показать стек вызовов
Пример здесь: RPGLE find Имя вызывающей программы
DSPPGMREF PGM(OBJLIB/*ALL) OUTPUT(*OUTFILE) OBJTYPE(*PGM *SRVPGM *MODULE) OUTFILE(YOURBIB/PGMREF) и, возможно, использовать рекурсивный SQL-запрос на YOURLIB/PGMREF, чтобы получить все вызывающие/вызывающие программы
- person Dam; 21.06.2017
Пока программа (PGM3) активна, вы можете отображать ее стек вызовов. На экране WRKACTJOB поместите «5=Работать с» рядом с записью, затем в следующем меню выберите «11=Отображать стек вызовов». Активная программа должна быть в конце списка (или рядом с ним).
Конечно, это не гарантирует, что это единственный путь, по которому может быть вызвана программа (кажется, это невозможно узнать без сканирования источника или использования утилиты управления изменениями).
Если вы хотите проверить это программно, вы можете отправить программное сообщение в запись стека вызовов программ.
SNDPGMMSG MSG(' ') TOPGMQ(*SAME &PGMNAME) KEYVAR(&KEYVAR)
Если вы получаете сообщение CPF2469 или CPF2479, программа НЕ находится в стеке вызовов.
Если вы не получили ошибку, значит, программа находится в стеке вызовов.
Вы можете использовать переменную &KEYVAR, чтобы удалить сообщение, которое вы только что отправили, из очереди сообщений.
