The ramblings of a yorkshire tyke

procedure division.
set type Azure::Account to "mystorageaccount"
set type Azure::SharedKey to "myverylargesharedkey.........."
set movieTable to new type AzureKit.Table("Movie",
type AzureKit.IfTableDoesNotExist::CreateIt)

*> Delete ALL
perform varying movie thru movieTable::GetAllRows()
invoke movieTable::Delete(movie)
end-perform

*> All two items
set movie to type AzureKit.Table::NewRow(
"Jaws: The Revenge",
type Guid::NewGuid()::ToString())
set movie::Item("Year") to 1987
set movie::Item("Director") to "Joseph Sargent"
set movie::Item("Rating") to "Worst Movie Ever!"
invoke movieTable::InsertRow(movie)

set movie to type AzureKit.Table::NewRow(
"Empire Strikes Back",
type Guid::NewGuid()::ToString())
set movie::Item("Year") to 1982
set movie::Item("Director") to "George Lucas"
set movie::Item("Rating") to "Best Movie Ever!"
invoke movieTable::InsertRow(movie)

*> query
set movieQuery to movieTable::Query(
"PartitionKey eq 'Jaws: The Revenge'")

set movieIQuery to type System.Linq.Queryable::AsQueryable[
type IDictionary[
string, object]](movieQuery)

set movie to type System.Linq.Queryable::FirstOrDefault[
type IDictionary[
string, object]](movieIQuery)

display movie::Item("PartitionKey") " -> "
movie::Item("Director") " -> "
movie::Item("RowKey")

*> show the results
perform varying movie thru movieQuery
display movie::Item("PartitionKey") " -> "
movie::Item("Director") " -> "
movie::Item("RowKey")
end-perform

goback.

end program Program1.