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 > MicroFocus COBOL > RM/COBOL
RM/COBOL IDE y Compilador RM/COBOL
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Herramienta] Lentitud programas en red Rm/cobol Matrix40 RM/COBOL 5 11 de octubre de 2020 20:30
[Herramienta] Main Window Type BENBER RM/COBOL 5 21 de agosto de 2020 21:48
[Información] Lentitud ficheros PowerCobol Win 2016 Server/VPS Joseg PowerCOBOL (ActiveX, v4 - v11) 5 24 de enero de 2020 00:38
[Compilador] Compilador recomendable para Window 7 x86 Matias COBOL - General 2 12 de julio de 2016 00:07
[Aporte] Bring Window to Top (By Name) Rapinto Cocina PowerCOBOL + WinAPI 0 13 de abril de 2015 22:06
Respuesta
 
Herramientas

  #1
Antiguo 4 de marzo de 2021, 16:00
IDENTIFICATION DIVISION
Matrix40
Acabo de llegar...
ENVIRONMENT DIVISION
Avatar de Matrix40
DATA DIVISION
Forero desde (Registrado)octubre 2020
España
Edad50 años
Última Actividad05.03.2021 23:49
PROCEDURE DIVISION
PostsPosts: 3
Ha dicho GraciasEnviado: 4
Ha recibido agradecimientosRecibido: 0
Mejores respuestasSoluiones: 0
ReputaciónReputación: 0
Matrix40 is an unknown quantity at this point
Predeterminado Lentitud Rm/Cobol en red con window 10

Hola, hace un tiempo pregunté sobre este tema y quería ver si alguien ha encontrado solución.
Trabajando con RM/cobol version 12 instalado en local en varios pc's y que acceden a los programas y datos de un servidorn con una unidad compartida, con windows antiguos funcionaba muy bien. Al cambiar equipos y pasar a Windows 10 los procesos tardan 10 veces más.
Alguien sabe si existe alguna fórmula de modificar la configuración del pc o el servidor para que tenga un redimiento y velocidad razonables. Sin tener que cambiar a acceso remoto (terminal server), y seguir trabajando con el runtime instalado de forma local?
Muchas gracias.
Matrix40 no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 5 de marzo de 2021, 00:36
IDENTIFICATION DIVISION
JCantero
Novato Senior
ENVIRONMENT DIVISION
Avatar de JCantero
DATA DIVISION
Forero desde (Registrado)junio 2016
España
Ubicación Albacete
Edad54 años
Última Actividad14.05.2021 11:17
PROCEDURE DIVISION
PostsPosts: 174
Ha dicho GraciasEnviado: 50
Ha recibido agradecimientosRecibido: 115
Mejores respuestasSoluiones: 8
ReputaciónReputación: 16
JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road JCantero is on a distinguished road
Predeterminado

Windows es una tortuga. Y rmcobol en windows es ...........

La unica opción es que montes en el servidor un disco SSD.

O migrar RMcobol a linux que va como una centella.



Corriendo un test de carga lectura escritura en archivos indexados de 1 y 5 claves. (100000 registros) en discos de almacenamiento actuales

windows local (disco HD) 3200 registros/segundo

windows en red (HD) 350 r/s

windows local (SSD) 33000 r/s

windows en red (ssd) 22000 r/s

linux (HD) 57000 r/s

linux (SSD) 110000 r/s

---------- Post añadido : 01:36 ---------- Post anterior : 01:26 ----------

Puedes probar en tu sistema para ver como va con la comparativa anterior.

También invito al resto de los foreros a realizar pruebas para comparar sistemas y TIPOS de COBOL. Compilar y ejecutar.

Código COBOL:
  1.        identification division.
  2.        program-id.  j2.
  3.      *       (programa test velocidad)
  4.      *             (por jcantero)
  5.        environment division.
  6.        configuration section.
  7.        source-computer.  rmcobol-85.
  8.        object-computer.  rmcobol-85.
  9.        special-names.
  10.            decimal-point is comma.
  11.      *
  12.        input-output section.
  13.        file-control.
  14.      *
  15.            select f-tmp assign to random nombre-f-tmp
  16.            organization indexed
  17.            access mode is dynamic
  18.            record key is clave-t
  19.            file status is fs-f-tmp.
  20.  
  21.            select f-tmpx assign to random nombre-f-tmpx
  22.            organization indexed
  23.            access mode is dynamic
  24.            record key is clave-tx
  25.            alternate record key is clave-t1x with duplicates
  26.            alternate record key is clave-t2x with duplicates
  27.            alternate record key is clave-t3x with duplicates
  28.            alternate record key is clave-t4x with duplicates
  29.            file status is fs-f-tmpx.
  30.  
  31.        data division.
  32.        file section.
  33.      *
  34.  
  35.        fd f-tmp.
  36.        01 reg-f-tmp.
  37.            02 clave-t pic 9(15).                                        EURO
  38.            02 clave-t1 pic 9(15).                                       EURO
  39.            02 clave-t2 pic 9(15).                                       EURO
  40.            02 clave-t3 pic x(15).                                       EURO
  41.            02 clave-t4 pic x(15).                                       EURO
  42.            02 linea-f-tmp.
  43.               03 filler pic xx.
  44.               03 c-1 pic x(10).
  45.               03 filler pic xx.
  46.               03 c-2 pic x(40).
  47.               03 filler pic xx.
  48.               03 c-3 pic x(5).
  49.               03 filler pic xx.
  50.            02 linea-f-tmpx.
  51.               03     pic x(14).
  52.               03 c-4 pic x(40).
  53.               03     pic x(9).
  54.            02 cx pic x(9).
  55.  
  56.        fd f-tmpx.
  57.        01 reg-f-tmpx.
  58.            02 clave-tx pic 9(15).                                       EURO
  59.            02 clave-t1x pic 9(15).                                      EURO
  60.            02 clave-t2x pic 9(15).                                      EURO
  61.            02 clave-t3x pic x(15).                                      EURO
  62.            02 clave-t4x pic x(15).                                      EURO
  63.            02 linea-f-tmpxxx.
  64.               03 filler pic xx.
  65.               03 c-1x pic x(10).
  66.               03 filler pic xx.
  67.               03 c-2x pic x(40).
  68.               03 filler pic xx.
  69.               03 c-3x pic x(5).
  70.               03 filler pic xx.
  71.            02 linea-f-tmpxxxx.
  72.               03     pic x(14).
  73.               03 c-4x pic x(40).
  74.               03     pic x(9).
  75.            02 cx pic x(9).
  76.  
  77.  
  78.  
  79.  
  80.       *
  81.        working-storage section.
  82.      *
  83.  
  84.        01  nada pic x.
  85.        01  fs-camino        pic xx.
  86.        01  fs-f-tmp         pic xx.
  87.            88 esta-tmp   value '00'.
  88.            88 n-esta-tmp value '23' '22'.
  89.            88 n-existe-tmp value '35'.
  90.            88 fin-tmp  value '10' '46'.
  91.        01  fs-f-tmpx         pic xx.
  92.            88 esta-tmpx   value '00'.
  93.            88 n-esta-tmpx value '23' '22'.
  94.            88 n-existe-tmpx value '35'.
  95.            88 fin-tmpx  value '10' '46'.
  96.  
  97.        01 mun00-pueblo pic 99.
  98.      *
  99.        01 nombre-f-tmp    pic x(80) value 'test1.psa '.
  100.        01 nombre-f-tmpx    pic x(80) value 'test5.psa '.
  101.  
  102.        01  tecla              pic 99 value 0.
  103.            88 f1               value   01.
  104.            88 f2               value   02.
  105.            88 f3               value   03.
  106.            88 f4               value   04.
  107.            88 f5               value   05.
  108.            88 f6               value   06.
  109.            88 f7               value   07.
  110.            88 f8               value   08.
  111.            88 f9               value   09.
  112.            88 f10              value   10.
  113.            88 f11              value   11.
  114.            88 f12              value   12.
  115.            88 f13              value   13.
  116.            88 f14              value   14.
  117.            88 f15              value   15.
  118.            88 f16              value   16.
  119.            88 f17              value   17.
  120.            88 escapar          value   27 11.
  121.            88 arriba           value   52.
  122.            88 abajo            value   53.
  123.            88 izquierda        value   65, 56.
  124.            88 pg-up            value   67.
  125.            88 pg-dn            value   68.
  126.            88 intro            value   13.
  127.            88 derecha          value   09 66.
  128.  
  129.  
  130.        01  mensaje      pic x(80) value spaces.
  131.        01  x            pic x value ' '.
  132.            88 es-s  value 'S' 's'.
  133.            88 es-n  value 'N' 'n'.
  134.            88 es-sn value 'S' 's' 'N' 'n'.
  135.        01  fecha        pic 9(6)   value 0.
  136.        01  fechax       pic 9(6)   value 0.
  137.        01  i            pic 9(9)   value 0.
  138.        01  j            pic 9(9)   value 0.
  139.        01  k            pic 9(9)   value 0.
  140.        01  kk           pic 9(9)   value 0.
  141.        01  a-j          pic 9(9)   value 0.
  142.        01  m            pic 9(9)   value 0.
  143.        01  l            pic 9(9)   value 0.
  144.        01  tope         pic 9(9).
  145.        01 linea-pan1   PIC 99 USAGE BINARY VALUE 17.
  146.        01 hasta-linea1 PIC 99 USAGE BINARY VALUE 22.
  147.  
  148.        01 reg-ventana.
  149.           02 vx pic 99 value 1.
  150.           02 vy pic 99 value 17.
  151.           02 vw pic 99 value 79.
  152.           02 vz pic 99 value 22.
  153.           02 vi pic 999.
  154.           02 vj pic 999.
  155.           02 esca pic 9999 comp-1 value 27.
  156.           02 filler redefines esca.
  157.              03 filler pic x.
  158.              03 esc pic x.
  159.           02 act-g.
  160.              03 esc1    pic x.
  161.              03 filler pic xx value '(0'.
  162.           02 des-g.
  163.              03 esc2    pic x.
  164.              03 filler pic xx value '(B'.
  165.           02 vlinea    pic x(100).
  166.           02 rlinea    pic x(77) value all 'q'.
  167.        01 x1 pic x value ' '.
  168.        01 reg-errores.
  169.           02 f-e pic xx.
  170.           02 n-e pic x(13).
  171.  
  172.  
  173.        01 lk-cod  pic x(9).
  174.        01 registros pic 9(15).
  175.        01 i-registros pic 9(15).
  176.        01 t-inicio pic 9(12).
  177.        01 t-final pic 9(12).
  178.        01 c-tiempo pic 9(12)v99.
  179.        01 c-tiempo1 pic 9(12).
  180.        01 c-tiempo2 pic 9(12).
  181.        01 ct-tiempo pic 9(12).
  182.        01 numero pic 9(12)v99.
  183.        01 numero-medio pic 9(12)v99.
  184.        01 ct-ent pic 9(12)v99.
  185.        01 ct-sal pic 9(12)v99.
  186.        01 ct-veces pic 9(12).
  187.        01 c-minutos pic z.zzz.zzz,zz.
  188.        01 c-seg pic 9(12).
  189.        01 c-min pic 9(12).
  190.        01 c-hor pic 9(12).
  191.        01 e-tiempo pic 99.99.99.99.
  192.        01 e-registro pic zzz.zzz.zz9,99.
  193.        procedure division.
  194.  
  195.        declaratives.
  196.        io-error section.
  197.            use after standard error procedure on
  198.                  f-tmp f-tmpx.
  199.  
  200.        end declaratives.
  201.        main section.
  202.  
  203.        iniciow.
  204.            display ' Prueba de velocidad ' line 1 position 1
  205.                      reverse erase.
  206.            initialize registros.
  207.        inicio.
  208.            display ' Numero de registros ' line 2 position 1.
  209.            accept registros line 2 position 30 update on exception tecla
  210.              continue
  211.            end-accept
  212.            if not intro and not escapar go inicio.
  213.            initialize numero-medio
  214.            perform ciclo1 thru fin-ciclo1.
  215.            perform ciclo1x thru fin-ciclo1x.
  216.  
  217.            compute e-registro rounded = numero-medio / 4.
  218.            display ' Proceso terminado, (tiempo medio '
  219.                       e-registro
  220.                       ' reg/seg)  Pulse tecla...'
  221.            accept x.
  222.        fin-p.
  223.            goback.
  224.  
  225.        tiempo-inicio.
  226.            accept t-inicio from time
  227.            move t-inicio to e-tiempo.
  228.            display ' Hora de inicio '
  229.                      e-tiempo.
  230.        tiempo-final.
  231.            accept t-final from time
  232.            move t-final to e-tiempo.
  233.            display '         final   '
  234.                      e-tiempo.
  235.            perform totaliza-tiempo.
  236.            move c-tiempo to e-registro.
  237.            display ' Tiempo invertido (segundos) '
  238.                      e-registro
  239.            move numero to e-registro.
  240.            display ' Registros/segundo '
  241.                      e-registro.
  242.            add numero to numero-medio.
  243.        ciclo1.
  244.            display ' '.
  245.            display '--------- Generando fichero 1 clave ---------'
  246.            perform tiempo-inicio
  247.            perform abrir-ficheros thru fin-abrir-ficheros.
  248.            perform procesar-fichero.
  249.            perform tiempo-final.
  250.            display ' '.
  251.            display '--------- Leyendo fichero 1 clave ---------'
  252.            perform tiempo-inicio
  253.            perform procesar-fichero1.
  254.            perform tiempo-final.
  255.  
  256.            close f-tmp.
  257.        fin-ciclo1.
  258.        ciclo1x.
  259.            display ' '.
  260.            display '--------- Generando fichero 5 claves ---------'
  261.            perform tiempo-inicio
  262.            perform abrir-ficherosx thru fin-abrir-ficherosx.
  263.            perform procesar-ficherox.
  264.            perform tiempo-final.
  265.            display ' '.
  266.            display '--------- Leyendo fichero 5 claves ---------'
  267.            perform tiempo-inicio
  268.            perform procesar-fichero1x.
  269.            perform tiempo-final.
  270.  
  271.            close f-tmpx.
  272.        fin-ciclo1x.
  273.  
  274.        totaliza-tiempo.
  275.                  move t-final to c-tiempo1
  276.                  divide c-tiempo1 by 1000000 giving c-hor remainder
  277.                    c-tiempo2
  278.                  divide c-tiempo2 by  10000 giving c-min remainder
  279.                    c-tiempo1
  280.                  divide c-tiempo1 by 100 giving c-seg remainder
  281.                    c-tiempo2
  282.                  compute ct-sal = c-hor * 3600 + c-min * 60 + c-seg
  283.                           + c-tiempo2 / 100
  284.                  move t-inicio to c-tiempo1
  285.                  divide c-tiempo1 by 1000000 giving c-hor remainder
  286.                    c-tiempo2
  287.                  divide c-tiempo2 by  10000 giving c-min remainder
  288.                    c-tiempo1
  289.                  divide c-tiempo1 by 100 giving c-seg remainder
  290.                    c-tiempo2
  291.                  compute ct-ent = c-hor * 3600 + c-min * 60 + c-seg
  292.                  compute c-tiempo = ct-sal - ct-ent
  293.                           + c-tiempo2 / 100
  294.                  compute numero rounded = registros / c-tiempo.
  295.  
  296.        procesar-fichero.
  297.            initialize i-registros
  298.            perform test after until i-registros > registros
  299.              add 1 to i-registros
  300.              move i-registros to clave-t
  301.              write reg-f-tmp end-write
  302.            end-perform.
  303.  
  304.        procesar-fichero1.
  305.            initialize clave-t
  306.            start f-tmp key is > clave-t
  307.            read f-tmp next record end-read
  308.            perform test after until fin-tmp
  309.               read f-tmp next record end-read
  310.            end-perform.
  311.  
  312.        procesar-ficherox.
  313.            initialize i-registros
  314.            perform test after until i-registros > registros
  315.              add 1 to i-registros
  316.              move i-registros to clave-tx
  317.              compute clave-t1x = clave-tx / 13
  318.              compute clave-t2x = clave-tx ** 13
  319.              ACCEPT CLAVE-T3x FROM TIME
  320.              ACCEPT CLAVE-T4x FROM DATE
  321.              write reg-f-tmpx end-write
  322.            end-perform.
  323.  
  324.        procesar-fichero1x.
  325.            initialize clave-tx
  326.            start f-tmpx key is > clave-tx
  327.            read f-tmpx next record end-read
  328.            perform test after until fin-tmpx
  329.               read f-tmpx next record end-read
  330.            end-perform.
  331.  
  332.  
  333.        acept-key.
  334.            accept x line 24 position 80 off no beep
  335.                on exception tecla continue.
  336.  
  337.        fastidiar.
  338.            display ' ' line 24 position 77 beep.
  339.  
  340.        acept-keyx.
  341.            accept x line 24 position 80 off tab
  342.                on exception tecla continue.
  343.  
  344.        borrar-linea24.
  345.            display ' ' line 24 position 1 erase eol.
  346.  
  347.        mensaje.
  348.            display mensaje line 24 position 1 erase eol
  349.            perform acept-key.
  350.            perform borrar-linea24.
  351.  
  352.        mensajex.
  353.            display mensaje line 24 position 1 erase eol
  354.            perform acept-keyx.
  355.            perform borrar-linea24.
  356.  
  357.  
  358.  
  359. ********************************************
  360.      *     subrutinas de acceso a ficheros.
  361. ********************************************
  362.        abrir-ficheros.
  363.  
  364.        abre-tmp.
  365.      *     ACCEPT  nombre-f-tmp LINE 23 UPDATE.
  366.            open output f-tmp.
  367.            if not esta-tmp then
  368.               go abre-tmp
  369.            else
  370.               close f-tmp
  371.               open i-o f-tmp
  372.            end-if.
  373.        fin-abrir-ficheros.
  374.  
  375.        abrir-ficherosx.
  376.  
  377.        abre-tmpx.
  378.      *     ACCEPT  nombre-f-tmp LINE 23 UPDATE.
  379.            open output f-tmpx.
  380.            if not esta-tmpx then
  381.               go abre-tmpx
  382.            else
  383.               close f-tmpx
  384.               open i-o f-tmpx
  385.            end-if.
  386.        fin-abrir-ficherosx.
  387.  
  388.        ver-error.
  389.            move ' ' to mensaje
  390.            if f-e = '35' then
  391.              string 'Fichero ' n-e ' no existe. Pulse tecla...'
  392.                  delimited by size into mensaje
  393.              perform mensaje
  394.    ******  para hacer pruebas quito el "go"
  395.    ******   go fin-p
  396.            end-if.
  397.            if f-e = '38' or = '93' then
  398.              string 'Fichero ' n-e ' bloqueado. Pulse tecla...'
  399.                  delimited by size into mensaje
  400.               perform mensaje
  401.               go fin-p
  402.            end-if.
  403.            if f-e = '98' then
  404.              string 'Fichero ' n-e ' deteriorado. Pulse tecla...'
  405.                  delimited by size into mensaje
  406.               perform mensaje
  407.               go fin-p
  408.            end-if.
  409.            if f-e not = '00' then
  410.               string 'Error ' f-e ' en el fichero ' n-e
  411.                    ' .Pulse tecla...'
  412.                     delimited by size into mensaje
  413.               perform mensaje
  414.               go fin-p
  415.            end-if.
  416.  
  417.  
  418.  
  419.  
JCantero no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Kuk ( 7 de marzo de 2021)
Respuesta


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 14:31.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.