Códigos Fuente de AS/400

Mostrando del 1 al 8 de 8 registros
<<>>

AS400: Buscar una cadena de Caracteres dentro del todo el equipo.


AS/400

Actualizado el 23 de Abril del 2017 por Martin (Publicado el 22 de Abril del 2017)
983 visualizaciones desde el 22 de Abril del 2017. Una media de 63 por semana
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.

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     *
*                                                                    *

Leer Informacion de As400 con Macro Excel


AS/400

Publicado el 22 de Septiembre del 2016 por Hugo Arturo
1.442 visualizaciones desde el 22 de Septiembre del 2016. Una media de 35 por semana
para las interfases entre as400 y excel habia que usar transfers, hice macro de excel se concecta a as400 y extrae la informacion

Compresión de String de largo 256 Caracteres.


AS/400

Publicado el 11 de Febrero del 2016 por Cesar Francisco
892 visualizaciones desde el 11 de Febrero del 2016. Una media de 14 por semana
Saludos Cordiales desde Chile, Les adjunto una Rutina muy útil y simple para comprimir un String de hasta 256 Caracteres que tiene mucho espacio entre sus glosas internas.
Puede servir para arreglar Comprimir Campos de Nombres Direcciones, de los diferentes archivos, alineando los caracteres a la Izquierda dejando solo un espacio entre glosas.
Para que se vean bien los Mensajes, Nombres, Direcciones y todos los campos alfanuméricos en general en Cheques, Cartas, informes e Información de Pantallas, Etc.

Ejemplos;
Antes ‘ROJAS ESTRADA ANNE MARIE ‘
Después ‘ROJAS ESTRADA ANNE MARIE ‘

Antes ‘DISTR. DE ACEROS Y PERNOS LOS PINGUINOS S.A. ’
Después ‘DISTR. DE ACEROS Y PERNOS LOS PINGUINOS S.A. ’

PD: Pueden copiarlo a un archivo TXT y transferirlo con FTP al AS/400.

Desde Fecha AAAMMDD Calcular qué día de la semana es.. Sin Archivos


AS/400

Actualizado el 11 de Febrero del 2016 por Cesar Francisco (Publicado el 10 de Febrero del 2016)
1.263 visualizaciones desde el 10 de Febrero del 2016. Una media de 21 por semana
Quieres saber que día de la semana Naciste ¿? , Si la Fecha es Sábado o Domingo ¿?

Una Rutina para Calcular qué día de la semana es una Fecha Formato AAAAMMDD. Sin Archivos.

Espero que sea de su Utilidad o entretenimiento.

Saludos Cordiales desde Chile… Cesar Toro


PD: Pueden copiarlo a un archivo TXT y transferirlo con FTP al AS/400.
Imágen de perfil

Calculo de intereses sobre saldos


AS/400

Publicado el 29 de Enero del 2013 por Walter Fölgar
4.249 visualizaciones desde el 29 de Enero del 2013. Una media de 21 por semana
Código fuente para el calculo de intereses sobre saldos.
Hecho en ILE RPG corre en AS/400 Ver. 5.1

Menu PullDown


AS/400

estrellaestrellaestrellaestrellaestrella(5)
Publicado el 06 de Septiembre del 2002 por Walter Fölgar
17.920 visualizaciones desde el 06 de Septiembre del 2002. Una media de 28 por semana
Ejemplo de un menu PullDown, para AS400.
La opcion donde esta el cursor esta iluminada, (Reverse Image) y al pulsar Enter, se ejecuta la opcion asociada.

Accesar un archivo de transacciones y su maestro de clientes


AS/400

estrellaestrellaestrellaestrellaestrella(1)
Publicado el 26 de Agosto del 2002 por Walter Fölgar
16.523 visualizaciones desde el 26 de Agosto del 2002. Una media de 28 por semana
Estas especificaciones hacen lo mismo que un SET RELATION de FOX.

Encadena el archivo maestro de clientes a partir del archivo de transacciones, y cuando se procesa el programa, no es necesario hacer ningun tipo de lectura, adicional para obtener los datos generales del cliente, basta con declarar el archivo logico en el programa y el sistema operativo se encarga de hacer las lecturas necesarias.

Con esta tecnica se permite tener Join files hasta de 32 archivos, en una sola declaracion de archivo logico.

Programa de consulta utilizando SQL


AS/400

estrellaestrellaestrellaestrellaestrella(6)
Publicado el 20 de Agosto del 2002 por Walter Fölgar
33.429 visualizaciones desde el 20 de Agosto del 2002. Una media de 49 por semana
Este programa presenta una pantalla con un campo de entrada, el cual permite hacer una busqueda en una tabla de DB2, por medio del campo descripcion,
busca en todo el campo de 40 posiciones de longitud, la palabra que fue digitada en el campo de la pantalla.
Llena un sub-file que es el equivalente a un archivo temporal almacenando en el todas las filas de la tabla que contengan la palabra buscada.

Hecho para AS/400, utilizando ILE RPG.