A ver si te sirve este ejemplo:
MIEMBRO . . . . . . . . . SCAN10R
SEQNBR*...+... 1 ...+... 2 ...+... 3 ...+... 4 ...+... 5 ...+... 6 ...+...
7 ...+... 8 ...+... 9 ...+... 0
100 HDECEDIT(',') DATEDIT(*DMY)
10/03/03
200
****************************************************************
10/03/03
300 * SCAN01R - Cambiar Datos en Una serie
* 10/03/03
400 *
* 10/03/03
500 * Para: - Exclusivas Camacho, S.Ltda,
* 10/03/03
600 * Autor: - Fco.Jose Medina Barajas 10/03/2003
* 10/03/03
700
****************************************************************
10/03/03
800 FXMLTABF IP E DISK
10/03/03
900 * Fichero donde se encuentra la serie a modificar
10/03/03
1000 FQSYS198 O F 198 PRINTER OFLIND(*INOF)
10/03/03
1100 Dcambio S 14 INZ('<TIPO>A</TIPO>')
10/03/03
1200 *
10/03/03
1300 * Salida Prueba como esta la seria a modificar
10/03/03
1400 C movel datos string 198
10/03/03
1500 C except
10/03/03
1600 *
10/03/03
1700 * cambio = serie longitud fija que queremos cambiar
10/03/03
1800 * 14 = longitud del cambio
10/03/03
1900 * string = serie movida a un campo del 198 en vez de Datos
10/03/03
2000 * que es el campo donde esta en el registro con
10/03/03
2100 * 1500 posiciones (DATOS)
10/03/03
2200 * 1 = posicion comienzo de busqueda en serie string
10/03/03
2300 * pos = contendra 0 si no la encuentra y algo sera la
posicion 10/03/03
2400 * donde comienza la igualdad al cambio,luego a
partir de la 10/03/03
2500 * posicion a¤adimos 14 blancos
10/03/03
2600 *
10/03/03
2700 C cambio:14 scan string:1 pos 4
0 10/03/03
2800 C if pos<>0
10/03/03
2900 * con esta instruccion eval inserta blancos
11/03/03
3000 C eval %subst(string:pos:14) = '
' 10/03/03
3100 * con esta instruccion eval quitamos los blancos
11/03/03
3200 C eval pos=pos-1
11/03/03
3300 C eval string=%replace('
':string:pos:17) 11/03/03
3400 C except
10/03/03
3500 *
10/03/03
3600 * Salida como quedara despues de ejecutar
10/03/03
3700 C endif
10/03/03
3800 oqsys198 h 1p 2 02
10/03/03
3900 o or of
10/03/03
4000 o 73 'Eliminacion
Serie Pruebas' 10/03/03
4100 o *date Y 85
10/03/03
4200 o 134 'Pag.'
10/03/03
4300 o page 2 141
10/03/03
4400 o 162 'scan10R'
10/03/03
4500 o h 1p 2
10/03/03
4600 o or of
10/03/03
4700 o 74 'Busca Serie
<TIPO>A</TIPO>' 10/03/03
4800 o 109 'y la cambia por
Blancos ' 10/03/03
4900 o e 1
10/03/03
5000 O string 198
10/03/03
* * * * F I N D E F U E N T E * * * *
Saludos
Paco Medina
Dtor.Informatica
Exclusivas Camacho, S. L.
Av. J. Ortega y Gasset, 301 (Pol. San Luis)
29006 Málaga, España
Tel. +34 952 322 900
Fax +34 952 314 900
www.e-camacho.com
[EMAIL PROTECTED]
Este e-mail es confidencial. Si usted no es el receptor apropiado, rogamos
no use la información contenida en el mismo por ser personal e
intransferible.
Si usted lo ha recibido por equivocación o descuido, por favor, reenvíe el
e-mail inmediatamente al remitente y destruya el documento.
EXCLUSIVAS CAMACHO S.L. no se hará responsable del mal uso de la
información recibida en estas condiciones, tomando las pertinentes acciones
legales contra la persona o entidad que incumpla el siguiente clausulado.
_____
De: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] En nombre de Matilde Vedia
Molina
Enviado el: viernes, 07 de septiembre de 2007 11:27
Para: Forum.help400 Bueno
Asunto: Busqueda de cadena de caracteres
Buenos días:
¿Alguien tiene hecha una subrutina de búsqueda de una cadena de caracteres
dentro del contenido de un campo?
Gracias a todos y saludos
Matilde
__________________________________________________
Forum.HELP400 es un servicio m&#225;s de NEWS/400.
&#169; Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
