Aprovechando esta cantidad de trabajadores del AS400 para hacerle compañía a los que se sienten solos, quiero preguntar si alguien puede aportarme de su conocimiento sobre el problema que tengo.He tenido que armar un programa que va a funcionar como rutina en Cobol con SQL embebido que encripta y desencripta.La rutina de encriptación, la tengo perfecta pero en la de desencriptación me falla en el ultimo paso. Se las transcribo abajo0200-DESENCRIPTAR. EXEC SQL SET ENCRYPTION PASSWORD = :PASS END-EXEC. IF SQLCODE NOT = 0 MOVE 1 TO AUX-ERROR END-IF. IF SQLCODE = 0 EXEC SQL CREATE TABLE QTEMP/EMP(SSN VARCHAR(48) FOR BIT DATA) END-EXEC IF SQLCODE NOT = 0 MOVE 2 TO AUX-ERROR END-IF END-IF.
EXEC SQL INSERT INTO QTEMP/EMP (SSN) VALUES(:AUXSSN) END-EXEC IF SQLCODE NOT = 0 MOVE 5 TO AUX-ERROR ELSE MOVE AUXSSN TO LNK-ENCEGRESO END-IF. ESTE PASO QUE VIENE ES EL UNICO QUE NO ME FUNCIONA, DONDE SQLCODE ME HA DADO DIFERENTES ERRORES. EXEC SQL SELECT DECRYPT_CHAR(SSN) INTO :AUXSSN FROM QTEMP/EMP END-EXEC. IF SQLCODE NOT = 0 MOVE 5 TO AUX-ERROR ELSE MOVE AUXSSN TO LNK-ENCEGRESO END-IF. 0299-DESECRIPTAR-FIN. EXIT.Si alguien me puede aportar algo, eternamente agradecido Jorge Agüero Benavente e-mail : [email protected] Skype : jorgeagueroarFacebook : Jorge Agüero Benavente El jueves, 3 de diciembre de 2020 09:14:12 ART, Jose Manuel Raña D. <[email protected]> escribió: Asi mismo es Saludos cordiales José Manuel Raña El jue., 3 de dic. de 2020 8:12 a. m., Gandul, Luis <[email protected]> escribió: Queridos….. Puede que estemos callados, cada uno a lo suyo, en silencio. Pero cuando un grupo de rock retirado, todos ellos mayores, algunos con nietos, con achaques….etc. deciden juntarse de nuevo y tocar en un concierto, qué ocurre? Pues que se agotan las entradas meses antes. Los viejos rockeros nunca mueren. De: Forum.help400 <[email protected]>En nombre de Marcelo Diaz Enviado el: jueves, 3 de diciembre de 2020 13:04 Para: forum.help400 <[email protected]> Asunto: [EXT] Re: Hay alguien ahí Caution: The sender of this email could not be verified and the sender may not be who they claim to be. Avoid replying to this email, opening attachments, or clicking on links unless you reach out to the sender by other means to ensure the email is legitimate. If the email is not legitimate, please report this email as phishing by clicking the Report Phishing button or forward the message [email protected]. Estamos ocultos para que no nos lleven al museo!!!! Marcelo Diaz Argentina El jue, 3 de dic. de 2020 a la(s) 05:22, Juan Carlos O. ([email protected]) escribió: Buenos días Perdonad por este correo, pero se me cancelo la suscrición al foro por correo lleno y no soy capaz de habilitarlo. Aunque ya lo he intentado varias veces en la pagina de Combios. Solo es un intento de comprobar si algo funciona porque me siento aislado, estoy solo en el mundo, ha habido una catástrofe zombi y yo no me he enterado……y lo peor sigo aquí con mi ISeries como un… Gracias a todos y que paseis un buen día ____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L. MetLife Europe d.a.c y MetLife Europe Insurance d.a.c son Compañías del Grupo MetLife. MetLife Europe d.a.c. es una sociedad de responsabilidad limitada por acciones registrada en Irlanda con número 415123. MetLife Europe d.a.c. Sucursal en España, con CIF W-0072536-F, está registrada en el Registro Mercantil de Madrid en el Tomo 30.276, Folio 192, Sección 8ª, Hoja M-544907, Inscripción 1ª, e inscrita en la Dirección General de Seguros y Fondos de Pensiones con el número E-0208, con domicilio social en Madrid, Avenida de los Toreros nº 3 (CP 28028). MetLife Europe Insurance d.a.c. es una sociedad de responsabilidad limitada por acciones registrada en Irlanda con número 472350. MetLife Europe Insurance d.a.c. Sucursal en España, con CIF W-0072537-D, está registrada en el Registro Mercantil de Madrid en el Tomo 30.288, Folio 181, Sección 8ª, Hoja M-544155, Inscripción 1ª, e inscrita en la Dirección General de Seguros y Fondos de Pensiones con el número E-0209, con domicilio social en Madrid, Avenida de los Toreros nº 3 (CP 28028). El domicilio social de MetLife Europe d.a.c. y MetLife Europe Insurance d.a.c. está situado en Irlanda, "20 on Hatch, Lower Hatch Street, Dublín 2".. MetLife Europe d.a.c. y MetLife Europe Insurance d.a.c. (ambas utilizando la marca MetLife), están reguladas por el Central Bank of Ireland sin perjuicio de las facultades atribuidas a la Dirección General de Seguros y Fondos de Pensiones. This email (including any attachments) is intended for the designated recipient(s) only, and may be confidential, non-public, proprietary, and/or protected by the attorney-client or other privilege. Unauthorized reading, distribution, copying or other use of this communication is prohibited and may be unlawful. Receipt by anyone other than the intended recipient(s) should not be deemed a waiver of any privilege or protection. If you are not the intended recipient or if you believe that you have received this email in error, please notify the sender immediately and delete all copies from your computer system without reading, saving, printing, forwarding or using it in any manner. Although it has been checked for viruses and other malicious software ("malware"), we do not warrant, represent or guarantee in any way that this communication is free of malware or potentially damaging defects. All liability for any actual or alleged loss, damage, or injury arising out of or resulting in any way from the receipt, opening or use of this email is expressly disclaimed. ____________________________________________________ Únete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 © Publicaciones Help400, S.L. ____________________________________________________ �nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L.
____________________________________________________ �nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L.
