Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > COBOL - General > Object-Oriented COBOL
Object-Oriented COBOL OO COBOL 2000/2002 - COBOL orientado a objetos.
Noticias y Avisos
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Método "ThruEvents" Kuk PowerCOBOL V3L10 (Win32) 4 26 de agosto de 2015 17:08
Respuesta
 
Herramientas

  #1
Antiguo 23 de febrero de 2017, 11:15
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)diciembre 2014
España
UbicaciónMadrid
Edad35 años
Última Actividad30.03.2020 15:58
PROCEDURE DIVISION
PostsPosts: 1.466
Ha dicho GraciasEnviado: 338
Ha recibido agradecimientosRecibido: 569
Mejores respuestasSoluiones: 89
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Bombilla Redefinir el método NEW

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:
  1.  factory.
  2.  data division.
  3.  working-storage section.
  4.  01 ContextSession             pic x(65536) property.
  5.  procedure division.
  6.  
  7.  method-id. NEW override.
  8.  
  9. *> @lang(pt-BR):Override do construtor da classe para inicializar variáveis.
  10. *> @lang(en-US):This is an override of class constructor in order to  set some
  11. *> @lang(en-US):important variables.
  12.  
  13.  data division.
  14.  linkage section.
  15.  01 outContext    object reference self.
  16.  
  17.  procedure division returning outContext.      
  18.  
  19.      invoke self "CREATE" returning outContext
  20.  
  21.      invoke outContext "INIT"          
  22.  
  23.      move   spaces                to  ContextSession          
  24.  
  25.  end method NEW.            
  26.  end factory.


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
method , metodo , override


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 18:08.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2020, Jelsoft Enterprises Ltd.