Cobol Foro - [Compilador] Powercobol búsqueda lenta ficheros indexados LAN

Cobol Foro (https://www.cobolforo.es/index.php)

- PowerCOBOL (ActiveX, v4 - v11) (https://www.cobolforo.es/forumdisplay.php?f=9)

- - [Compilador] Powercobol búsqueda lenta ficheros indexados LAN (https://www.cobolforo.es/showthread.php?t=624)

Powercobol búsqueda lenta ficheros indexados LAN

Algunas rutinas de búsqueda en PowerCOBOL (busqueda incremental, indexed file), que están recibiendo muy lento cuando se ejecuta en un PC cliente que accede a una carpeta compartida en el servidor.
Me gustaría poder hacer esto procesamiento de búsqueda (u otra acción) en el servidor y volver a la PC cliente sólo el resultado. En Fujitsu Cobol existe el recurso Inter-application Communication Function" (cobol - sample29), pero no parece practico teniendo en cuenta que tengo que configurar los ajustes manualmente en todos los PCs. ¿Hay alguna alternativa (algo parcido con el cliente / servidor).

Gracias

Joseg, puedes crear un "Listener" / "Daemon" y ejecutarlo en servidor. Luego se puede montar un mecanismo por ficheros temporales, o más limpio pero más complicado con MSWINSCK.OCX (socket).

Cita:

Citación del post de Kuk (Mensaje 3029)

Joseg, puedes crear un "Listener" / "Daemon" y ejecutarlo en servidor. Luego se puede montar un mecanismo por ficheros temporales, o más limpio pero más complicado con MSWINSCK.OCX (socket).

No sé si puede ayudar. En el evento "DataArrival" (en el servidor), no recibe una cadena como fue enviada por el cliente.
He hecho varios cambios, pero sin éxito.

Gracias

Joseg, parece ser problema de codificación de caracteres. He hecho pruebas, con los valores numéricos en campos binarios (COMP-5) todo funciona bien. El WinSock parece trabajar con strings de UNICODE. Creoq ue el problema viene de ahí. Seguiré investigando.

Cita:

Citación del post de Kuk (Mensaje 3043)

Joseg, parece ser problema de codificación de caracteres. He hecho pruebas, con los valos numéricos en campos binarios (COMP-5) todo funciona bien. El WinSock parece trabajar con strings de UNICODE. Creoq ue el problema viene de ahí. Seguiré investigando.

"Retrieves the current block of data and stores it in a variable of type variant." - Microsoft

El problema esta en la definición de una variable tipo "variante" cosa que el Powercobol no soporta.
Si funcionara resolvía mi problema.

Tengo que buscar otra alternativa.

Usa archivos secuenciales con directiva BSAM, es muy rápido.

La idea es utilizar estos archivos como si fueran "vistas", como tablas view en SQL Server, habría que estar actualizando sus datos desde sus ficheros de origen, no es necesario sacar todos los datos del archivo, solo con los datos que se vayan a mostrar en una tabla.

Hay que tener en cuenta que los controles de Windows, si tienen repintado de datos al tiempo que guardan líneas con datos, relantiza el proceso de generación de la consulta, hay que evitar este detalle, pero aún si, el control en concreto puede crear relantización por su programación.

No es lo mismo leer un archivo indexao a pelo desde una ventana consola de NetCOBOL que en el mismo PowerCOBOL, hay una gran diferencia, prueba de ello, los controles de Windows relantizan la lectura, y más aún si utilizan el método Thruevents para evitar que la ventana se quede congelada.

Salduos.

Joseg, ¡¡¡lo he conseguido!!! :fuma:

Me dejais anonadado, mañana le echare un vistazo. Cuanto queda por aprender, me da miedo

Nitzer, ¡viva el REDEFINES! :D En realidad lo que hice fue redefinir el string en un array de Integers:

Entonces en el cliente hago:

Código COBOL:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  wsmsg        pic x(24).
 01  FILLER REDEFINES wsmsg.
     05  wsINT OCCURS 6 TIMES PIC S9(9) COMP-5.
 01  IDX-1        PIC S9(4)  COMP-5.
 PROCEDURE       DIVISION.
 
     move "Text" OF CmText1 to wsmsg
     
     IF  "State" OF Winsock1 =  7
         MOVE 1 TO IDX-1
         
         PERFORM UNTIL IDX-1 > 6         
             INVOKE Winsock1 "SendData" USING wsINT(IDX-1)
             
             ADD 1 TO IDX-1
         END-PERFORM
     END-IF

Y en el servidor:

Código COBOL:

 ENVIRONMENT     DIVISION.
 DATA            DIVISION.
 WORKING-STORAGE SECTION.
 01  wsmsg        pic x(24).
 01  FILLER REDEFINES wsmsg.
     05  wsINT OCCURS 6 TIMES PIC S9(9) COMP-5.
 01  IDX-1        PIC S9(4)  COMP-5.
 LINKAGE         SECTION.
 01  POW-ARG-BYTESTOTAL PIC S9(9) COMP-5.
 PROCEDURE       DIVISION USING POW-ARG-BYTESTOTAL.
 
     MOVE 1 TO IDX-1
         
         PERFORM UNTIL IDX-1 > 6         
             INVOKE Winsock1 "GetData" USING wsINT(IDX-1) 3
             
             ADD 1 TO IDX-1
         END-PERFORM
         
     MOVE wsmsg TO "Caption" OF CmStatic9

Joseg, según he visto, todos los tipos derivan del Variant:

Código VB:

Public Const vbArray   As Microsoft.VisualBasic.VariantType = 8192
Public Const vbBoolean As Microsoft.VisualBasic.VariantType = 11
Public Const vbByte    As Microsoft.VisualBasic.VariantType = 17
Public Const vbDate    As Microsoft.VisualBasic.VariantType = 7
Public Const vbDecimal As Microsoft.VisualBasic.VariantType = 14
Public Const vbLong    As Microsoft.VisualBasic.VariantType = 20
Public Const vbString  As Microsoft.VisualBasic.VariantType = 8
Public Const vbLong    As Microsoft.VisualBasic.VariantType = 20
Public Const vbInteger As Microsoft.VisualBasic.VariantType = 3
Public Const vbSingle  As Microsoft.VisualBasic.VariantType = 4

Seguro que el "String" tiene su TypeDef que se compone por campos nativos, pero no he encontrado la información necesaria, así que pensé en el REDEFINES.

¡Fantastico !!! Con esta técnica tal vez pueda resolver otros problemas que he tenido con otros OCX.