Web Service em ADVPL

Para se criar um WS (Webservice) em AdvPL, tem que utilizar a seguinte estrutura:

#INCLUDE 'TOTVS.CH'
//#INCLUDE 'TOTVSWEBSRV.CH'
#INCLUDE "APWEBSRV.CH"


WSSTRUCT StruCliente          
WSDATA CODIGO AS String    
WSDATA NOME                 AS String
WSDATA ENDERECO             AS String
ENDWSSTRUCT      

WSSERVICE SRVBUSCASA1
WSDATA CODIGO AS String
WSDATA DADOSCLIENTE AS StruCliente  //Quando defino uma variavel chamando uma WSSTRUCT, ela vira um objeto que guarda toda a estrutura
WSMETHOD BuscaCliSrv
ENDWSSERVICE  

WSMETHOD BuscaCliSrv WSRECEIVE CODIGO WSSEND DADOSCLIENTE WSSERVICE SRVBUSCASA1

DbSelectArea("SA1")
DbSetOrder(1)
SA1->(DbSeek(xFilial("SA1")+::CODIGO))

::DADOSCLIENTE:NOME := SA1->A1_NOME
::DADOSCLIENTE:ENDERECO := SA1->A1_END

Return .T.