Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Información] Limites tamaño ficheros indexados FabioYeyo PowerCOBOL (ActiveX, v4 - v11) 14 17 de mayo de 2017 15:08
[Sintaxis] Acceder a ficheros PowerCOBOL con Relativity ODBC Fito WinDev 6 7 de febrero de 2017 16:42
[Compilador] Deterioro ficheros Windows 8.1 PowerCobol V9.0 Fihassin PowerCOBOL (ActiveX, v4 - v11) 7 7 de noviembre de 2016 21:47
[Noticia] Velocidad y rendimiento: BBDD/Ficheros Indexados Kuk COBOL - General 6 5 de abril de 2016 11:29
[Componente] Ficheros *.OCB de PowerCOBOL v3 Kuk PowerCOBOL V3L10 (Win32) 6 4 de junio de 2015 20:05
Respuesta
 
Herramientas

  #1
Antiguo 9 de mayo de 2017, 00:03
IDENTIFICATION DIVISION
Joseg
Novato Senior
Innovación: Por aportar innovaciones - Razón: Por aportar soluciones innovadoras en varias ocasiones 
ENVIRONMENT DIVISION
Avatar de Joseg
DATA DIVISION
Forero desde (Registrado)abril 2015
Portugal
Última Actividad26.10.2020 15:19
PROCEDURE DIVISION
PostsPosts: 194
Ha dicho GraciasEnviado: 40
Ha recibido agradecimientosRecibido: 72
Mejores respuestasSoluiones: 12
ReputaciónReputación: 12
Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about
PC 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 no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 9 de mayo de 2017, 09:08
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad35 años
Última Actividad25.10.2020 09:15
PROCEDURE DIVISION
PostsPosts: 1.658
Ha dicho GraciasEnviado: 469
Ha recibido agradecimientosRecibido: 661
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

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).


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Joseg ( 9 de mayo de 2017)
  #3
Antiguo 10 de mayo de 2017, 10:40
IDENTIFICATION DIVISION
Joseg
Novato Senior
Innovación: Por aportar innovaciones - Razón: Por aportar soluciones innovadoras en varias ocasiones 
ENVIRONMENT DIVISION
Avatar de Joseg
DATA DIVISION
Forero desde (Registrado)abril 2015
Portugal
Última Actividad26.10.2020 15:19
PROCEDURE DIVISION
PostsPosts: 194
Ha dicho GraciasEnviado: 40
Ha recibido agradecimientosRecibido: 72
Mejores respuestasSoluiones: 12
ReputaciónReputación: 12
Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about
Predeterminado

Cita del post de Kuk Ver Mensaje
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
Archivos Adjuntos
Tipo de Archivo: rar ClientServerPPJ.rar (10,4 KB, 37 descargas)
Joseg no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 10 de mayo de 2017, 13:16
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad35 años
Última Actividad25.10.2020 09:15
PROCEDURE DIVISION
PostsPosts: 1.658
Ha dicho GraciasEnviado: 469
Ha recibido agradecimientosRecibido: 661
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

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.


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 10 de mayo de 2017, 16:17
IDENTIFICATION DIVISION
Joseg
Novato Senior
Innovación: Por aportar innovaciones - Razón: Por aportar soluciones innovadoras en varias ocasiones 
ENVIRONMENT DIVISION
Avatar de Joseg
DATA DIVISION
Forero desde (Registrado)abril 2015
Portugal
Última Actividad26.10.2020 15:19
PROCEDURE DIVISION
PostsPosts: 194
Ha dicho GraciasEnviado: 40
Ha recibido agradecimientosRecibido: 72
Mejores respuestasSoluiones: 12
ReputaciónReputación: 12
Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about
Predeterminado

Cita del post de Kuk Ver Mensaje
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.
Joseg no ha iniciado sesión   Responder Con Cita
  #6
Antiguo 10 de mayo de 2017, 17:09
IDENTIFICATION DIVISION
Dasije
Novato Senior
ENVIRONMENT DIVISION
Avatar de Dasije
DATA DIVISION
Forero desde (Registrado)noviembre 2015
Reino Unido
Ubicación Jerez De La Frontera (cádiz)
Última Actividad09.09.2020 23:26
PROCEDURE DIVISION
PostsPosts: 175
Ha dicho GraciasEnviado: 1
Ha recibido agradecimientosRecibido: 77
Mejores respuestasSoluiones: 7
ReputaciónReputación: 12
Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road Dasije is on a distinguished road
Predeterminado

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.


Empresa de desarrollo de aplicaciones en COBOL.

DASIJE INFORMATICA, S.L.
C/ TOMAS BRETON 20
11406 JEREZ DE LA FRONTERA
CADIZ

Teléfono : 956 11 21 11
Web: http://www.dasije.es / DASIJE INFORMATICA
E-m@il: clientes(@)dasije.es
Dasije no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Joseg (10 de mayo de 2017)
  #7
Antiguo 10 de mayo de 2017, 21:24
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad35 años
Última Actividad25.10.2020 09:15
PROCEDURE DIVISION
PostsPosts: 1.658
Ha dicho GraciasEnviado: 469
Ha recibido agradecimientosRecibido: 661
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

Joseg, ¡¡¡lo he conseguido!!!
Imágenes Adjuntas
Tipo de Archivo: png power_socket.png (28,2 KB, 31 descargas)
Archivos Adjuntos
Tipo de Archivo: rar SOCKET.rar (121,6 KB, 33 descargas)


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Han dicho Gracias: 2
Joseg (10 de mayo de 2017), Nitzer (10 de mayo de 2017)
  #8
Antiguo 10 de mayo de 2017, 21:57
IDENTIFICATION DIVISION
Nitzer
Guru de COBOL
Activista del Foro: Activista del Foro - Razón: Por Videoconferencia-Webinar  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por aportar conocimientos excepcionales 
ENVIRONMENT DIVISION
Avatar de Nitzer
DATA DIVISION
Forero desde (Registrado)noviembre 2015
España
Ubicación Almeria
Edad55 años
Última Actividad26.10.2020 17:52
PROCEDURE DIVISION
PostsPosts: 115
Ha dicho GraciasEnviado: 45
Ha recibido agradecimientosRecibido: 79
Mejores respuestasSoluiones: 5
ReputaciónReputación: 13
Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road Nitzer is on a distinguished road
Predeterminado

Me dejais anonadado, mañana le echare un vistazo. Cuanto queda por aprender, me da miedo
Nitzer no ha iniciado sesión   Responder Con Cita
  #9
Antiguo 11 de mayo de 2017, 09:28
IDENTIFICATION DIVISION
Kuk
Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
Forero desde (Registrado)enero 2015
España
Ubicación Madrid
Edad35 años
Última Actividad25.10.2020 09:15
PROCEDURE DIVISION
PostsPosts: 1.658
Ha dicho GraciasEnviado: 469
Ha recibido agradecimientosRecibido: 661
Mejores respuestasSoluiones: 91
ReputaciónReputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

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

Entonces en el cliente hago:
Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  wsmsg        pic x(24).
  5.  01  FILLER REDEFINES wsmsg.
  6.      05  wsINT OCCURS 6 TIMES PIC S9(9) COMP-5.
  7.  01  IDX-1        PIC S9(4)  COMP-5.
  8.  PROCEDURE       DIVISION.
  9.  
  10.      move "Text" OF CmText1 to wsmsg
  11.      
  12.      IF  "State" OF Winsock1 =  7
  13.          MOVE 1 TO IDX-1
  14.          
  15.          PERFORM UNTIL IDX-1 > 6        
  16.              INVOKE Winsock1 "SendData" USING wsINT(IDX-1)
  17.              
  18.              ADD 1 TO IDX-1
  19.          END-PERFORM
  20.      END-IF  

Y en el servidor:

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01  wsmsg        pic x(24).
  5.  01  FILLER REDEFINES wsmsg.
  6.      05  wsINT OCCURS 6 TIMES PIC S9(9) COMP-5.
  7.  01  IDX-1        PIC S9(4)  COMP-5.
  8.  LINKAGE         SECTION.
  9.  01  POW-ARG-BYTESTOTAL PIC S9(9) COMP-5.
  10.  PROCEDURE       DIVISION USING POW-ARG-BYTESTOTAL.
  11.  
  12.      MOVE 1 TO IDX-1
  13.          
  14.          PERFORM UNTIL IDX-1 > 6        
  15.              INVOKE Winsock1 "GetData" USING wsINT(IDX-1) 3
  16.              
  17.              ADD 1 TO IDX-1
  18.          END-PERFORM
  19.          
  20.      MOVE wsmsg TO "Caption" OF CmStatic9  

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

Código VB:
  1. Public Const vbArray   As Microsoft.VisualBasic.VariantType = 8192
  2. Public Const vbBoolean As Microsoft.VisualBasic.VariantType = 11
  3. Public Const vbByte    As Microsoft.VisualBasic.VariantType = 17
  4. Public Const vbDate    As Microsoft.VisualBasic.VariantType = 7
  5. Public Const vbDecimal As Microsoft.VisualBasic.VariantType = 14
  6. Public Const vbLong    As Microsoft.VisualBasic.VariantType = 20
  7. Public Const vbString  As Microsoft.VisualBasic.VariantType = 8
  8. Public Const vbLong    As Microsoft.VisualBasic.VariantType = 20
  9. Public Const vbInteger As Microsoft.VisualBasic.VariantType = 3
  10. 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.


NORMAS DEL FORO - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Joseg (11 de mayo de 2017)
  #10
Antiguo 11 de mayo de 2017, 10:28
IDENTIFICATION DIVISION
Joseg
Novato Senior
Innovación: Por aportar innovaciones - Razón: Por aportar soluciones innovadoras en varias ocasiones 
ENVIRONMENT DIVISION
Avatar de Joseg
DATA DIVISION
Forero desde (Registrado)abril 2015
Portugal
Última Actividad26.10.2020 15:19
PROCEDURE DIVISION
PostsPosts: 194
Ha dicho GraciasEnviado: 40
Ha recibido agradecimientosRecibido: 72
Mejores respuestasSoluiones: 12
ReputaciónReputación: 12
Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about Joseg has a spectacular aura about
Predeterminado

¡Fantastico !!! Con esta técnica tal vez pueda resolver otros problemas que he tenido con otros OCX.
Joseg no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
daemon , fichero , indexado , lan , lento , listener , red , socket , winsock


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 19:11.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2020, Jelsoft Enterprises Ltd.