Ver Mensaje Individual
  #4
Antiguo 3 de abril de 2015, 10:43
Kuk
Administrador
Última Actividad 19.09.2026 20:11
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

Lo haces con MOVE-s respectivos en la siguiente estructura:

Código COBOL:
  1. 01  VALOR-ASCII     PIC 9(4) BINARY.
  2. 01  FILLER REDEFINES VALOR-ASCII.
  3.     05  FILLER      PIC X.
  4.     05  VALOR-CHAR  PIC X.



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