Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
  COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > NetCOBOL for Windows
NetCOBOL for Windows El IDE basado en Eclipse.
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Sintaxis] Traspaso de valor en variable entre 2 Forms jmeza PowerCOBOL (ActiveX, v4 - v11) 12 13 de noviembre de 2018 19:24
[Aporte] Tablas bidimensionales de longitud variable Kuk Cocina MicroFocus 2 23 de mayo de 2018 10:13
[Sintaxis] Compratir variable con un EXE de PowerCOBOL Recato53 PowerCOBOL (ActiveX, v4 - v11) 10 14 de febrero de 2017 16:18
[Noticia] Migración de PowerCOBOL a .NET sin cambiar COBOL Luimarat NetCOBOL for .NET 6 17 de noviembre de 2016 07:53
[Información] Recorrer Control Table sin modificar datos Begoguay PowerCOBOL (ActiveX, v4 - v11) 8 21 de diciembre de 2015 08:34
Respuesta
 
Herramientas

  #1
Antiguo 27 de junio de 2016, 12:15
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
16.09.2021 12:01
PROCEDURE DIVISION
Posts: 1.806
Enviado: 583
Recibido: 753
Soluiones: 95
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Consola 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) ?



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Mejores respuestas Soluciones: 1
  #2
Antiguo 27 de junio de 2016, 23:23
IDENTIFICATION DIVISION
Rapinto
 Gran amigo del Foro y Guru de COBOL
Activista del Foro: Activista del Foro - Razón: ¡Gracias!  Agradecimientos: Por muchos agradecimientos de parte de los Foreros - Razón: Por ayudar mucho a los foreros  Guru de los Gurus: Por solidos y amplios conocimientos - Razón: Por saber demasiado! 
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
febrero 2015
Porto
29.01.2018 19:23
PROCEDURE DIVISION
Posts: 246
Enviado: 19
Recibido: 225
Soluiones: 47
Reputación: 16
Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road Rapinto is on a distinguished road
Predeterminado
1 usuarios han marcado este post como "Solución"

Kuk,

Será que rsolve????
Código COBOL:
  1. IDENTIFICATION DIVISION.
  2. PROGRAM-ID. A.
  3. ENVIRONMENT DIVISION.
  4. CONFIGURATION SECTION.
  5. SPECIAL-NAMES.
  6.       CONSOLE IS CONS.
  7. DATA DIVISION.
  8. WORKING-STORAGE SECTION.
  9. 01 data-1 PIC X(80).
  10. PROCEDURE DIVISION.
  11.       ACCEPT data-1 FROM CONS.
  12.       DISPLAY data-1 UPON CONS.
  13.       EXIT PROGRAM.
  14.       END PROGRAM A.

Fiz um pequeno teste e funcionou bem.

Un saludo,
Rui
Rapinto no ha iniciado sesión   Responder Con Cita
Ha dicho Gracias : 1
Kuk (28 de junio de 2016)
  #3
Antiguo 28 de junio de 2016, 07:26
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
16.09.2021 12:01
PROCEDURE DIVISION
Posts: 1.806
Enviado: 583
Recibido: 753
Soluiones: 95
Reputación: 10
Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road Kuk is on a distinguished road
Predeterminado

Rapinto, si funciona! Gracias Rui

También se puede evitar escribir:

Código COBOL:
  1.        ENVIRONMENT  DIVISION.
  2.        CONFIGURATION SECTION.
  3.        SPECIAL-NAMES.
  4.            CONSOLE IS CRT.



NORMAS DEL FORO - para garantizar el buen funcionamiento del Foro.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale haciendo clic en su Nick
Kuk no ha iniciado sesión   Responder Con Cita
Respuesta

Tags
accept , longitud , variable


Usuarios activos actualmente viendo este tema: 1 (0 miembros y 1 visitantes)
 
Herramientas

Derechos de Publicación
No puedes publicar nuevos temas
No puedes publicar posts/responder
No puedes adjuntar archivos
No puedes editar tus posts

BB code is habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado



La franja horaria es GMT +1. Ahora son las 17:26.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.