No sé si es ésto lo que necesitas, pero si es así, es más fácil de lo que parece Breew:
Defines en cada una de las WORKING, la tabla en tamaño variable y EXTERNAL
Código COBOL:
01 TABLA1 EXTERNAL GLOBAL.
03 TAB1 OCCURS 1 TO 2000 DEPENDING ON IND.
05 T1 PIC 9(4).
05 T2 PIC X(30).
01 IND PIC 9999 COMP-5 EXTERNAL GLOBAL.
01 IND1 PIC 9999 COMP-5.
Pasas los datos a la tabla con un bucle, vamos a suponer que el objeto se llama CMTABLE.
Código COBOL:
INICIO.
MOVE POW-ROWS OF CMTABLE TO IND1.
PERFORM VARYING IND FROM 1 BY 1
UNTIL IND > IND1 OR IND > 2000
MOVE "Text" OF "TableCells" (IND 1) OF CMTABLE TO T1 (IND)
MOVE "Text" OF "TableCells" (IND 2) OF CMTABLE TO T2 (IND)
END-PERFORM.
Y en el otro programa cargas la tabla
Código COBOL:
CARGAR.
PERFORM VARYING IND1 FROM 1 BY 1
UNTIL IND1 > IND OR IND1 > 2000
MOVE IND1 TO POW-ROWS OF CMTABLE
MOVE T1 (IND1) TO "Text" OF "TableCells" (IND1 1) OF CMTABLE
MOVE T2 (IND1) TO "Text" OF "TableCells" (IND1 2) OF CMTABLE
END-PERFORM.
Lo de ponerle 2000, es porque el objeto TABLE en PWC, no puede tener más de 2000 filas y que TABLA1 lleve un DEPENDING, es para hacer la tabla de tamaño dinámico y que ocupe en memoria lo que tenga que ocupar, ni más ni menos, además que de esa manera nunca te quedarás corto, (ni largo), en OCCURS.
Yo lo veo bastante claro, pero si tienes algún problema para entenderlo, pregunta.
Un saludo.-