Exemplo de uma UPC Básica

/* Definição de Parametros ***********************************************/define input parameter p-ind-event  as character.
define input parameter p-ind-object as character.
define input parameter p-wgh-object as handle.
define input parameter p-wgh-frame  as widget-handle.
define input parameter p-cod-table  as character.
define input parameter p-row-table  as rowid.
/* variaveis locais ******************************************************/define variable              c-objeto     as char           no-undo.
define variable              h_frame      as widget-handle  no-undo.
define new global shared var wh-objeto    as Widget-handle  No-undo.
define new global shared var wh-botao     as Widget-handle  no-undo.
                                                                 
assign c-objeto   = entry(num-entries(p-wgh-object:file-name,
                                      "~/"), p-wgh-object:file-name, "~/").
/* Cria um Botão  ********************************************************/if  p-ind-event = "INITIALIZE" and
    p-ind-object = "CONTAINER" then
do:   
    create button wh-botao
    assign row       = 1.15
           column    = 52
           width     = 4.5
           height    = 1.25
           frame     = p-wgh-frame
           sensitive = yes
           visible   = yes
           label     = "Botão"
           TOOLTIP   = "Tooltip do Botão".
   
    on choose of wh-botao persistent run upcs/executa_na_upc.p.
    wh-botao:load-image("image/gr-cla.bmp").
end.