[Sintaxis] 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.