Ver Mensaje Individual
  #7
Antiguo 31 de enero de 2017, 10:27
Eslopes
Creador de
PowerRustCOBOL
Guru de los Gurus: Por solidos y amplios conocimientos - Issue reason: Por ámplios conocimientos en la materia Concurso: Tercer puesto: Ganador/a del Tercer puesto en un concurso - Issue reason: Juego  Innovación: Por aportar innovaciones - Issue reason: Por aportar soluciones innovadoras 
Última Actividad 22.09.2026 01:37
Posts Posts: 360
Likes enviados Enviados: 29
Likes recibidos Recibidos: 159

Ah, Micro Focus, por que simplificar se podemos complicar? :P

class-object é o equivalente a factory nesta sintaxe da Micro Focus.
object são os métodos da instância. Os comentários no código estão confusos, aliás todo código da Micro Focus é confuso porque a MF insiste em tentar reescrever o Cobol. Neste ponto a Fujistu era muito melhor.

O exemplo abaixo é compliant com o ANSI 2002 e veio do próprio site da MF. Veja se esclarece:

Código COBOL:
  1. class-id. Example inherits
  2.                from Base.  
  3. environment division.  
  4. ...
  5. configuration section.  
  6. repository.            
  7. class Example as "exmp"
  8. class Base as "base"
  9. class CharacterArray.  
  10.  
  11. ...
  12.    factory.            *> CLASS-OBJECT      
  13.    data division.
  14.    working-storage section.
  15.    ...
  16.         method-id. "newWithData".
  17.         ...
  18.         end method "newWithData".
  19.    end-factory.        *> END CLASS-OBJECT.
  20.              
  21.    object.                    
  22.    working-storage section.
  23.     ...
  24.         method-id. "sayHello".
  25.         ...
  26.         end method "sayHello".
  27.    end object.                  
  28. end class Example.
Eslopes is offline   Responder Con Cita