MVS NBS Standard Encryption/Decryption

[debula]

Does anyone out there have or know of a PD (or inexpensive) version of
a DES package written for MVS or VM (we actually will need both eventually,
right now MVS is more critical).  The package would have to adhere to the
NBS algorithm (never could spell that right :-).  Any leads would be
greatly appreciated.  Please send mail to:

debula-r at osu-20.ircc.ohio-state.edu

I would greatly appreciate any pointers in the right direction (maybe there's
even a better place to post this one?).