Re: List PGMs Called from MENUs

[Vern Hamberg <vhamberg@xxxxxxxxxxxxxxx>]

Nice technique!

On 3/2/2021 8:52 AM, Rob Berendt wrote:
> For querying the message files associated with a menu look at:
> https://www.ibm.com/support/knowledgecenter/ssw_ibm_i_74/rzajq/rzajqviewmessagefiledata.htm
>
> Here is a sample:
> SELECT
>    MESSAGE_FILE_LIBRARY,
>    MESSAGE_FILE,
>    MESSAGE_ID,
>    MESSAGE_TEXT
> FROM QSYS2.MESSAGE_FILE_DATA
> WHERE MESSAGE_FILE_LIBRARY CONCAT MESSAGE_FILE IN(
> SELECT OBJLIB CONCAT OBJNAME
> FROM table(OBJECT_STATISTICS('*ALLUSR', '*MENU', '*ALLSIMPLE'))
> );
> You can parse out the menu option from MESSAGE_ID.
> The command is in MESSAGE_TEXT.
>
> Add the following to the where clause:
> And UPPER(message_text) like('%MYPGM%')
>
> Rob Berendt