Puedes estar teniendo problemas por los CCSID. El FOR BIT DATA equivale al CCSID 1208 (creo, ahora no puedo comprobarlo porque no tengo la máquina a mano) y la Select utiliza el 65535 que es el estándar del sistema. Prueba a hacer un (CAST AS VARCHAR). Mañana, cuando tenga acceso al equipo, te digo exactamente como lo monté yo.
Juan Carlos. Obtener BlueMail para Android En 3 dic. 2020 13:56, en 13:56, Jorge Aguero <[email protected]> escribió: >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.
____________________________________________________ �nete a Recursos AS400, nuestra Comunidad ( http://bit.ly/db68dd ) Forum.Help400 � Publicaciones Help400, S.L.
