Cobol Foro
Navegación en el Foro
Retroceder   Cobol Foro Entornos de desarrollo y compiladores Cobol Fujitsu COBOL PowerCOBOL (ActiveX, v4 - v11)
PowerCOBOL (ActiveX, v4 - v11) Versiones del IDE basadas en ActiveX
 
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Duda] Texto enriquecido Josber PowerCOBOL (ActiveX, v4 - v11) 3 4 de mayo de 2024 15:34
[Sintaxis] Tamaño del texto de la pantalla Begoguay PowerCOBOL (ActiveX, v4 - v11) 9 14 de febrero de 2019 23:12
[Sintaxis] Texto inicial en un Textbox dmosca PowerCOBOL (ActiveX, v4 - v11) 4 25 de julio de 2017 17:45
[Sintaxis] Pasar CSV a texto plano theezraak RM/COBOL 8 24 de octubre de 2016 11:01
[Sintaxis] Pasar datos a texto plano Matias PowerCOBOL (ActiveX, v4 - v11) 6 12 de agosto de 2016 19:47

Respuesta

  #11
Antiguo 14 de junio de 2016, 17:49
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

Josber, la rutina encripta la longitud total con los espacios en medio o al final del PIC X(50). Si sólo necesitas una parte, efectivamente haz:

Código COBOL:
  1. MOVE LNK-ENCRIPT (1:10) TO  ...

Porque cuando vayas a desencriptar, y hagas el MOVE 10, el resto en COBOL se llena por espacios así que el resultado sería el mismo y se reconstruiría todo correctamente.
Me alegro de que te haya gustado como queda



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk is offline   Responder Con Cita
Respuesta


Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado

Saltar a Foro


La franja horaria es GMT +2. Ahora son las 16:40.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.