[KTSnowy]

@JCantero, Me refiero a una tabla de referencias de objetos usando "USAGE OBJECT REFERENCE".

Algo como esto:

WORKING-STORAGE SECTION.
    01 OBJECTS TYPEDEF STRONG.
        02 OBJ USAGE OBJECT REFERENCE OCCURS X TIMES.
    
    01 OBJECT-TABLE TYPE OBJECTS.
...
 
MOVE ClassName :: "New" TO OBJ OF OBJECT-TABLE (INDEX).

Pero no estoy seguro de si esto es sintácticamente correcto y si es posible definir una tabla de objetos como esta.