Promedio de descarga/visualización de los códigos de AS/400
Listado de los códigos con más promedio de visualizaciones realizadas por día desde su publicación en la web.
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.
para las interfases entre as400 y excel habia que usar transfers, hice macro de excel se concecta a as400 y extrae la informacion
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.
me pidieron transferir archivos de as400 a servidores windows
1. Se genera en este caso un archivo de datos en cobol
2. Una vez generado primero se arma un archivo con los comandos de ftp
3. Se invoca una cl, que toma dicho archivo de comandos, y genera un archivo de log
salu2
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.
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.
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.
Código fuente para el calculo de intereses sobre saldos.
Hecho en ILE RPG corre en AS/400 Ver. 5.1
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.
