Cobol Foro

Cobol Foro (https://www.cobolforo.es/index.php)
-   RM/COBOL (https://www.cobolforo.es/forumdisplay.php?f=16)
-   -   [Sintaxis] Pasar código de PowerCobol a Cobol WOW (https://www.cobolforo.es/showthread.php?t=1656)

Fito 11 de julio de 2023 06:26

Pasar código de PowerCobol a Cobol WOW
 
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.

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  lCol           pic s9(9).
  5.  01  lRow           pic s9(9).
  6.  01  lCol2          pic s9(9).
  7.  01  lRow2          pic s9(9).
  8.  01  nSortBy        pic s9(9).
  9.  01  SortKeys       pic s9(9).
  10.  01  SortKeyOrder   pic s9(9).
  11.  PROCEDURE       DIVISION.
  12.  
  13.  comienzo.
  14.      move 3                  to SortKeys.       *> Columna por la cual ordenar
  15.  
  16.      move 1                  to lCol.           *> Desde Columna
  17.      move 1                  to lRow.           *> Desde Fila
  18.      move maxcol             to lCol2.          *> Hasta Columna
  19.      move maxrow             to lRow2.          *> Hasta Fila
  20.      move 0                  to nSortBy.        *> 0= por Fila, 1= por Columna
  21.      move 1                  to SortKeyOrder.   *> 0= No ordena, 1= Ascendente, 2= Descendente
  22.      
  23.      move SortKeys           to "SortKey"(1)      of Spread.
  24.      move SortKeyOrder       to "SortKeyOrder"(1) of Spread.
  25.      
  26.      invoke Spread "Sort" using lCol lRow lCol2 lRow2 nSortBy returning ReturnValue.
  27.      
  28.  sale.
  29.      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 11 de julio de 2023 11:16

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


La franja horaria es GMT +2. Ahora son las 13:03.

Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.