PRO idl_DTclient

;// ---------- DTWS Web Services code ----------
rpcStub = OBJ_NEW('IDLJavaObject$Static$JAVAX_XML_RPC_STUB', $
                  'javax.xml.rpc.Stub')
rpcStub -> getProperty, ENDPOINT_ADDRESS_PROPERTY=endpointAddressProperty 

dtwsImpl = OBJ_NEW('IDLJavaObject$DATATRANSLATIONSERVICE_IMPL', $
                   'staticstub.DataTranslationService_Impl')

dt = dtwsImpl -> getDataTranslationIFPort()

dt -> _setProperty, endpointAddressProperty, $
                    'http://translators.gsfc.nasa.gov/dt/dtservice'


;// ---------- Error handling ----------
oJBridgeSession = OBJ_NEW('IDLJavaObject$IDLJAVABRIDGESESSION')
CATCH, error_status
IF (error_status NE 0) THEN BEGIN
    oJExc = oJBridgeSession -> GetException()
    HELP, oJExc
    PRINT, 'Exception thrown:', oJExc -> ToString()
    oJExc -> PrintStackTrace
    OBJ_DESTROY, oJExc
    RETURN
    CATCH, /CANCEL
ENDIF


filename = 'ftp://nssdcftp.gsfc.nasa.gov/standards/cdf/swe_copy.cdf'
translationMode = 'cdf-netcdf'
emailTo = ''
outputURL  = dt -> translateRemoteFile (filename, translationMode, emailTo)
PRINT, filename, ' (', translationMode, ') -> ', outputURL 

OBJ_DESTROY, rpcStub, dtwsImpl

END