You may have posted this already. Sorry if I missed it. Don't know if I'll be of help but I'll look it over.
Paul Hanrahan -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of De La Fuente Seivane, Victor Sent: Monday, July 18, 2005 7:54 AM To: IBM-MAIN@BAMA.UA.EDU Subject: Re: Help needed with ICSF Sorry! I thought I already put it on Friday... The code (only the part where I use ICSF) is: ENCIPHEREDKEY=SUBSTR(COMAREA,17,LENTRADA-16); ENCIPHEREDKEYLENGTH=LENTRADA-16; [EMAIL PROTECTED]('D',ENCIPHEREDKEY,ENCIPHEREDKEYLENGTH, NENCIPHEREDKEY,NENCIPHEREDKEYLENGTH); NENCIPHEREDKEYLENGTH = RES; PRIVKEYID='XXX.XXX.XXXX.XXXXXXX.XXXXXXXX'; PRIVKEYIDLENGTH=29; RULARRC=3; CALL CSNBKTB(CRYRETC,CRYRESC,CERO,'',KEYTOKEN,'EXPORTER', RULARRC,'INTERNALNOCV-KEKKEYLN16 ','',0,0, '','','',0,'',''); RULARRC=1; KEYTOKENLENGTH=64; CALL CSNDSYI(CRYRETC,CRYRESC,CERO,'',RULARRC,'PKCS-1.2', NENCIPHEREDKEYLENGTH,NENCIPHEREDKEY,PRIVKEYIDLENGTH, PRIVKEYID,KEYTOKENLENGTH,KEYTOKEN); And the variables are: DCL ENCIPHEREDKEY CHAR(256) INIT(''); DCL ENCIPHEREDKEYLENGTH BIN FIXED(31) INIT(0); ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO Search the archives at http://bama.ua.edu/archives/ibm-main.html
