Gracias Rui Pinto (Rapinto)
COBOL Foro
Foro dedicado a COBOL, a la Programación y a la Informática.
Retroceder   COBOL Foro > IDE-s y compiladores COBOL > Fujitsu COBOL > NetCOBOL for Windows
NetCOBOL for Windows El IDE basado en Eclipse.
Noticias y Avisos
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
Forero desde (Registrado)diciembre 2014
España
UbicaciónMadrid
Edad34 años
Última Actividad14.07.2019 10:44
PROCEDURE DIVISION
PostsPosts: 1.398
Ha dicho GraciasEnviado: 304
Ha recibido agradecimientosRecibido: 528
Mejores respuestasSoluiones: 85
ReputaciónReputació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 - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando en su Nick:

Kuk no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 27 de junio de 2016, 23:23
IDENTIFICATION DIVISION
Rapinto
Gran amigo del Foro y Guru de COBOL
ENVIRONMENT DIVISION
Avatar de Rapinto
DATA DIVISION
Forero desde (Registrado)febrero 2015
Portugal
UbicaciónPorto
Última Actividad29.01.2018 19:23
PROCEDURE DIVISION
PostsPosts: 246
Ha dicho GraciasEnviado: 19
Ha recibido agradecimientosRecibido: 215
Mejores respuestasSoluiones: 47
Medallas recibidas: 2Medallas: 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! 
ReputaciónReputación: 13
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
Forero desde (Registrado)diciembre 2014
España
UbicaciónMadrid
Edad34 años
Última Actividad14.07.2019 10:44
PROCEDURE DIVISION
PostsPosts: 1.398
Ha dicho GraciasEnviado: 304
Ha recibido agradecimientosRecibido: 528
Mejores respuestasSoluiones: 85
ReputaciónReputació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 - obligatorias de conocer para TODOS.
¿Te han ayudado? NO TE OLVIDES de darle a
¿Quieres dirigirte a alguien en tu post? Notifícale Pinchando 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 18:08.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2019, Jelsoft Enterprises Ltd.