mensagem

Código:

DEFINE TEMP-TABLE RowErrors NO-UNDO
            FIELD ErrorSequence    AS INTEGER
            FIELD ErrorNumber      AS INTEGER
            FIELD ErrorDescription AS CHARACTER
            FIELD ErrorParameters  AS CHARACTER
            FIELD ErrorType        AS CHARACTER
            FIELD ErrorHelp        AS CHARACTER
            FIELD ErrorSubType     AS CHARACTER
            index seq ErrorSequence.

CREATE RowErrors.
ASSIGN RowErrors.ErrorSequence    = 1
       RowErrors.ErrorNumber      = 414
       RowErrors.ErrorDescription = "Descrição"
       RowErrors.ErrorHelp        = RowErrors.ErrorDescription.
              
{method/showmessage.i1}
/*--- Transfere temp-table RowErrors para a tela de mensagens de erros ---*/
{method/showmessage.i2 &Modal="Yes"}
{method/showmessage.i3}