|
Saludos.
Te mando un ejemplo de la vieja escuela. escrito en rpg
que ahora se puede modernizar y mejorar pero es una manera muuy simple, siempre
que la base de datos no tenga una excesiva cantidad de registros, en cuyo caso
tendrias que ir cargando pagina a pagina. etc
55 --> cadena a buscar en blanco --> todos los registros
x1 --> longitud argumento
busqueda. Se asume que si se dejan 2 blancos seguidos acaba lo que queremos
buscar. (permite buscar descripciones que contengan parte,
compuestas)
Arg --> argumento busqueda.
Campo de pantalla donde indicamos lo que queremos
buscar
x2. posicion donde encontramos lo que buscamos.
0045.00
C
SETOF
55
0046.00 C ARG COMP *BLANKS 55 0047.00 C ' ' SCAN ARG X1 20 0048.00 C X1 SUB 1 X1 0052.00 C *LOVAL SETLLRPAISES 0053.00 C Z-ADD0 NRR 20 0054.00 C LEE TAG 0055.00 C READ RPAISES 99 0056.00 C 99 GOTO P1 0057.00 C SETOF 60 0058.00 C N55 ARG:X1 SCAN PAIDES X2 20 60 0059.00 C N55 60 ADD 1 NRR 0060.00 C N55 60 WRITESFL 0061.00 C 55N60 ADD 1 NRR 0062.00 C 55N60 WRITESFL 0063.00 C GOTO LEE Un Saludo,
José Bermúdez
Dep
Informática.
Alcoholes Montplet,
S.A.
Email: [EMAIL PROTECTED] De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de paco Enviado el: miércoles, 17 de mayo de 2006 19:25 Para: [email protected] Asunto: RE: busqueda de una cadena en archivo Como se utiliza el
Qclscan, si tienes algun ejemplo me puedes enviar,
gracias. Saludos Paco Medina Exclusivas Camacho,
S.Ltda. Dtor.Informatica De:
[EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] En nombre de Guillermo Andrades (CPI
Software) %scan solo busca caracteres iguales, quiza
te interese mas usar QCLSCAN. On 5/16/06, paco <[EMAIL PROTECTED]>
wrote: Solucionado Gracias
con SCAN Dnohacena
S
5
INZ('RESTO')
Dnohacen1
S
5
INZ('Resto')
Dnohacen2
S
5
INZ('resto')
*
* Si pos tiene
algo quiere decir que esta etiqueta ya
existe * con lo que no
tiene que hacer nada (Solo cuando sea
cero). * Pos tendra 0 si
no encuentra coincidencias y algo si la encuentra * con lo que
continuara el
proceso.
C
nohacena:5 scan
cloobs:1
pos
4 0 C
if
pos<>0
C
except
C
endif
C
nohacen1:5 scan
cloobs:1
pos
4 0 C
if
pos<>0
C
except
C
endif
C
nohacen2:5 scan
cloobs:1
pos
4 0 C
if
pos<>0
C
except
C
endif
* si pos es cero no
hacemos
nada
*
Saludos Paco Medina Exclusivas Camacho,
S.Ltda. Dtor.Informatica De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] En nombre de Fernando Pérez
Asunto: Re: busqueda de una
cadena en archivo Vas recorriendo todos los
registros y a cada uno de ellos le haces un %scan al campo de la
descripción. Saludos.
Hola Compańeros, aver
si me podeis ayudar, necesito buscar una cadena
de Caracteres
ejemplo: RESTO en un archivo de descripciones, con que
Instrucción de RPGIV o
ILE podria hacerlo, Gracias. Saludos Paco Medina Exclusivas Camacho,
S.Ltda. Dtor.Informatica |
- busqueda de una cadena en archivo paco
- Re: busqueda de una cadena en archi... Fernando Pérez
- RE: busqueda de una cadena en a... paco
- Re: busqueda de una cadena ... Guillermo Andrades (CPI Software)
- RE: busqueda de una cad... paco
- RE: busqueda de un... JB Montplet
- RE: busqueda d... paco
- RE: busqueda de una cadena en archi... Juan Carlos Paredes
- Re: busqueda de una cadena en archi... Juan Carlos Paredes
