Create the server module

The server module registers the Web Service application with the Genero Web Services (GWS) server that starts the Web service.

1. Create your application server module. For example, create a file named wsserver.4gl
2. Add the code from the example.

   In this example, you have the code you need. This code acts as a template for starting your Web services. In the CONNECT TO statement, we add the name of the database created in Prepare a database and we use the SQLite driver. For more information on what the code does, see the Publish REST service module page.

   IMPORT com
   IMPORT FGL myservice
   
   MAIN
     DEFINE ret INTEGER
     CALL com.WebServiceEngine.RegisterRestService("myservice", "MyService")
     DISPLAY "Server started"
     CALL com.WebServiceEngine.Start()
     CONNECT TO "test1.db+driver='dbmsqt'"
     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