Hi Altair, should be something like:
class-id a.
method-id Decrypt public.
local-storage section.
01 exml type EncryptedXml.
procedure division using by value Doc as type XmlDocument by value Alg As type RSA by value KeyName As string.
if KeyName = null
raise new ArgumentNullException("KeyName")
end-if
set exml to New EncryptedXml(Doc)
invoke exml::AddKeyNameMapping(KeyName, Alg)
invoke exml::DecryptDocument()
goback.
end method.
end class.
I'm not sure where the EncryptedXml class is so cannot confirm 100% that this is correct.