Ver Mensaje Individual
  #6
Antiguo 29 de abril de 2016, 14:41
Ciro
Forero Junior
Última Actividad 26.05.2025 17:37
Posts Posts: 19
Likes enviados Enviados: 19
Likes recibidos Recibidos: 2

Fito y Roger gracias por sus respuestas, hice lo que indican, pero sigue visualizando mal.

Este es el código.

Código COBOL:
  1. 01 REGISTRO-ITE GLOBAL.
  2.     02 CUENTA-TITE PIC X(12) VALUE " ".
  3.     02 FILLER      PIC X(01) VALUE ";".
  4.     02 NOMCUE-TITE PIC X(30) VALUE " ".
  5.     02 FILLER      PIC X(01) VALUE ";".
  6.     02 NITTER-TITE PIC X(15) VALUE " ".
  7.     02 FILLER      PIC X(01) VALUE ";".
  8.     02 CENCOS-TITE PIC X(08) VALUE " ".
  9.     02 FILLER      PIC X(01) VALUE ";".
  10.     02 TIPREF-TITE PIC X(02) VALUE " ".
  11.     02 FILLER      PIC X(01) VALUE ";".
  12.     02 NROREF-TITE PIC X(08) VALUE " ".
  13.     02 FILLER      PIC X(01) VALUE ";".
  14.     02 DEBITO-TITE PIC ZZ,ZZZ,ZZZ,ZZZ.ZZ.
  15.     02 FILLER      PIC X(01) VALUE ";".
  16.     02 CREDIT-TITE PIC ZZ,ZZZ,ZZZ,ZZZ.ZZ.
  17.     02 FILLER      PIC X(01) VALUE ";".
  18.     02 BASMOV-TITE PIC ZZ,ZZZ,ZZZ,ZZZ.ZZ.
  19.     02 FILLER      PIC X(01) VALUE ";".
  20.     02 DETAL1-TITE PIC X(30) VALUE " ".
  21.     02 FILLER      PIC X(01) VALUE ";".
  22.     02 CONSEC-TITE PIC X(06) VALUE " ".
Ciro is offline   Responder Con Cita