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.