Ver Mensaje Individual
  #2
Antiguo 9 de agosto de 2017, 11:50
Kuk
Administrador
Última Actividad 21.09.2026 18:24
Posts Posts: 2.500
Likes enviados Enviados: 1037
Likes recibidos Recibidos: 1207

drvedia1981, por lo pronto has puesto B"00" y no X"00". En cuanto a tu problema, haz un REDEFINES :

Código COBOL:
  1.  01 ENVIO.
  2.     03 FILLER           PIC X VALUE X"1D".
  3.     03 FILLER           PIC X VALUE X"28".
  4.     03 FILLER           PIC X VALUE X"4C".
  5.     03 FILLER           PIC X VALUE X"06".
  6.     03 FILLER           PIC X VALUE B"00".
  7.     03 FILLER           PIC X VALUE X"30".
  8.     03 FILLER           PIC X VALUE X"45".
  9.     03 FILLER           PIC X VALUE X"20".
  10.     03 FILLER           PIC X VALUE X"20".
  11.     03 FILLER           PIC X VALUE X"01".
  12.     03 FILLER           PIC X VALUE X"01".
  13.  01  ENVIO-R REDEFINES ENVIO PIC X(11).

Y manda a la impresora el campo ENVIO-R a ver qué tal.



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