Ciro, también puedes tener un Null x"00".
No deberían tener dentro los campos ni ; ni null.
ejemplo nuestro:
Código COBOL:
01 LINEA-CT GLOBAL.
02 MARCA-CT PIC XXX.
02 SEPARA1-CT PIC X VALUE ";".
02 CORREL-CT PIC Z(6).
02 SEPARA2-CT PIC X VALUE ";".
02 FILLER PIC X VALUE " ".
02 ETAPA-CT PIC X(7).
02 SEPARA3-CT PIC X VALUE ";".
02 FILLER PIC X VALUE " ".
02 NOMBRE-CT PIC X(50).
02 SEPARA4-CT PIC X VALUE ";".
02 FILLER PIC X VALUE " ".
02 ORIGEN-CT PIC X(20).
02 SEPARA5-CT PIC X VALUE ";".
MOVE ";" TO SEPARA1-CT SEPARA2-CT SEPARA3-CT SEPARA4-CT EPARA5-CT.
INSPECT LINEA-CT REPLACING ALL X"00" BY " ".
INVOKE ctList1 "AddItem" USING LINEA-CT.
cuando tenés ; por ejemplo en el campo NOMBRE-CT, normalmente se corre todo porque identifica que es una nueva columna,
espero te sirva.
ADMIN: Armando, usa el bloque de resalto de sintaxis.