Códigos Fuente de AS/400

Mostrando del 1 al 9 de 9 registros
<<>>
Imágen de perfil
Val: 19
Ha mantenido su posición en AS/400 (en relación al último mes)
Gráfica de AS/400

Ftp de as400 a windows


AS/400

Publicado el 11 de Septiembre del 2019 por Hugo Arturo (4 códigos)
5.545 visualizaciones desde el 11 de Septiembre del 2019
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
sin imagen de perfil

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


AS/400

Publicado el 22 de Abril del 2017 por Martin
5.668 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.

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     *
*                                                                    *
sin imagen de perfil

Compresión de String de largo 256 Caracteres.


AS/400

Publicado el 11 de Febrero del 2016 por Cesar Francisco (2 códigos)
2.162 visualizaciones desde el 11 de Febrero del 2016
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.
sin imagen de perfil

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


AS/400

Publicado el 10 de Febrero del 2016 por Cesar Francisco (2 códigos)
9.352 visualizaciones desde el 10 de Febrero del 2016
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

Menu PullDown


AS/400

estrellaestrellaestrellaestrellaestrella(5)
Publicado el 6 de Septiembre del 2002 por Walter Fölgar (3 códigos)
19.876 visualizaciones desde el 6 de Septiembre del 2002
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.
Imágen de perfil

Accesar un archivo de transacciones y su maestro de clientes


AS/400

estrellaestrellaestrellaestrellaestrella(2)
Publicado el 26 de Agosto del 2002 por Walter Fölgar (3 códigos)
18.654 visualizaciones desde el 26 de Agosto del 2002
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.
Imágen de perfil

Programa de consulta utilizando SQL


AS/400

estrellaestrellaestrellaestrellaestrella(6)
Publicado el 20 de Agosto del 2002 por Walter Fölgar (3 códigos)
35.616 visualizaciones desde el 20 de Agosto del 2002
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.