Dica Utilizando Pré-Processador para Consulta Dinâmica

Pessoal, bom dia.

Segue uma dica de como utilizar os pré-processador para consulta dinâmica ao nosso favor.

Código:

/* Arquvo pre-ems2.p */

def input parameter pi-condicao01 as char.

for each {1}.{2}
    where {1}.{2}.{3} = pi-condicao01
    no-lock:
    display {1}.{2}.{3}
            {1}.{2}.{4}
            .
end.

Segue o outro arquivo. o que chama a consulta.

Código:

/* Arquvo Preprocessador-ems2.p */
def var c-campo01       as char format 'x(40)'    init 'it-codigo'.
def var c-campo02       as char format 'x(12)'    init 'desc-item'.
def var c-condicao01    as char no-undo.

def var c-banco     as char init 'mgemp'.
def var c-tabela    as char init 'item'.

assign  c-banco         =   'mgemp'
        c-tabela        =   'item'
        c-condicao01    =   '132.3'
        .

run pre-ems2.p ( input c-condicao01 ) c-banco c-tabela c-campo01 c-campo02
    /* c-banco c-tabela c-campo01 c-campo02 c-condicao01 */

Obrigado.

Boa tarde Srs.

Não achei um exemplo aqui então fiz um modelinho para quem precisar realizar uma consulta dinâmica. Eu desenvolvi essa rotina para validar se a tabela existe no cadastro de um de-para que estou desenvolvendo, segue abaixo rotina...

Código:

    DEFINE VARIABLE ix         AS INTEGER         NO-UNDO.
    DEFINE VARIABLE l-tab-ok   AS LOGICAL INIT NO NO-UNDO.
    DEFINE VARIABLE qh         AS HANDLE          NO-UNDO.
    DEFINE VARIABLE qh-prepare AS CHARACTER       NO-UNDO.
    DEFINE VARIABLE bh         AS HANDLE          NO-UNDO.
   
    REPEAT ix = 1 TO NUM-DBS: 

        ASSIGN qh-prepare = "FOR EACH " + STRING(LDBNAME(ix)) + "._File WHERE " + STRING(LDBNAME(ix)) + "._File._File-Name = " + "'item'" + " NO-LOCK".

       
        CREATE BUFFER bh FOR TABLE STRING(LDBNAME(ix)) + "._File".

        CREATE QUERY qh.

        qh:SET-BUFFERS(bh).

        qh:QUERY-PREPARE(qh-prepare).

        qh:QUERY-OPEN().

        qh:GET-FIRST().

        IF qh:NUM-RESULTS > 0 THEN ASSIGN l-tab-ok = YES.
       
        qh:QUERY-CLOSE().

        bh:BUFFER-RELEASE().  
       
        DELETE OBJECT bh.     
        DELETE OBJECT qh. 
    END.

    IF  l-tab-ok = NO THEN DO :
        MESSAGE "TABELA INEXISTENTE!"
            VIEW-AS ALERT-BOX INFO BUTTONS OK.

        return 'ADM-ERROR':U.
    END.
    ELSE
        MESSAGE "OK"
            VIEW-AS ALERT-BOX INFO BUTTONS OK.