Eh isso mesmo, eh possivel trabalhar com orientacao a objetos no Progress.
Segue um exemplo de um classe no progress… a famosa classe pessoa.­čśÇ

CLASS dev.OOP.Pessoa:

DEFINE PRIVATE VARIABLE nome AS CHARACTER INITIAL “”.
DEFINE PRIVATE VARIABLE salario AS DECIMAL INITIAL 0.

CONSTRUCTOR PUBLIC Pessoa ():
SUPER ().
END CONSTRUCTOR.

DESTRUCTOR PUBLIC Pessoa ():
END DESTRUCTOR.

METHOD PUBLIC VOID setNome (INPUT p_nome AS CHARACTER):
ASSIGN nome = p_nome.
END METHOD.

METHOD PUBLIC VOID setSalario (INPUT p_salario AS DECIMAL):
ASSIGN salario = p_salario.
END METHOD.

METHOD PUBLIC CHARACTER getNome ():
RETURN nome.
END METHOD.

METHOD PUBLIC DECIMAL getSalario ():
RETURN salario.
END METHOD.

END CLASS.

Na classe temos atributos, metodos getter e setter, construtor e destrutor.

abs