Josber, haz el bucle siguiente y me dices si ha funcionado o no:
Código COBOL:
WORKING-STORAGE SECTION.
01 CAMPO PIC X(300).
01 IDX-1 PIC 9(3).
PROCEDURE DIVISION.
MOVE 1 TO IDX-1
PERFORM UNTIL IDX-1 > 300
IF CAMPO(IDX-1:2) = X"0D0A"
MOVE CAMPO(IDX-1 + 2:) TO CAMPO(IDX-1 + 1:)
MOVE SPACES TO CAMPO(IDX-1:1)
END-IF
IF CAMPO(IDX-1:1) = X"0D" OR
CAMPO(IDX-1:1) = X"0A"
MOVE SPACES TO CAMPO(IDX-1:1)
END-IF
ADD 1 TO IDX-1
END-PERFORM
Lo he probado con:
Código COBOL:
MOVE "ABDCE" & X"0D0A" & "FGH" & X"0D" & "IJKLM" & X"0A" & "NOP" TO CAMPO
Y aquí tienes la prueba de que funciona.
