Gracias a los ejemplos de
Eslopes aquí va el código de cómo redefinir el método NEW por defecto por uno propio:
Código COBOL:
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.