Kuk,
Será que rsolve????
Código COBOL:
IDENTIFICATION DIVISION.
PROGRAM-ID. A.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SPECIAL-NAMES.
CONSOLE IS CONS.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 data-1 PIC X(80).
PROCEDURE DIVISION.
ACCEPT data-1 FROM CONS.
DISPLAY data-1 UPON CONS.
EXIT PROGRAM.
END PROGRAM A.
Fiz um pequeno teste e funcionou bem.
Un saludo,
Rui