Kbase P98463: Can ProxyGen generate WSDL files for the deployment of Web Services using 4GL procedures involving D
| Autor |
Progress Software Corporation - Progress |
| Acesso |
Público |
| Publicação |
12/7/2004 |
|
Status: Unverified
GOAL:
Can ProxyGen generate WSDL files for the deployment of Web Services using 4GL procedures involving Dynamic Temp-Tables?
FIX:
Yes. Using ProxyGen against the following 4GL procedure generates the Web Service Mapping (WSM) file and the Web Service Description Language (WSDL) file necessary to deploy it as a web service within the context of the OpenEdge Web Services Adapter (WSA):
DEFINE OUTPUT PARAMETER TABLE-HANDLE httHandle.
DEFINE VARIABLE hbttHandle AS HANDLE NO-UNDO.
DEFINE VARIABLE httCustNum AS HANDLE NO-UNDO.
DEFINE VARIABLE hName AS HANDLE NO-UNDO.
DEFINE VARIABLE lLogical AS LOGICAL NO-UNDO.
/*Create the temp table, its fields and index */
CREATE TEMP-TABLE httHandle.
ASSIGN
lLogical = httHandle:ADD-LIKE-FIELD("ttCustNum","Customer.CustNum")
lLogical = httHandle:ADD-LIKE-FIELD("Name","Customer.Name")
lLogical = httHandle:ADD-LIKE-INDEX("name","name","customer").
ASSIGN
lLogical = httHandle:TEMP-TABLE-PREPARE("myTempTable").
ASSIGN
hbttHandle = httHandle:DEFAULT-BUFFER-HANDLE
httCustNum = hbttHandle:BUFFER-FIELD("ttCustNum")
hName = hbttHandle:BUFFER-FIELD("Name").
/* populate the temp table from the customer table */
FOR EACH Customer NO-LOCK:
hbttHandle:BUFFER-CREATE.
ASSIGN
httCustNum = hbttHandle:BUFFER-FIELD("ttCustNum")
hName = hbttHandle:BUFFER-FIELD("Name")
httCustNum:BUFFER-VALUE = Customer.CustNum
hName:BUFFER-VALUE = Customer.Name.
END.
DELETE OBJECT httHandle.