Qc3EncryptData and Qc3DecryptData Api Help

Hi Folks,

        I have been attempting to use the Qc3EncryptData and Qc3DecryptData 
Apis.
Using the following Prototypes

D TripleDESEnc    PR                  extproc('Qc3EncryptData')
D  DataToEncrypt                  *
D  LengthOfData                 10I 0
D  DataFormatNam                 8A
D  AlgoDescriptn                  *
D  AlgoDescName                  8A
D  KeyDescriptn                   *
D  KeyDescName                   8A
D  Provider                      1A
D  CryptoDevNam                 10A
D  EncryptedData                  *
D  EncryptedLen                 10I 0
D  DataLenRetd                  10I 0
D  ErrorCode                          Like(ErrorParm)
and
D TripleDESDec    PR                  extproc('Qc3DecryptData')
D  DataToDecrypt                  *
D  LengthOfData                 10I 0
D  DataFormatNam                 8A
D  AlgoDescriptn                  *
D  AlgoDescName                  8A
D  KeyDescriptn                   *
D  KeyDescName                   8A
D  Provider                      1A
D  CryptoDevNam                 10A
D  DecryptedData                  *
D  DecryptedLen                 10I 0
D  DataLenRetd                  10I 0
D  ErrorCode                          Like(ErrorParm)


Where The AlgoDescName = ALGD0200 and is defined as
D Algd0200        DS
D  BlockCyphAlg                 10I 0  Inz(21)
D  BlockLength                  10I 0  Inz(8)
D  AlgoMode                      1A    Inz('1')
D  AlgoPadOption                 1A    Inz('0')
D  AlgoPadChar                   1A    Inz(X'00')
D  AlgoReserved                  1A
D  MacLength                    10I 0  Inz(0)
D  EffKeySize                   10I 0  Inz(0)
D  InitVector                   32A

and the KeyDescName = KeyD0200 and is defined as
D Keyd0200        DS
D  KeyType                      10I 0  Inz(21)
D  KeyStringLen                 10I 0  Inz(128)
D  KeyFormat                     1A    Inz('0')
D  KeyReserved                   3A
D  KeyString                      *    Inz(%Addr(MyKeyString))

I am trying to do triple-des with dataformatname = 'DATA0100'.

With The Following Result : CPF9DDE

Does anybody have a hint/direction/pointer?  Would the rest of my code help?
(it doesn't help me yet<g>)



Thanks


Rick DuVall
Systems Manager
Dealer's Auto Auction of Okc
405 947-2886 Ext:143
rick@xxxxxxxxxx