Códigos Fuente de AS/400

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

Compresión de String de largo 256 Caracteres.


AS/400

Publicado el 11 de Febrero del 2016 por Cesar Francisco
490 visualizaciones desde el 11 de Febrero del 2016. Una media de 35 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 (Creado el 10 de Febrero del 2016)
544 visualizaciones desde el 10 de Febrero del 2016. Una media de 42 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
3.770 visualizaciones desde el 29 de Enero del 2013. Una media de 28 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.260 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
15.955 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
32.818 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.