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] Clases abstractas (Abstract Factory) Kuk Object-Oriented COBOL 1 22 de febrero de 2017 15:03
¿Qué hace exactamente el "Rebase"? Kuk GIT 1 25 de octubre de 2016 13:21
Sentencia CLASS en SPECIAL-NAMES Lascu PowerCOBOL (ActiveX) 1 29 de enero de 2016 09:39
Respuesta
 
Herramientas

  #11
Antiguo 2 de febrero de 2017, 09:30
IDENTIFICATION DIVISION
Nitzer
Guru de COBOL
ENVIRONMENT DIVISION
Avatar de Nitzer
DATA DIVISION
Forero desde (Registrado)noviembre 2015
España
UbicaciónAlmeria
Edad53 años
Última Actividad13.12.2018 23:14
PROCEDURE DIVISION
PostsPosts: 57
Ha dicho GraciasEnviado: 27
Ha recibido agradecimientosRecibido: 21
ReputaciónReputación: 6
Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road
Predeterminado

Increibles aportaciones. A veces nos olvidamos de todo lo que se puede conseguir con Cobol. Estamos demasiado centrados en programar nuestro negocio.
Nitzer no ha iniciado sesión   Responder Con Cita
  #12
Antiguo 2 de febrero de 2017, 14:26
IDENTIFICATION DIVISION
Eslopes
Guru de OO COBOL
ENVIRONMENT DIVISION
Avatar de Eslopes
DATA DIVISION
Forero desde (Registrado)agosto 2015
Brasil
Última Actividad09.07.2018 17:28
PROCEDURE DIVISION
PostsPosts: 66
Ha dicho GraciasEnviado: 17
Ha recibido agradecimientosRecibido: 29
ReputaciónReputación: 6
Eslopes is on a distinguished road Eslopes is on a distinguished road Eslopes is on a distinguished road
Predeterminado Site OO Cobol

Olá,

eu havia publicado no meu site coisas como design patterns, integração com Java, com GoogleMaps, OO Cobol e VB Script, exemplos de diversas coisas. Acho que meu erro foi ter publicado em inglês.

Ainda dá para ver algo online no webarchive

Site sobre OO Cobol


Saludos, Emerson

Última edición por Eslopes fecha: 2 de febrero de 2017 a las 14:27. Razón: Correção de url
Eslopes no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Nitzer ( 4 de febrero de 2017)
  #13
Antiguo 2 de febrero de 2017, 15:07
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad33 años
Última Actividad13.12.2018 23:01
PROCEDURE DIVISION
PostsPosts: 1.319
Ha dicho GraciasEnviado: 280
Ha recibido agradecimientosRecibido: 480
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
Predeterminado

Eslopes, a mi no se me abre la página...

Yo insisto en que el tema es muy interesante. Sería una pena que tanto material se pierda. Amigo Eslopes, cuando puedas estaría bien que vayas publicando aquí en el Foro cosas que tenías en esa WEB. Personalmente yo te lo agradecería


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
  #14
Antiguo 4 de febrero de 2017, 20:28
IDENTIFICATION DIVISION
Nitzer
Guru de COBOL
ENVIRONMENT DIVISION
Avatar de Nitzer
DATA DIVISION
Forero desde (Registrado)noviembre 2015
España
UbicaciónAlmeria
Edad53 años
Última Actividad13.12.2018 23:14
PROCEDURE DIVISION
PostsPosts: 57
Ha dicho GraciasEnviado: 27
Ha recibido agradecimientosRecibido: 21
ReputaciónReputación: 6
Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road
Predeterminado

Eslopes, opino como Kuk, sería una verdadera pena perder toda esa información y la página no va
Nitzer no ha iniciado sesión   Responder Con Cita
  #15
Antiguo 22 de febrero de 2017, 15:49
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
UbicaciónMadrid
Edad33 años
Última Actividad13.12.2018 23:01
PROCEDURE DIVISION
PostsPosts: 1.319
Ha dicho GraciasEnviado: 280
Ha recibido agradecimientosRecibido: 480
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
Predeterminado

Eslopes, en este código usas STATIC:

Código COBOL:
  1.        CLASS-ID. Singleton AS "CoolThings.Singleton".
  2.    
  3.           *> Static data and methods
  4.           static.
  5.               data division.
  6.                  working-storage section.
  7.                  01 instance usage object reference SINGLETON is private.
  8.              
  9.               procedure division.
  10.                   method-id. GetInstance AS "GetInstance".
  11.                       data division.
  12.                           linkage section.
  13.                           01 localSingleton usage object reference SINGLETON.
  14.                          
  15.                       procedure division returning localSingleton.
  16.                           if (instance equal null) then
  17.                                 invoke Singleton "NEW" returning localSingleton
  18.                                 set    instance  to localSingleton
  19.                           else
  20.                                 set    localSingleton    to instance
  21.                           end-if
  22.                          
  23.                   end method GetInstance.
  24.           end static.
  25.    
  26.           *> Instance's data and methods      
  27.           object.
  28.               environment division.
  29.                   data division.
  30.                       working-storage section.
  31.                       01   counter pic s9(04) value zeros.
  32.              
  33.               procedure division.
  34.                   method-id. NEW is private.
  35.                       data division.
  36.                       procedure division.
  37.                           move zeros   to counter.
  38.                      
  39.                   end method NEW.
  40.                  
  41.                   method-id. GetCounter as "GetCounter".
  42.                       data division.
  43.                           linkage section.
  44.                           01 localCounter  pic s9(04).
  45.                              
  46.                   procedure division returning localCounter.
  47.                      add   1       to counter.
  48.                      
  49.                      move  counter    to  localCounter.
  50.                      
  51.                   end method GetCounter.
  52.                  
  53.           end object.        
  54.  
  55.       END CLASS Singleton.

Entiendo que en el dialecto de Fujitsu OO COBOL, STATIC equivale a FACTORY. ¿Es esto cierto?


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
class-object , cobol 2000 , cobol 2002 , factory , object , object-oriented , oocobol


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:47.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2018, Jelsoft Enterprises Ltd.