[Sintaxis] 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