DataFlex
DataFlex
Glacier Get Job Information and Status
See more Amazon Glacier Examples
Demonstrates how to get information and status for a glacier job.Chilkat DataFlex Downloads
Use ChilkatAx-win32.pkg
Procedure Test
Boolean iSuccess
Handle hoRest
Boolean iBTls
Integer iPort
Boolean iBAutoReconnect
Variant vAuthAws
Handle hoAuthAws
Variant vSbResponseBody
Handle hoSbResponseBody
Integer iRespStatusCode
Handle hoJson
String sAction
String sArchiveId
String sArchiveSHA256TreeHash
String sArchiveSizeInBytes
Boolean iCompleted
String sCompletionDate
String sCreationDate
String sInventoryRetrievalParametersEndDate
String sInventoryRetrievalParametersFormat
String sInventoryRetrievalParametersLimit
String sInventoryRetrievalParametersMarker
String sInventoryRetrievalParametersStartDate
String sInventorySizeInBytes
String sJobDescription
String sJobId
String sJobOutputPath
String sOutputLocation
String sRetrievalByteRange
String sSHA256TreeHash
String sSNSTopic
String sSelectParameters
String sStatusCode
String sStatusMessage
String sTier
String sVaultARN
String sTemp1
Move False To iSuccess
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
Get Create (RefClass(cComChilkatRest)) To hoRest
If (Not(IsComObjectCreated(hoRest))) Begin
Send CreateComObject of hoRest
End
// Connect to the Amazon AWS REST server in the desired region.
Move True To iBTls
Move 443 To iPort
Move True To iBAutoReconnect
Get ComConnect Of hoRest "glacier.us-west-2.amazonaws.com" iPort iBTls iBAutoReconnect To iSuccess
// Provide AWS credentials.
Get Create (RefClass(cComChilkatAuthAws)) To hoAuthAws
If (Not(IsComObjectCreated(hoAuthAws))) Begin
Send CreateComObject of hoAuthAws
End
Set ComAccessKey Of hoAuthAws To "AWS_ACCESS_KEY"
Set ComSecretKey Of hoAuthAws To "AWS_SECRET_KEY"
Set ComServiceName Of hoAuthAws To "glacier"
Set ComRegion Of hoAuthAws To "us-west-2"
Get pvComObject of hoAuthAws to vAuthAws
Get ComSetAuthAws Of hoRest vAuthAws To iSuccess
// --------------------------------------------------------------------------
// 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
//
Get ComAddHeader Of hoRest "x-amz-glacier-version" "2012-06-01" To iSuccess
Get Create (RefClass(cComChilkatStringBuilder)) To hoSbResponseBody
If (Not(IsComObjectCreated(hoSbResponseBody))) Begin
Send CreateComObject of hoSbResponseBody
End
Get pvComObject of hoSbResponseBody to vSbResponseBody
Get ComFullRequestNoBodySb Of hoRest "GET" "/AWS_ACCOUNT_ID/vaults/chilkat/jobs/JOB_ID" vSbResponseBody To iSuccess
If (iSuccess <> True) Begin
Get ComLastErrorText Of hoRest To sTemp1
Showln sTemp1
Procedure_Return
End
Get ComResponseStatusCode Of hoRest To iRespStatusCode
If (iRespStatusCode >= 400) Begin
Showln "Response Status Code = " iRespStatusCode
Showln "Response Header:"
Get ComResponseHeader Of hoRest To sTemp1
Showln sTemp1
Showln "Response Body:"
Get ComGetAsString Of hoSbResponseBody To sTemp1
Showln sTemp1
Procedure_Return
End
// Success is indicated by a 200 response status.
Showln "response status code = " iRespStatusCode
Get Create (RefClass(cComChilkatJsonObject)) To hoJson
If (Not(IsComObjectCreated(hoJson))) Begin
Send CreateComObject of hoJson
End
Get pvComObject of hoSbResponseBody to vSbResponseBody
Get ComLoadSb Of hoJson vSbResponseBody To iSuccess
Set ComEmitCompact Of hoJson To False
Get ComEmit Of hoJson To sTemp1
Showln sTemp1
// 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"
// }
//
Get ComStringOf Of hoJson "Action" To sAction
Get ComStringOf Of hoJson "ArchiveId" To sArchiveId
Get ComStringOf Of hoJson "ArchiveSHA256TreeHash" To sArchiveSHA256TreeHash
Get ComStringOf Of hoJson "ArchiveSizeInBytes" To sArchiveSizeInBytes
Get ComBoolOf Of hoJson "Completed" To iCompleted
Get ComStringOf Of hoJson "CompletionDate" To sCompletionDate
Get ComStringOf Of hoJson "CreationDate" To sCreationDate
Get ComStringOf Of hoJson "InventoryRetrievalParameters.EndDate" To sInventoryRetrievalParametersEndDate
Get ComStringOf Of hoJson "InventoryRetrievalParameters.Format" To sInventoryRetrievalParametersFormat
Get ComStringOf Of hoJson "InventoryRetrievalParameters.Limit" To sInventoryRetrievalParametersLimit
Get ComStringOf Of hoJson "InventoryRetrievalParameters.Marker" To sInventoryRetrievalParametersMarker
Get ComStringOf Of hoJson "InventoryRetrievalParameters.StartDate" To sInventoryRetrievalParametersStartDate
Get ComStringOf Of hoJson "InventorySizeInBytes" To sInventorySizeInBytes
Get ComStringOf Of hoJson "JobDescription" To sJobDescription
Get ComStringOf Of hoJson "JobId" To sJobId
Get ComStringOf Of hoJson "JobOutputPath" To sJobOutputPath
Get ComStringOf Of hoJson "OutputLocation" To sOutputLocation
Get ComStringOf Of hoJson "RetrievalByteRange" To sRetrievalByteRange
Get ComStringOf Of hoJson "SHA256TreeHash" To sSHA256TreeHash
Get ComStringOf Of hoJson "SNSTopic" To sSNSTopic
Get ComStringOf Of hoJson "SelectParameters" To sSelectParameters
Get ComStringOf Of hoJson "StatusCode" To sStatusCode
Get ComStringOf Of hoJson "StatusMessage" To sStatusMessage
Get ComStringOf Of hoJson "Tier" To sTier
Get ComStringOf Of hoJson "VaultARN" To sVaultARN
End_Procedure