Código COBOL:
01 DATOS-DET.
02 MED-ITEM PIC X(3).
02 FILLER PIC X VALUE ",".
02 CANT PIC ZZZ,ZZ9.99.
02 FILLER PIC X VALUE ",".
02 COD-PROD PIC ZZZ,ZZ9.99.
02 FILLER PIC X VALUE ",".
01 resultado pic x(50).
procedure division.
string MED-ITEM ", " CANT ", " COD-PROD ", " delimited all by spaces into resultado
display resultado
algo assim...estou ficando velho, posso ter esquecido a sintaxe correta
Saludos, Emerson