@KTSnowy, pues si he entendido bien la pregunta, en Fujitsu COBOL tienes 2 posibilidades, puedes tener arrays de objetos genéricos o específicos:
Código COBOL:
WORKING-STORAGE SECTION.
01 misTextBox.
05 miTextBox occurs 3 times OBJECT REFERENCE AMixed-DCmTextbox-Main-with-DCfGroupItem-Main.
01 objetosGenericos.
05 misObjetos occurs 3 times OBJECT REFERENCE.
Otra cosa, en Cobol de toda la vida los campos "padre"
no tienen tipado y son por defecto tomados como alfanuméricos:
Código COBOL:
01 campoPadre. *> este es aflanumérico
05 campoHijo1 PIC 9(9) COMP-5.
05 campoHijo2 PIC 9(4) COMP-5.
Esta filosofía no permitiría definir el tipado de objetos en el nivel 01 y que los niveles inferiores heredaran dicho tipado.
En cuanto a
Código COBOL:
MOVE ClassName :: "New" TO OBJ OF OBJECT-TABLE (INDEX).
lo que estamos haciendo es llamar a un método, y siendo estrictos, Cobol para ello tiene el verbo
Invoke, o sea que yo lo veo más bien así:
Código COBOL:
INVOKE ClassName "New" RETURNING OBJ(INDEX) OF OBJECT-TABLE.