Pasar código de PowerCobol a Cobol WOW

[Fito]

Hola Amigos:

Tengo un colega que necesitaba ordenar (por código) una grilla Spread de la empresa Grapecity. Yo le hice la codificación en PowerCobol porque WOW no conozco. Funciona a la perfección, pero no logramos traducirla a WOW. Probamos mil y una formas.


ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 lCol pic s9(9).
01 lRow pic s9(9).
01 lCol2 pic s9(9).
01 lRow2 pic s9(9).
01 nSortBy pic s9(9).
01 SortKeys pic s9(9).
01 SortKeyOrder pic s9(9).
PROCEDURE DIVISION.

comienzo.
move 3 to SortKeys. *> Columna por la cual ordenar

move 1 to lCol. *> Desde Columna
move 1 to lRow. *> Desde Fila
move maxcol to lCol2. *> Hasta Columna
move maxrow to lRow2. *> Hasta Fila
move 0 to nSortBy. *> 0= por Fila, 1= por Columna
move 1 to SortKeyOrder. *> 0= No ordena, 1= Ascendente, 2= Descendente

move SortKeys to "SortKey"(1) of Spread.
move SortKeyOrder to "SortKeyOrder"(1) of Spread.

invoke Spread "Sort" using lCol lRow lCol2 lRow2 nSortBy returning ReturnValue.

sale.
exit program.


Logramos que no nos diera error, pero no hace nada. Un problema fue setear una propiedad con subindice y después nos daba error el método.

Saludos...

Fito...

[Joseg]

Para cualquier cobol, puede crear un archivo isam temporal con las claves necesarias para la ordenación.
Simplemente léalo con la clave que desee.
Al terminar borra el archivo