ACCEPT sin rellenar la variable entera

[Kuk]

Amigos, no sé si alguien se ha dado cuenta de que en Fujitsu cuando haces ACCEPT, si el valor introducido es menor de la longitud de la variable que recibe dicho valor, la tecla Enter no tiene efecto. Es decir, para hacer ACCEPT de una variable de PIC X(10) con el valor "hola" hay que indicar "Hola" + 6 espacios.

¿Hay alguna manera de que el ACCEPT se haga sin tener que rellenar con espacios el resto de la variable (como en MicroFocus por ejemplo) ?

[Rapinto]

Kuk,

Será que rsolve????

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

[Kuk]

@Rapinto, si funciona! Gracias Rui

También se puede evitar escribir:

       ENVIRONMENT  DIVISION.
       CONFIGURATION SECTION.
       SPECIAL-NAMES.
           CONSOLE IS CRT.