Server Workspace Code
Here is the code to create a container and deploy the web service:
[
| aContainer aServiceCollection aService config |
 
SstWSContainer clearAll.
 
 
aContainer := SstWSContainer
createContainerNamed: SciSocketManager default getHostName
using:(SstWSContainerConfiguration defaultConfiguration).
 
aContainer startUp.
 
aServiceCollection := aContainer deploy:
(AbtXmlConfiguration current defaultResourceQualifier),
'SstWSInsurancePolicyServerInterface.xml'.
 
aServiceCollection first inspect
] fork.
Last modified date: 08/16/2019