Como converter um objeto Query *QRYDFN para SQL

Recuperamos a descrição da QUERY utilizando o comando RTVQMQRY ALWQRYDFN(*YES)
Depois de limpar o membro onde temos salvado a descrição da QUERY e de deixar unicamente as instruções SQL propriamente ditas teremos duas opções

Se não tem SQL:

CRTQMQRY QMQRY(NOM)
         SRCFILE(QQMQRYSRC)
         SRCMBR(*QMQRY)
         TEXT(*SRCMBRTXT)

e para executa-lo:

STRQMQRY QMQRY(NOM)

Se tem SQL

RUNSQLSTM

03-05-2001

Fonte: www.recursos-as400.com