Cobol Foro - [Compilador] ACCEPT sin rellenar la variable entera

Cobol Foro (https://www.cobolforo.es/index.php)

- NetCOBOL (https://www.cobolforo.es/forumdisplay.php?f=2)

- - [Compilador] ACCEPT sin rellenar la variable entera (https://www.cobolforo.es/showthread.php?t=416)

Kuk	27 de junio de 2016 13:15

ACCEPT sin rellenar la variable entera

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

28 de junio de 2016 00:23

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

Kuk	28 de junio de 2016 08:26

Rapinto, si funciona! Gracias Rui ;)

También se puede evitar escribir:

Código COBOL:

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

La franja horaria es GMT +2. Ahora son las 02:30.