This is the subroutine to encrypt and it works like a dream: *---------------------------------------------------------------------* * encrypt string using DES *---------------------------------------------------------------------* encrypt csect , start the csect encrypt amode 31 31 bit address mode encrypt rmode any any residence mode save (14,12) save caller's registers balr r12,0 establish code using *,r12 base register lm r2,r4,0(r1) r2: encrypt target field * r3: encryption key * r4: clear text la r0,1 function code KM-DEA encrypt lr r1,r3 key la r5,8 length km r2,r4 encrypt return (14,12),rc=0 return to caller with zero rc
Thanks everyone. Regards, John. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN