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);
DCL NENCIPHEREDKEY CHAR(256) INIT('');
DCL NENCIPHEREDKEYLENGTH BIN FIXED(31) INIT(256);
DCL PRIVKEYID CHAR(64) INIT('');
DCL PRIVKEYIDLENGTH BIN FIXED(31) INIT(0);
DCL KEYTOKEN CHAR(64) INIT('');
DCL KEYTOKENLENGTH BIN FIXED(63) INIT(0);
The function is declared:
DCL CSNBKTB ENTRY EXTERNAL OPTIONS( ASM, INTER );
DCL CSNDSYI ENTRY EXTERNAL OPTIONS( ASM, INTER );
None of the variables are used before used as I showed before.
The [EMAIL PROTECTED] function translates text from BA64.
Please someone find my horrible bug!!!!!
Thank all you very much!
Best regards!
Víctor de la Fuente Seivane
-----Mensaje original-----
De: Paul Hanrahan [mailto:[EMAIL PROTECTED]
Enviado el: lunes, 18 de julio de 2005 13:41
Para: [email protected]
Asunto: Re: Help needed with ICSF
Can you provide a code snippet where you set up the lengths.- 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:01 AM
To: [email protected]
Subject: Re: Help needed with ICSF
My problem with your possible solution is my box is Z/990...
But thanks anyway. I'm still waiting for my guard angel to come to help!!!
Saludos!
Best regards!
Víctor de la Fuente Seivane
Departamento de Sistemas
Caixa Galicia
-----Mensaje original-----
De: Hal Merritt [mailto:[EMAIL PROTECTED]
Enviado el: miércoles, 13 de julio de 2005 21:59
Para: [email protected]
Asunto: Re: Help needed with ICSF
There are some hardware patches for the z/890 box that may apply. Not clear
about details, but something to do with an unexpected return code when a
field is padded with blanks.
HTH and good luck.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf
Of De La Fuente Seivane, Victor
Sent: Tuesday, July 12, 2005 6:54 AM
To: [email protected]
Subject: Help needed with ICSF
Hi all!
I'm hard fighting with ICSF. I'm writing a program where I try to use
CSNDSYI function, but I always get RTC=8 and RSC=11000. It means that there
is a length parameter wrong. I couldn't find it; I can't imagine which of
the three length parameters could be wrong.
I tried to find more information, with no success. Could anyone show me the
correct way? Just some hints on which could be the mistake!
Thank you very much!
Best regards!
Víctor de la Fuente Seivane
----------------------------------------------------------------------
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
----------------------------------------------------------------------
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
----------------------------------------------------------------------
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
----------------------------------------------------------------------
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
----------------------------------------------------------------------
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
