AS400: Buscar una cadena de Caracteres dentro del todo el equipo.
AS/400
Publicado el 22 de Abril del 2017 por Martin
5.706 visualizaciones desde el 22 de Abril del 2017
Anexo se encuentra un programa que permite buscar dentro de todos los archivos tipo fuente del os/400 donde se tenga permiso, una cadena de carcteres.
la salida se coloca dentro del un archivo de base de datos que se creara dentro de la biblioteca QGPL denominado FNDMBRCADD.
esta compuesto por dos modulos uno CLLE y uno SQLRPGLE.
los prametros de uso son los que se indican.
la salida se coloca dentro del un archivo de base de datos que se creara dentro de la biblioteca QGPL denominado FNDMBRCADD.
esta compuesto por dos modulos uno CLLE y uno SQLRPGLE.
los prametros de uso son los que se indican.
1
2
3
4
5
6
7
8
* Ejemplo de llamada como Programa *
* CALL PGM(MARTIN1/FNDMBRCAD) *
* PARM(' ' <- Modo Llamada ( ) 02 *
* ' ' <- Biblioteca Opcional( ) 10 *
* ' ' <- ArchivoSrc Opcional( ) 10 *
* ' ' <- Fuente Opcional( ) 10 *
* 'CadenaFND ' <- Cadena De Busqueda ( ) 50 *
* *
un CLLE
un SQLRPGLE
Espero que sirvan para su proposito... y ayude a muchos a resolver los problemas de busqueda.