Redefinir el método NEW

[Kuk]

Gracias a los ejemplos de Eslopes aquí va el código de cómo redefinir el método NEW por defecto por uno propio:


factory.
data division.
working-storage section.
01 ContextSession pic x(65536) property.
procedure division.

method-id. NEW override.

*> @lang(pt-BR):Override do construtor da classe para inicializar variáveis.
*> @lang(en-US):This is an override of class constructor in order to set some
*> @lang(en-US):important variables.

data division.
linkage section.
01 outContext object reference self.

procedure division returning outContext.

invoke self "CREATE" returning outContext

invoke outContext "INIT"

move spaces to ContextSession

end method NEW.
end factory.