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