This is a example of how to instance a class in ABL.

Used class
Pessoa

ABL Procedure
DEFINE VARIABLE cPessoa   AS CLASS dev.OOP.Pessoa   NO-UNDO.

cPessoa = NEW dev.OOP.Pessoa().

cPessoa:setNome(“carlos”).
cPessoa:setSalario(500).

MESSAGE cPessoa:getNome() VIEW-AS alert-box.
MESSAGE cPessoa:getSalario() VIEW-AS alert-box.

DELETE OBJECT cPessoa.

see u…

Advertisements