51 lines
1.4 KiB
Plaintext
51 lines
1.4 KiB
Plaintext
IMPORT com
|
|
IMPORT FGL recepcion
|
|
IMPORT FGL r_aprobar
|
|
IMPORT FGL recepcionget
|
|
|
|
MAIN
|
|
|
|
DEFINE ret INTEGER
|
|
|
|
|
|
DEFER INTERRUPT
|
|
CALL com.WebServiceEngine.RegisterRestService("recepcionget", "recepcion")
|
|
#CALL com.WebServiceEngine.RegisterRestService("recepcion", "recepcion")
|
|
# CALL com.WebServiceEngine.RegisterRestService("r_aprobar", "aprobacioncomercial")
|
|
DISPLAY "Server started"
|
|
CALL com.WebServiceEngine.Start()
|
|
WHILE TRUE
|
|
LET ret = com.WebServiceEngine.ProcessServices(-1)
|
|
CASE ret
|
|
WHEN 0
|
|
DISPLAY "Request processed."
|
|
WHEN -1
|
|
DISPLAY "Timeout reached."
|
|
WHEN -2
|
|
DISPLAY "Disconnected from application server."
|
|
EXIT PROGRAM # The Application server has closed the connection
|
|
WHEN -3
|
|
DISPLAY "Client Connection lost."
|
|
WHEN -4
|
|
DISPLAY "Server interrupted with Ctrl-C."
|
|
WHEN -9
|
|
DISPLAY "Unsupported operation."
|
|
WHEN -10
|
|
DISPLAY "Internal server error."
|
|
WHEN -23
|
|
DISPLAY "Deserialization error."
|
|
WHEN -35
|
|
DISPLAY "No such REST operation found."
|
|
WHEN -36
|
|
DISPLAY "Missing REST parameter."
|
|
OTHERWISE
|
|
DISPLAY "Unexpected server error " || ret || "."
|
|
EXIT WHILE
|
|
END CASE
|
|
IF int_flag<>0 THEN
|
|
LET int_flag=0
|
|
EXIT WHILE
|
|
END IF
|
|
END WHILE
|
|
DISPLAY "Server stopped"
|
|
END MAIN |