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 > MicroFocus COBOL > RM/COBOL
RM/COBOL IDE y Compilador RM/COBOL
Comunicados
Otros temas que te pueden interesar
Tema Autor Foro Respuestas Último post
[Componente] Rutina Números Aleatorios Hrmcobol PowerCOBOL (ActiveX, v4 - v11) 2 15 de octubre de 2017 00:26
[Sintaxis] Crear Rutina que exporte archivos DAT a TXT? KalEl NetCOBOL for Windows 15 24 de septiembre de 2017 21:43
[Petición] Rutina impresión sticker con codigos de barras Gatomalo Cocina PowerCOBOL 7 19 de agosto de 2016 16:44
[Sintaxis] Mayusculas en las primeras palabras Gatomalo RM/COBOL 7 17 de abril de 2015 23:31
Respuesta
 
Herramientas

  #1
Antiguo 22 de junio de 2015, 21:47
IDENTIFICATION DIVISION
Gatomalo
 Novato Junior
ENVIRONMENT DIVISION
Avatar de Gatomalo
DATA DIVISION
abril 2015
Panama
01.07.2020 17:41
PROCEDURE DIVISION
Posts: 61
Enviado: 6
Recibido: 2
Soluiones: 1
Reputación: 7
Gatomalo is on a distinguished road
Predeterminado Rutina de filtrado de palabras

Hola amigos, tengo una consulta si me pueden ayudar
tengo estos campos

Código:
   Maria carpio  cedula 52335 
   Jose monzante cedula 62355
   Carlos del Prado Cozo cedula 4255656
   Sandro Villafuerte Hernandez cedula 3255552
por programa necesito que solo se muestren el nombre sin la cedula ni el numero
en un listado todo esta grabado en un solo campo.

GRACIAS
Gatomalo no ha iniciado sesión   Responder Con Cita
  #2
Antiguo 23 de junio de 2015, 08:27
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
16.06.2021 09:06
PROCEDURE DIVISION
Posts: 1.754
Enviado: 552
Recibido: 721
Soluiones: 94
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

gatomalo, toma un ejemplo de filtrado de texto. En este ejemplo, el campo TXT contiene el texto ya limpio (sin "cedula" y demás). Te he hehco el ejemplo suponiendo que lees de un fichero. Imagino que podrás adaptarlo un poco a tus necesidades:

Código COBOL:
  1.  WORKING-STORAGE SECTION.
  2.  01  IDX-1           PIC 9(5).
  3.  01  TXT             PIC X(50).
  4.  PROCEDURE DIVISION.
  5.  
  6.      PERFORM UNTIL SW-FIN-FICHERO
  7.          MOVE 1 TO IDX-1
  8.          
  9.          PERFORM UNTIL (IDX-1 + 6) > 50
  10.              IF  RE-REGISTRO(IDX-1:6) = 'cedula'
  11.                  MOVE RE-REGISTRO(1:IDX-1 - 1) TO TXT
  12.              END-IF
  13.              
  14.              ADD 1 TO IDX-1
  15.          END-PERFORM
  16.          
  17.          READ FICHERO NEXT
  18.      END-PERFORM



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
Ha dicho Gracias : 1
gatomalo (24 de junio de 2015)
  #3
Antiguo 30 de junio de 2015, 13:14
IDENTIFICATION DIVISION
Hrmcobol
 Guardián del Foro
Guardián del Foro: Guardián del espíritu y clima del Foro - Razón: Por implicación en la vida del Foro 
ENVIRONMENT DIVISION
Avatar de Hrmcobol
DATA DIVISION
febrero 2015
Puerto Madryn
69 años
14.06.2021 02:25
PROCEDURE DIVISION
Posts: 313
Enviado: 102
Recibido: 116
Soluiones: 10
Reputación: 18
Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light Hrmcobol is a glorious beacon of light
Predeterminado

Hola Amigo, otro opcion seria

Código COBOL:
  1.  ENVIRONMENT     DIVISION.
  2.  DATA            DIVISION.
  3.  WORKING-STORAGE SECTION.
  4.  01 TXT1 PIC X(90) VALUE "Jose monzante cedula 62355".
  5.  01 TXT2 PIC X(90) VALUE SPACES.
  6.  PROCEDURE       DIVISION.
  7.       INSPECT TXT1 REPLACING ALL "cedula" BY "******"
  8.       STRING TXT1 DELIMITED BY "*" INTO TXT2 END-STRING
  9.       INVOKE POW-SELF "DisplayMessage" USING TXT2 " " 0
Hrmcobol no ha iniciado sesión   Responder Con Cita
  #4
Antiguo 10 de marzo de 2017, 03:03
IDENTIFICATION DIVISION
Roger
 Forero
ENVIRONMENT DIVISION
Avatar de Roger
DATA DIVISION
febrero 2015
Lima
04.02.2021 12:03
PROCEDURE DIVISION
Posts: 255
Enviado: 27
Recibido: 80
Soluiones: 5
Reputación: 13
Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road Roger is on a distinguished road
Predeterminado

Necesito filtrar desde un campo cmtext de la siguiente manera
si pongo C semuestre todas las palabras que empiezen con c
si pongo CA todas que con CA
si pongo CAM y asi sucecivamente ..... muy similar al filtrado que usan en Visual Basic.

Roger no ha iniciado sesión   Responder Con Cita
  #5
Antiguo 10 de marzo de 2017, 08:09
IDENTIFICATION DIVISION
Kuk
 Administrador
ENVIRONMENT DIVISION
Avatar de Kuk
DATA DIVISION
diciembre 2014
Madrid
36 años
16.06.2021 09:06
PROCEDURE DIVISION
Posts: 1.754
Enviado: 552
Recibido: 721
Soluiones: 94
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

Roger, échale un vistazo a esto: [Aporte] Ejemplo de Filtro de búsqueda (Type ahead search) - COBOL Foro

Está hehco en Power v3 pero puedes leer el fuente para ver lo que se hace.



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


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 11:20.
Powered by: vBulletin, Versión 3.8.7
Derechos de Autor ©2000 - 2021, Jelsoft Enterprises Ltd.