SQL Server
SQL Server
Glacier Get Job Information and Status
See more Amazon Glacier Examples
Demonstrates how to get information and status for a glacier job.Chilkat SQL Server Downloads
-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
DECLARE @hr int
-- Important: Do not use nvarchar(max). See the warning about using nvarchar(max).
DECLARE @sTmp0 nvarchar(4000)
DECLARE @success int
SELECT @success = 0
-- This example requires the Chilkat API to have been previously unlocked.
-- See Global Unlock Sample for sample code.
DECLARE @rest int
EXEC @hr = sp_OACreate 'Chilkat.Rest', @rest OUT
IF @hr <> 0
BEGIN
PRINT 'Failed to create ActiveX component'
RETURN
END
-- Connect to the Amazon AWS REST server in the desired region.
DECLARE @bTls int
SELECT @bTls = 1
DECLARE @port int
SELECT @port = 443
DECLARE @bAutoReconnect int
SELECT @bAutoReconnect = 1
EXEC sp_OAMethod @rest, 'Connect', @success OUT, 'glacier.us-west-2.amazonaws.com', @port, @bTls, @bAutoReconnect
-- Provide AWS credentials.
DECLARE @authAws int
EXEC @hr = sp_OACreate 'Chilkat.AuthAws', @authAws OUT
EXEC sp_OASetProperty @authAws, 'AccessKey', 'AWS_ACCESS_KEY'
EXEC sp_OASetProperty @authAws, 'SecretKey', 'AWS_SECRET_KEY'
EXEC sp_OASetProperty @authAws, 'ServiceName', 'glacier'
EXEC sp_OASetProperty @authAws, 'Region', 'us-west-2'
EXEC sp_OAMethod @rest, 'SetAuthAws', @success OUT, @authAws
-- --------------------------------------------------------------------------
-- Note: The above REST connection and setup of the AWS credentials
-- can be done once. After connecting, any number of REST calls can be made.
-- The "auto reconnect" property passed to rest.Connect indicates that if
-- the connection is lost, a REST method call will automatically reconnect
-- if needed.
-- --------------------------------------------------------------------------
--
-- For more information, see Glacier Describe Job Reference Documentation
--
EXEC sp_OAMethod @rest, 'AddHeader', @success OUT, 'x-amz-glacier-version', '2012-06-01'
DECLARE @sbResponseBody int
EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbResponseBody OUT
EXEC sp_OAMethod @rest, 'FullRequestNoBodySb', @success OUT, 'GET', '/AWS_ACCOUNT_ID/vaults/chilkat/jobs/JOB_ID', @sbResponseBody
IF @success <> 1
BEGIN
EXEC sp_OAGetProperty @rest, 'LastErrorText', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @rest
EXEC @hr = sp_OADestroy @authAws
EXEC @hr = sp_OADestroy @sbResponseBody
RETURN
END
DECLARE @respStatusCode int
EXEC sp_OAGetProperty @rest, 'ResponseStatusCode', @respStatusCode OUT
IF @respStatusCode >= 400
BEGIN
PRINT 'Response Status Code = ' + @respStatusCode
PRINT 'Response Header:'
EXEC sp_OAGetProperty @rest, 'ResponseHeader', @sTmp0 OUT
PRINT @sTmp0
PRINT 'Response Body:'
EXEC sp_OAMethod @sbResponseBody, 'GetAsString', @sTmp0 OUT
PRINT @sTmp0
EXEC @hr = sp_OADestroy @rest
EXEC @hr = sp_OADestroy @authAws
EXEC @hr = sp_OADestroy @sbResponseBody
RETURN
END
-- Success is indicated by a 200 response status.
PRINT 'response status code = ' + @respStatusCode
DECLARE @json int
EXEC @hr = sp_OACreate 'Chilkat.JsonObject', @json OUT
EXEC sp_OAMethod @json, 'LoadSb', @success OUT, @sbResponseBody
EXEC sp_OASetProperty @json, 'EmitCompact', 0
EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
PRINT @sTmp0
-- Sample output:
-- Use this online tool to generate parsing code from sample JSON:
-- Generate Parsing Code from JSON
-- {
-- "Action": "InventoryRetrieval",
-- "ArchiveId": null,
-- "ArchiveSHA256TreeHash": null,
-- "ArchiveSizeInBytes": null,
-- "Completed": false,
-- "CompletionDate": null,
-- "CreationDate": "2019-04-09T22:48:48.700Z",
-- "InventoryRetrievalParameters": {
-- "EndDate": null,
-- "Format": "CSV",
-- "Limit": null,
-- "Marker": null,
-- "StartDate": null
-- },
-- "InventorySizeInBytes": null,
-- "JobDescription": "My inventory job",
-- "JobId": "E-mCnb3j122yvz5PRFGzETmFVXVrkX_pgI8PIuwBKNRyI8pAJqIetKwzkJC5a6blIvYZrrVohiBENQVhZE1a-K-x-uRO",
-- "JobOutputPath": null,
-- "OutputLocation": null,
-- "RetrievalByteRange": null,
-- "SHA256TreeHash": null,
-- "SNSTopic": null,
-- "SelectParameters": null,
-- "StatusCode": "InProgress",
-- "StatusMessage": null,
-- "Tier": null,
-- "VaultARN": "arn:aws:glacier:us-west-2:954491834127:vaults/chilkat"
-- }
--
DECLARE @Action nvarchar(4000)
DECLARE @ArchiveId nvarchar(4000)
DECLARE @ArchiveSHA256TreeHash nvarchar(4000)
DECLARE @ArchiveSizeInBytes nvarchar(4000)
DECLARE @Completed int
DECLARE @CompletionDate nvarchar(4000)
DECLARE @CreationDate nvarchar(4000)
DECLARE @InventoryRetrievalParametersEndDate nvarchar(4000)
DECLARE @InventoryRetrievalParametersFormat nvarchar(4000)
DECLARE @InventoryRetrievalParametersLimit nvarchar(4000)
DECLARE @InventoryRetrievalParametersMarker nvarchar(4000)
DECLARE @InventoryRetrievalParametersStartDate nvarchar(4000)
DECLARE @InventorySizeInBytes nvarchar(4000)
DECLARE @JobDescription nvarchar(4000)
DECLARE @JobId nvarchar(4000)
DECLARE @JobOutputPath nvarchar(4000)
DECLARE @OutputLocation nvarchar(4000)
DECLARE @RetrievalByteRange nvarchar(4000)
DECLARE @SHA256TreeHash nvarchar(4000)
DECLARE @SNSTopic nvarchar(4000)
DECLARE @SelectParameters nvarchar(4000)
DECLARE @StatusCode nvarchar(4000)
DECLARE @StatusMessage nvarchar(4000)
DECLARE @Tier nvarchar(4000)
DECLARE @VaultARN nvarchar(4000)
EXEC sp_OAMethod @json, 'StringOf', @Action OUT, 'Action'
EXEC sp_OAMethod @json, 'StringOf', @ArchiveId OUT, 'ArchiveId'
EXEC sp_OAMethod @json, 'StringOf', @ArchiveSHA256TreeHash OUT, 'ArchiveSHA256TreeHash'
EXEC sp_OAMethod @json, 'StringOf', @ArchiveSizeInBytes OUT, 'ArchiveSizeInBytes'
EXEC sp_OAMethod @json, 'BoolOf', @Completed OUT, 'Completed'
EXEC sp_OAMethod @json, 'StringOf', @CompletionDate OUT, 'CompletionDate'
EXEC sp_OAMethod @json, 'StringOf', @CreationDate OUT, 'CreationDate'
EXEC sp_OAMethod @json, 'StringOf', @InventoryRetrievalParametersEndDate OUT, 'InventoryRetrievalParameters.EndDate'
EXEC sp_OAMethod @json, 'StringOf', @InventoryRetrievalParametersFormat OUT, 'InventoryRetrievalParameters.Format'
EXEC sp_OAMethod @json, 'StringOf', @InventoryRetrievalParametersLimit OUT, 'InventoryRetrievalParameters.Limit'
EXEC sp_OAMethod @json, 'StringOf', @InventoryRetrievalParametersMarker OUT, 'InventoryRetrievalParameters.Marker'
EXEC sp_OAMethod @json, 'StringOf', @InventoryRetrievalParametersStartDate OUT, 'InventoryRetrievalParameters.StartDate'
EXEC sp_OAMethod @json, 'StringOf', @InventorySizeInBytes OUT, 'InventorySizeInBytes'
EXEC sp_OAMethod @json, 'StringOf', @JobDescription OUT, 'JobDescription'
EXEC sp_OAMethod @json, 'StringOf', @JobId OUT, 'JobId'
EXEC sp_OAMethod @json, 'StringOf', @JobOutputPath OUT, 'JobOutputPath'
EXEC sp_OAMethod @json, 'StringOf', @OutputLocation OUT, 'OutputLocation'
EXEC sp_OAMethod @json, 'StringOf', @RetrievalByteRange OUT, 'RetrievalByteRange'
EXEC sp_OAMethod @json, 'StringOf', @SHA256TreeHash OUT, 'SHA256TreeHash'
EXEC sp_OAMethod @json, 'StringOf', @SNSTopic OUT, 'SNSTopic'
EXEC sp_OAMethod @json, 'StringOf', @SelectParameters OUT, 'SelectParameters'
EXEC sp_OAMethod @json, 'StringOf', @StatusCode OUT, 'StatusCode'
EXEC sp_OAMethod @json, 'StringOf', @StatusMessage OUT, 'StatusMessage'
EXEC sp_OAMethod @json, 'StringOf', @Tier OUT, 'Tier'
EXEC sp_OAMethod @json, 'StringOf', @VaultARN OUT, 'VaultARN'
EXEC @hr = sp_OADestroy @rest
EXEC @hr = sp_OADestroy @authAws
EXEC @hr = sp_OADestroy @sbResponseBody
EXEC @hr = sp_OADestroy @json
END
GO