1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.

  2. Anuncie Aqui ! Entre em contato fdantas@4each.com.br

Criando Procedures Dinamicas

Discussão em 'Progress 4GL' iniciado por fdantas, Fevereiro 19, 2009.

  1. fdantas

    fdantas Administrator Moderador

    Código:
    DEFINE VARIABLE hCall AS HANDLE.
    CREATE CALL hCall.
    
    FUNCTION get-description RETURNS CHAR (INPUT a AS INT, INPUT b AS CHAR):
    
        MESSAGE a b
            VIEW-AS ALERT-BOX INFO BUTTONS OK.
    
    END FUNCTION.
    
    hCall:CALL-NAME = "get-description".
    hcall:CALL-TYPE = 2.
    hCall:NUM-PARAMETERS = 2.
    hCall:SET-PARAMETER( 1, "INTEGER", "INPUT", 20).
    hCall:SET-PARAMETER( 2, "CHARACTER", "INPUT", "USA").
    hCall:INVOKE.
    
    DELETE OBJECT hCall.
    

Compartilhe esta Página