It's finally time to write your RDMLX code.
You are going to use XPRIM_UriBuilder to build your URL, and XPRIM_RandomAccessJsonReader to read the JSON response.
Create a new server module called GoogleTranslateServerModule and declare the required fields:
Begin_Com Role(*EXTENDS #PRIM_SRVM)
 
End_Com
Define the following fields at the beginning:
Define Field(#TargetLanguage) Type(*NVARCHAR) Length(10)
Define Field(#SourceLanguage) Type(*NVARCHAR) Length(10)
Define Field(#SourceText) Type(*NVARCHAR) Length(500)
Define Field(#TranslatedText) Type(*NVARCHAR) Length(500)
Define Field(#ErrorCode) Type(*NVARCHAR) Length(50)
Define Field(#ErrorMessage) Type(*NVARCHAR) Length(200)
Define Field(#OK) Type(*BOOLEAN)
Create a new server routine called Translate:
Srvroutine Name(Translate)
 
Endroutine
Add the following input and output parameters to the server routine:

• Define the input fields
  Field_Map For(*INPUT) Field(#SourceText)
  Field_Map For(*INPUT) Field(#TargetLanguage)
  Field_Map For(*INPUT) Field(#SourceLanguage)
• Define the output fields
  Field_Map For(*OUTPUT) Field(#OK)
  Field_Map For(*OUTPUT) Field(#TranslatedText)
  Field_Map For(*OUTPUT) Field(#ErrorCode)
  Field_Map For(*OUTPUT) Field(#ErrorMessage)
  Declare the following variables at the beginning of the server routine.
  Define_Com Class(#XPRIM_HttpRequest) Name(#HttpRequest)
  Define_Com Class(#XPRIM_UriBuilder) Name(#Url)
  Define_Com Class(#XPRIM_RandomAccessJsonReader) Name(#Reader)
  Populate the URL host, path, and query string.
  #Url.SetScheme( 'https' )
  #Url.SetHost( 'www.googleapis.com' )
  #Url.SetPath( '/language/translate/v2' )
  #Url.AddQueryString( 'q' #SourceText )
  #Url.AddQueryString( 'target' #TargetLanguage )
  #Url.AddQueryString( 'format' 'text' )
  #Url.AddQueryString( 'source' #SourceLanguage )
  #Url.AddQueryString( 'key' '<your-api-key-from-previous-step>' )
  Execute the request specified by the URL:
  #HttpRequest.DoGet Url(#Url)
  Now you need to get the translated text from the JSON response.
  Recall from the previous step (using Postman) what the JSON for positive response looks like:
  
  The path for the "translated text" value is:
  data/translations/1/translatedText
  Don't forget that you need to check first if your request is successful, by checking if you get any response from the server (IsSucessfulRequest property), and if you get a positive response (IsSuccessHttpStatusCode)
  Recall the JSON response when an error occurred:
  
  The path to the error message:
  error/message
  Here is the code that extracts the translated text from the JSON response:
• Check if the server returned a response
  If (#HttpRequest.Response.IsSuccessfulRequest)
     * Feed the HTTP Response to the JsonReader object
     #Reader.SetSourceHttpResponse Httpresponse(#HttpRequest.Response)
     * Check if we get a positive response from the server
     If (#HttpRequest.Response.IsSuccessHttpStatusCode)
        * Get the result (translated) text
        #TranslatedText := #Reader.ReadStringWithPath( 'data/translations/1/translatedText' )
        #OK := True
     Else
        * Get the error code & error message from the JSON response
        #ErrorCode := #Reader.ReadStringWithPath( 'error/code' )
        #ErrorMessage := #Reader.ReadStringWithPath( 'error/message' )
        #OK := False
     Endif
  Else
     * We didn't get any response from the server
     * Get the transport error from the Response object
     #OK := False
     #ErrorCode := #HttpRequest.Response.ErrorCode
     #ErrorMessage := #HttpRequest.Response.ErrorMessage
  Endif
  Next: Creating a Webpage to Test Your Server Module