Class: | FTP_SERVICE |
Description: | Get error text |
Type | Numeric |
Direction | Input |
LPARAMETERS INP lnError LOCAL lcMessage DO CASE CASE lnError = ERROR_INTERNET_OUT_OF_HANDLES lcMessage = "ERROR_INTERNET_OUT_OF_HANDLES" CASE lnError = ERROR_INTERNET_TIMEOUT lcMessage = "ERROR_INTERNET_TIMEOUT" CASE lnError = ERROR_INTERNET_EXTENDED_ERROR lcMessage = "ERROR_INTERNET_EXTENDED_ERROR" CASE lnError = ERROR_INTERNET_INTERNAL_ERROR lcMessage = "ERROR_INTERNET_INTERNAL_ERROR" CASE lnError = ERROR_INTERNET_INVALID_URL lcMessage = "ERROR_INTERNET_INVALID_URL" CASE lnError = ERROR_INTERNET_UNRECOGNIZED_SCHEME lcMessage = "ERROR_INTERNET_UNRECOGNIZED_SCHEME" CASE lnError = ERROR_INTERNET_NAME_NOT_RESOLVED lcMessage = "ERROR_INTERNET_NAME_NOT_RESOLVED" CASE lnError = ERROR_INTERNET_PROTOCOL_NOT_FOUND lcMessage = "ERROR_INTERNET_PROTOCOL_NOT_FOUND" CASE lnError = ERROR_INTERNET_INVALID_OPTION lcMessage = "ERROR_INTERNET_INVALID_OPTION" CASE lnError = ERROR_INTERNET_BAD_OPTION_LENGTH lcMessage = "ERROR_INTERNET_BAD_OPTION_LENGTH" CASE lnError = ERROR_INTERNET_OPTION_NOT_SETTABLE lcMessage = "ERROR_INTERNET_OPTION_NOT_SETTABLE" CASE lnError = ERROR_INTERNET_SHUTDOWN lcMessage = "ERROR_INTERNET_SHUTDOWN" CASE lnError = ERROR_INTERNET_INCORRECT_USER_NAME lcMessage = "ERROR_INTERNET_INCORRECT_USER_NAME" CASE lnError = ERROR_INTERNET_INCORRECT_PASSWORD lcMessage = "ERROR_INTERNET_INCORRECT_PASSWORD" CASE lnError = ERROR_INTERNET_LOGIN_FAILURE lcMessage = "ERROR_INTERNET_LOGIN_FAILURE" CASE lnError = ERROR_INTERNET_INVALID_OPERATION lcMessage = "ERROR_INTERNET_INVALID_OPERATION" CASE lnError = ERROR_INTERNET_OPERATION_CANCELLED lcMessage = "ERROR_INTERNET_OPERATION_CANCELLED" CASE lnError = ERROR_INTERNET_INCORRECT_HANDLE_TYPE lcMessage = "ERROR_INTERNET_INCORRECT_HANDLE_TYPE" CASE lnError = ERROR_INTERNET_INCORRECT_HANDLE_STATE lcMessage = "ERROR_INTERNET_INCORRECT_HANDLE_STATE" CASE lnError = ERROR_INTERNET_NOT_PROXY_REQUEST lcMessage = "ERROR_INTERNET_NOT_PROXY_REQUEST" CASE lnError = ERROR_INTERNET_REGISTRY_VALUE_NOT_FOUND lcMessage = "ERROR_INTERNET_REGISTRY_VALUE_NOT_FOUND" CASE lnError = ERROR_INTERNET_BAD_REGISTRY_PARAMETER lcMessage = "ERROR_INTERNET_BAD_REGISTRY_PARAMETER" CASE lnError = ERROR_INTERNET_NO_DIRECT_ACCESS lcMessage = "ERROR_INTERNET_NO_DIRECT_ACCESS" CASE lnError = ERROR_INTERNET_NO_CONTEXT lcMessage = "ERROR_INTERNET_NO_CONTEXT" CASE lnError = ERROR_INTERNET_NO_CALLBACK lcMessage = "ERROR_INTERNET_NO_CALLBACK" CASE lnError = ERROR_INTERNET_REQUEST_PENDING lcMessage = "ERROR_INTERNET_REQUEST_PENDING" CASE lnError = ERROR_INTERNET_INCORRECT_FORMAT lcMessage = "ERROR_INTERNET_INCORRECT_FORMAT" CASE lnError = ERROR_INTERNET_ITEM_NOT_FOUND lcMessage = "ERROR_INTERNET_ITEM_NOT_FOUND" CASE lnError = ERROR_INTERNET_CANNOT_CONNECT lcMessage = "ERROR_INTERNET_CANNOT_CONNECT" CASE lnError = ERROR_INTERNET_CONNECTION_ABORTED lcMessage = "ERROR_INTERNET_CONNECTION_ABORTED" CASE lnError = ERROR_INTERNET_CONNECTION_RESET lcMessage = "ERROR_INTERNET_CONNECTION_RESET" CASE lnError = ERROR_INTERNET_FORCE_RETRY lcMessage = "ERROR_INTERNET_FORCE_RETRY" CASE lnError = ERROR_INTERNET_INVALID_PROXY_REQUEST lcMessage = "ERROR_INTERNET_INVALID_PROXY_REQUEST" CASE lnError = ERROR_INTERNET_NEED_UI lcMessage = "ERROR_INTERNET_NEED_UI" CASE lnError = ERROR_INTERNET_HANDLE_EXISTS lcMessage = "ERROR_INTERNET_HANDLE_EXISTS" CASE lnError = ERROR_INTERNET_SEC_CERT_DATE_INVALID lcMessage = "ERROR_INTERNET_SEC_CERT_DATE_INVALID" CASE lnError = ERROR_INTERNET_SEC_CERT_CN_INVALID lcMessage = "ERROR_INTERNET_SEC_CERT_CN_INVALID" CASE lnError = ERROR_INTERNET_HTTP_TO_HTTPS_ON_REDIR lcMessage = "ERROR_INTERNET_HTTP_TO_HTTPS_ON_REDIR" CASE lnError = ERROR_INTERNET_HTTPS_TO_HTTP_ON_REDIR lcMessage = "ERROR_INTERNET_HTTPS_TO_HTTP_ON_REDIR" CASE lnError = ERROR_INTERNET_MIXED_SECURITY lcMessage = "ERROR_INTERNET_MIXED_SECURITY" CASE lnError = ERROR_INTERNET_CHG_POST_IS_NON_SECURE lcMessage = "ERROR_INTERNET_CHG_POST_IS_NON_SECURE" CASE lnError = ERROR_INTERNET_POST_IS_NON_SECURE lcMessage = "ERROR_INTERNET_POST_IS_NON_SECURE" CASE lnError = ERROR_INTERNET_CLIENT_AUTH_CERT_NEEDED lcMessage = "ERROR_INTERNET_CLIENT_AUTH_CERT_NEEDED" CASE lnError = ERROR_INTERNET_INVALID_CA lcMessage = "ERROR_INTERNET_INVALID_CA" CASE lnError = ERROR_INTERNET_CLIENT_AUTH_NOT_SETUP lcMessage = "ERROR_INTERNET_CLIENT_AUTH_NOT_SETUP" CASE lnError = ERROR_INTERNET_ASYNC_THREAD_FAILED lcMessage = "ERROR_INTERNET_ASYNC_THREAD_FAILED" CASE lnError = ERROR_INTERNET_REDIRECT_SCHEME_CHANGE lcMessage = "ERROR_INTERNET_REDIRECT_SCHEME_CHANGE" CASE lnError = ERROR_INTERNET_DIALOG_PENDING lcMessage = "ERROR_INTERNET_DIALOG_PENDING" CASE lnError = ERROR_INTERNET_RETRY_DIALOG lcMessage = "ERROR_INTERNET_RETRY_DIALOG" CASE lnError = ERROR_INTERNET_HTTPS_HTTP_SUBMIT_REDIR lcMessage = "ERROR_INTERNET_HTTPS_HTTP_SUBMIT_REDIR" CASE lnError = ERROR_INTERNET_INSERT_CDROM lcMessage = "ERROR_INTERNET_INSERT_CDROM" CASE lnError = FTP_TRANSFER_IN_PROGRESS lcMessage = "FTP_TRANSFER_IN_PROGRESS" CASE lnError = FTP_DROPPED lcMessage = "FTP_DROPPED" CASE lnError = FTP_NO_PASSIVE_MODE lcMessage = "FTP_NO_PASSIVE_MODE" CASE lnError = ERROR_INTERNET_SECURITY_CHANNEL_ERROR lcMessage = "ERROR_INTERNET_SECURITY_CHANNEL_ERROR" CASE lnError = ERROR_INTERNET_UNABLE_TO_CACHE_FILE lcMessage = "ERROR_INTERNET_UNABLE_TO_CACHE_FILE" CASE lnError = ERROR_INTERNET_TCPIP_NOT_INSTALLED lcMessage = "ERROR_INTERNET_TCPIP_NOT_INSTALLED" CASE lnError = ERROR_INTERNET_DISCONNECTED lcMessage = "ERROR_INTERNET_DISCONNECTED" CASE lnError = ERROR_INTERNET_SERVER_UNREACHABLE lcMessage = "ERROR_INTERNET_SERVER_UNREACHABLE" CASE lnError = ERROR_INTERNET_PROXY_SERVER_UNREACHABLE lcMessage = "ERROR_INTERNET_PROXY_SERVER_UNREACHABLE" CASE lnError = ERROR_INTERNET_BAD_AUTO_PROXY_SCRIPT lcMessage = "ERROR_INTERNET_BAD_AUTO_PROXY_SCRIPT" CASE lnError = ERROR_INTERNET_UNABLE_TO_DOWNLOAD_SCRIPT lcMessage = "ERROR_INTERNET_UNABLE_TO_DOWNLOAD_SCRIPT" CASE lnError = ERROR_INTERNET_SEC_INVALID_CERT lcMessage = "ERROR_INTERNET_SEC_INVALID_CERT" CASE lnError = ERROR_INTERNET_SEC_CERT_REVOKED lcMessage = "ERROR_INTERNET_SEC_CERT_REVOKED" CASE lnError = ERROR_NO_MORE_FILES lcMessage = "ERROR_NO_MORE_FILES" CASE lnError = ERROR_INVALID_HANDLE lcMessage = "ERROR_INVALID_HANDLE" CASE lnError = ERROR_FILE_NOT_FOUND lcMessage = "ERROR_FILE_NOT_FOUND" CASE lnError = ERROR_PATH_NOT_FOUND lcMessage = "ERROR_PATH_NOT_FOUND" CASE lnError = ERROR_ACCESS_DENIED lcMessage = "ERROR_ACCESS_DENIED" CASE lnError = ERROR_FILE_EXISTS lcMessage = "ERROR_FILE_EXISTS" CASE lnError = ERROR_INVALID_PARAMETER lcMessage = "ERROR_INVALID_PARAMETER" OTHERWISE lcMessage = "Unknown Error Message" ENDCASE RETURN m.lcMessage