C
Carlos Vázquez
Guest
We don´t run any persistent programs. This appserver is the back end for a REST application, have a lot of calls, but shorts ones. Running the same programs all day long, but as the number of request grow, fail to free the client. Here is a example of code that we are using. 114 CREATE SERVER h_app. 115 msino = h_app:CONNECT ("-AppService soiw -S 5162 -H " + 115 mServer) NO-ERROR. 116 117 1 IF NOT msino THEN DO: 118 1 CREATE estatus. 119 1 estatus.codigo = "500". 120 1 estatus.mensaje = "Sin conexion para crear Venta". 121 1 RETURN. 122 END. 123 124 RUN soi/crea_t_pagos_3.p ON h_app ( TABLE sesion, 125 ticket.origen, 126 ticket.ticket, 127 INPUT TABLE pago, 128 INPUT TABLE opcionales, 129 OUTPUT TABLE venta, 130 OUTPUT TABLE estatus 131 ). 132 133 h_app
ISCONNECT (). 134 DELETE OBJECT h_app.
Continue reading...
ISCONNECT (). 134 DELETE OBJECT h_app.Continue reading...