4D v16.3

Execute on server

Inicio

 
4D v16.3
Execute on server

Execute on server 


 

Execute on server ( proced ; pila {; nombre {; param {; param2 ; ... ; paramN}}}{; *} ) -> Resultado 
Parámetro Tipo   Descripción
proced  Cadena in Procedimiento a ejecutar en el proceso
pila  Entero largo in Tamaño de la pila en bytes
nombre  Cadena in Nombre del proceso creado
param  Expresión in Paramétro(s) del procedimiento
Operador in Proceso único
Resultado  Entero largo in Número de proceso para el proceso creado recientemente o de un proceso que está siendo ejecutado

El comando Execute on server inicia un nuevo proceso en el equipo servidor (cuando se llama en Cliente/Servidor) o en el mismo equipo (si se llama en monousuario) y devuelve el número de este proceso.

Utilice Execute on server para iniciar un procedimiento almacenado. Para mayor información sobre procedimientos almacenados, consulte la sección Stored Procedures en el manual de referencia de 4D Server.

Si llama Execute on server en un equipo cliente, el comando devuelve un número de proceso negativo. Si llama Execute on server en el equipo servidor, Execute on server devuelve un número de proceso positivo. Note que llamar New process en el equipo servidor hace lo mismo que llamar Execute on server.

Si el proceso no se pudo crear (por ejemplo, si no hay suficiente memoria), Execute on server devuelve (0) y se genera un error. Puede interceptar este error utilizando un método de gestión de errores instalado por el comando ON ERR CALL.

En proced, pase el nombre del método de proceso para el nuevo proceso. Una vez 4D haya definido el contexto para el nuevo proceso, comienza la ejecución de este método, el cual se convierte en el método de proceso.

El parámetro pila, permite indicar la cantidad de memoria asignada para la pila del proceso. Este valor representa el espacio en memoria utilizado para “apilar” las llamadas de métodos, las variables locales, los parámetros de subrutinas y los registros apilados.
  • Pase 0 en pila para utilizar un tamaño de pila por defecto, conveniente para la mayoría de las aplicaciones (configuración recomendada).
  • En algunos casos particulares, puede querer un valor personalizado. Se expresa en bytes; se recomienda pasar al menos 64K (alrededor de 64 000 bytes) y puede utilizar valores sobre 512 KB en particular si los procesos pueden realizar llamadas a cadenas largas (subrutinas llamando subrutinas en cascada).

Nota: la pila NO es la memoria total reservada para el proceso. Los procesos comparten memoria para los registros, las variables interproceso, etc. Un proceso utiliza igualmente la memoria extra para almacenar sus variables proceso. La pila contiene diferente información interna 4D; la cantidad de información guardada en la pila depende del número de llamadas a métodos anidados que el proceso emplee, el número de formularios que abrirá antes de cerrarlos y el número y tamaño de las variables locales utilizadas en cada llamada al método anidado.

Nota 4D Server 64 bits: la pila de un proceso ejecutado en 4D Server 64 bits requiere más memoria que en 4D Server 32 bits (alrededor del doble). Asegúrese de verificar este parámetro cuando su código esté destinado a ser ejecutado en 4D Server 64 bits.

El nombre del nuevo proceso se pasa en nombre. En monousuario, este nombre aparecerá en la lista de procesos del entorno Diseño, y será devuelto por el comando PROCESS PROPERTIES cuando se aplica a este nuevo proceso. En cliente/servidor, este nombre aparecerá en azul en la lista de Procedimientos almacenados de la ventana principal de 4D Server.

Puede omitir este parámetro; si lo hace, el nombre del proceso será una cadena vacía.

Advertencia: a diferencia del comando Nuevo Proceso, no intente crear un proceso local colocándole el signo dólares ($) como prefijo al nombre mientras utiliza Execute on server. Funcionará correctamente en monousuario, porque Execute on server actúa como New Process en este entorno. Por otra parte, en Cliente/Servidor, esto generará un error.

Puede pasar parámetros al método de proceso. Puede pasar parámetros de la misma forma como los pasaría a una subrutina. Sin embargo, hay una restricción, no puede pasar expresiones de tipo puntero. Igualmente, recuerde que los arrays no pueden ser pasados como parámetros a un método. Una vez comience la ejecución en el contexto del nuevo proceso, el método de proceso recibe los valores de los parámetros en $1, $2, etc.

Nota: si pasa parámetros al método de proceso, debe pasar el parámetro nombre; en este caso no se puede omitir.

Si pasa un objeto 4D (C_OBJECT) como param o valor de retorno, la forma JSON se utiliza en UTF-8 para el servidor. Si el objeto C_OBJECT contiene punteros, se envían sus valores desreferenciados, y no los punteros mismos.

Si pasa este último parámetro le pide a 4D verificar primero si se está ejecutando un proceso con el mismo nombre que pasó en nombre. Si es así, 4D no inicia un nuevo proceso y devuelve el número del proceso con ese nombre.

Ejemplo  

El siguiente ejemplo muestra cómo la importación de datos puede acelerarse de manera dramática en entorno Cliente/Servidor. El método Importacion Clasica listado a continuación le permite medir cuánto tiempo toma una importación de registros utilizando el comando IMPORT TEXT:

  `Método de proyecto Importacion Clasica
 $vhDocRef:=Open document("")
 If(OK=1)
    CLOSE DOCUMENT($vhDocRef)
    FORM SET INPUT([Tabla1];"Import")
    $vhHoraInicial:=Current time
    IMPORT TEXT([Tabla1];Document)
    $vhHoraFinal:=Current time
    ALERT("La operación tardó "+String(0+($vhHoraFinal-$vhHoraInicial))+" segundos.")
 End if

Con la importación de datos clásica, 4D Client analiza el archivo ASCII, luego, para cada registro, crea un nuevo registro, llena los campos con los datos importados y envía el registro al equipo servidor de manera que pueda ser añadido a la base. Por lo tanto hay muchas peticiones circulando por la red. Una manera de optimizar la operación es utilizar un procedimiento almacenado para hacer el trabajo localmente en el equipo servidor. El equipo cliente carga el documento en un BLOB, comienza un procedimiento almacenado pasando el BLOB como parámetro. El procedimiento almacenado coloca el BLOB en un documento en el disco del equipo servidor, luego importa el documento localmente. Por lo tanto, la importación de datos se lleva a cabo localmente a una velocidad comparable a la de una versión monopuesto de 4D, porque la mayoría de las peticiones que circulan por la red han sido eliminadas. Este es el método de proyecto CLIENTE IMPORTAR. Ejecutado en el equipo cliente, inicia la ejecución del procedimiento almacenado SERVIDOR IMPORTAR, listado a continuación:

  ` Método de proyecto CLIENTE IMPORTAR
  ` CLIENTE IMPORTAR ( Puntero ; Alfa )
  ` CLIENTE IMPORTAR ( -> [Tabla] ; Formulario de entrada )
 
 C_POINTER($1)
 C_TEXT($2)
 C_TIME($vhDocRef)
 C_BLOB($vxData)
 C_LONGINT(spErrCode)
 
  ` Seleccione el documento a importar
 $vhDocRef:=Open document("")
 If(OK=1)
  ` Si un documento fue seleccionado, no lo deje abierto
    CLOSE DOCUMENT($vhDocRef)
    $vhHoraInicial:=Current time
  ` Trate cargarlo en memoria
    DOCUMENT TO BLOB(Document;$vxData)
    If(OK=1)
  ` Si el documento puede ser cargado en el BLOB,
  ` Inicie el procedimiento almacenado que importará los datos en el equipo servidor
       $spProcessID:=Execute on server("SERVIDOR IMPORTAR";0;"Servidor Importando";Table($1);$2;$vxData)
  ` En este punto, ya no necesitamos más el BLOB en este proceso
       CLEAR VARIABLE($vxData)
  ` Espere la terminación de la operación realizada por el procedimiento almacenado
       Repeat
          DELAY PROCESS(Current process;300)
          GET PROCESS VARIABLE($spProcessID;spErrCode;spErrCode)
          If(Undefined(spErrCode))
  ` Nota: si el procedimiento almacenado no ha inicializado su propia instancia
  ` de la variable spErrCode, puede que retorne una variable indefinida
             spErrCode:=1
          End if
       Until(spErrCode<=0)
  ` Enviemos un acuse de recibo al procedimiento almacenado
       spErrCode:=1
       SET PROCESS VARIABLE($spProcessID;spErrCode;spErrCode)
       $vhHoraFinal:=Current time
       ALERT("La operación tardó"+String(0+($vhHoraFinal-$vhHoraInicial))+" segundos.")
    Else
       ALERT("No hay suficiente memoria para cargar el documento.")
    End if
 End if

He aquí el método de proyecto SERVIDOR IMPORTAR ejecutado como procedimiento almacenado:

  ` Método de proyecto SERVIDOR IMPORTAR
  ` SERVIDOR IMPORTAR ( Entero largo ; Alfa ; BLOB )
  ` SERVIDOR IMPORTAR ( Número de tabla ; Formulario de entrada ; Datos importados )
 
 C_LONGINT($1)
 C_TEXT($2)
 C_BLOB($3)
 C_LONGINT(spErrCode)
 
  ` La operación no ha terminado aún, asignemos 1 a spErrCode
 spErrCode:=1
 $vpTabla:=Table($1)
 FORM SET INPUT($vpTabla->;$2)
 $vsDocNombre:="Archivo import "+String(1+Random)
 DELETE DOCUMENT($vsDocNombre)
 BLOB TO DOCUMENT($vsDocNombre;$3)
 IMPORT TEXT($vpTabla->;$vsDocNombre)
 DELETE DOCUMENT($vsDocNombre)
  ` La operación ha terminado, asignemos 0 a spErrCode 0
 spErrCode:=0
  ` Espere a que el equipo cliente reciba los resultados
 Repeat
    DELAY PROCESS(Current process;1)
 Until(spErrCode>0)

Una vez estos dos métodos de proyecto hayan sido implementados en su base de datos, puede efectuar una importación basada en un procedimiento almacenado, escribiendo por ejemplo:

 CLIENTE IMPORTAR(->[Tabla1];"Import")

Con algunas pruebas comparativas, puede comprobar que con este tipo de método, la importación de los registros puede ser 60 veces más rápida que una importación clásica.



Ver también 

New process

 
PROPIEDADES 

Producto: 4D
Tema: Procesos
Número 373

 
HISTORIA 

Modificado: 4D 2004.3

 
ARTICLE USAGE

Manual de lenguaje 4D ( 4D v16)
Manual de lenguaje 4D ( 4D v16.1)
Manual de lenguaje 4D ( 4D v16.2)
Manual de lenguaje 4D ( 4D v16.3)