Ich habe jetzt eine Information gefunden, dass SSL_INIT_Application statt SSL_INIT benutzt werden sollte. Ein Beispiel dazu habe ich auch gefunden und angepasst.
Code:
SSLInitApp_p = %alloc(%size(SSLInitApp));
SSLInitApp = *loval;
%str(%addr(c_sslAppID):%len(%trim(ssl_App_Name))) =
%trim(SSL_App_Name);
SSLInitApp.AppID = %addr(c_sslAppID);
SSLInitApp.AppIDLen = %scan(X'00':c_sslAppID) - 1;
SSLInitApp.lclCert = *Null;
SSLInitApp.lclCertLen = 0;
SSLInitApp.CipherList = %addr(SSLCipherList);
SSLInitApp.CipherElem = 11;
SSLInitApp.SessType = 0;
SSLInitApp.reserved1 = 0;
SSLInitApp.protocol = 0;
SSLInitApp.TimeOut = 0;
rc = SSL_Init_Application(%addr(SSLInitApp_p));
if rc <> 0;
// handle error!
Msg = %str(strerror(errno));
die(%editc(rc:'P') + ' ' + Msg);
endif;
Dann bekomme ich den Fehler zurück:
Der für das Argument angegebene Wert ist nicht korrekt.
Leider wird nicht angegeben, welches Argument. Sieht jemand was offensichtlich Falsches?
Bookmarks