¿ Quieres imprimir esta página ? Volver a la página principal de Recursos iSeries AS400 ¿ Necesitas ayuda ? En pruebas
System i5 iSeries AS400 Recursos. Compartiendo generamos conocimiento
Novedades en Recursos iSeries AS400
Noticias tecnológicas
  • Utilidad: Rutina de comprobación de cif y nif.
    Remitida por: Francesc Abril.
    Fecha: 14-06-1998
  • Utilidad: Rutina de conexión desde VB al AS/400.
    Remitida por: Claudio Torres.
    Con estas rutinas puedes crear la base de datos, atachar las tablas que deseas accesar y para actualizarlas te crea el indice con clave unica y primaria, si no necesitas actualizarlas sino solo verlas no hace falta la instruccion DB_AS400.Execute.
    Private Sub Crear_Base()
    Via_Acceso = App.Path & "/" & Tu_Base_De_Datos
    Set DB_AS400 = WrkODBC.CreateDatabase(Via_Acceso, dbLangGeneral)
    Indices = "CCHTIP"
    Tabla_Def Lib_CCH, "CCHCTL", Indices
    Indices = "CC01TP, CC01CD"
    Tabla_Def Lib_CCH, "CCH01", Indices
    Indices = "CC02TP, CC02CD, CC02CC, CC02CT"
    Tabla_Def Lib_CCH, "CCH02", Indices
    Indices = "CC03FC, CC03TP, CC03CD, CC03SC"
    Tabla_Def Lib_CCH, "CCH03", Indices
    Indices = "CSET, CACC"
    Tabla_Def Lib_BPCS, "GCA", Indices
    Indices = "CLCMPY, PCNTR"
    Tabla_Def Lib_BPCS, "RCL", Indices
    Indices = "GCMPNY, GPCNTR, GACC"
    Tabla_Def Lib_BPCS, "GGM", Indices
    End Sub
    Private Sub Tabla_Def(Libreria As String, Tabla As String, Indices As String)
    Set NewTd = DB_AS400.CreateTableDef(Libreria & "_" & Tabla)
    NewTd.Connect = "ODBC;DSN=AS400;"
    NewTd.SourceTableName = Libreria & "." & Tabla
    DB_AS400.TableDefs.Append NewTd
    QRYDEF = "CREATE UNIQUE INDEX _uniqueindex ON " & Libreria & "_" &
    Tabla & "(" & Indices & ") WITH PRIMARY;"
    DB_AS400.Execute QRYDEF
    End Sub
    Después de esto, en tu aplicación puedes abrir la base de datos como una base natural de Access, lo cual te acepta todas las instrucciones de VB, como Edit, Delete, Update , entre otras. Así mismo con este codigo no necesitas tener ACCESS instalado en la maquina donde implantaras la aplicacion.
    Fecha: 1-06-1998
  • Utilidad: Convertidor de ficheros de la base de datos del AS/400 a formato DBF y viceversa. Permite incluso crear las DDS.
    Remitida por: Josep Sánchez.
    Fecha: 28-05-1998
    No existen intrucciones de instalación aunque si se lee el fuente, se entenderá perfectamente su funcionamiento.
  • Utilidad: CRTOVRRPG.
    Creada por: Blas González
    Permite compilar un programa RPG en el que se han incluido directivas del tipo:
    H* // OVRDBF FILE(FICHERO1) TOFILE(FICHERO2)
    H* // CRTPF FILE(QTEMP/WORKFILE)
    Fecha: 11-03-1998
    Formato del fichero: .ZIP
    Tamaño: 4Kb
    Intrucciones de instalación en el fichero LEEME.TXT después de la extracción.
  • Utilidad: CHKUSRAUT.
    Creada por: Blas González
    Este programa muestra la utilización de la API QSYCUSRS desde un programa ILE RPG, que nos permite chequear si un usuario posee alguna autorización determinada desde un programa RPG. En el ejemplo se muestra un caso sencillo, donde se chequea solo una autorización para el usuario que ejecute este programa, aunque esta API permite verificar hasta ocho autorizaciones de forma simultanea (moverlas al campo @SPCAUT y especificar en el campo @NBRAUT cuantas se validan).
    Fecha: 18-03-1998
    Formato del fichero: .ZIP
    Tamaño: 2Kb
    Intrucciones de instalación en el fichero LEEME.HTML después de la extracción.
  • Utilidad: SFLPIE.
    Creada por: Blas González
    Pequeña subrutina para incluir mediante /COPY, que te permite incluir pies de pagina de multiples lineas en los programas RPG mediante un pequeño subarchivo. Es util cuando tienes muchos formatos de pantalla y subarchivos en un mismo programa.
    Fecha: 21-03-1998
    Formato del fichero: .ZIP
    Tamaño: 3Kb
    Intrucciones de instalación en el fichero SFLPIE.HTML después de la extracción.
  • Utilidad: CVTSPLHTML.
    Creada por: Roberto Pérez
    Programa de ejemplo en RPG ILE para convertir ficheros de spool en ficheros HTML.
    Fecha: 08-04-1998
    Formato del fichero: .ZIP
    Tamaño: 1,5Kb
  • Utilidad: VERSPL.
    Creada por: Blas González
    Este programa muestra una lista de los ficheros de spool del usuario, y opcionalmente permite seleccionar un archivo de spool, cuya identificación es devuelta al programa llamador mediante parámetros.
    Fecha: 11-04-1998
    Formato del fichero: .ZIP
    Tamaño: 6Kb
    Intrucciones de instalación en el fichero VERSPL.HTML después de la extracción.
  • Utilidad: ENVMSG.
    Creada por: Blas González
    Ejemplo de envio de mensajes de *BREAK a un usuario, utilizando el programa QEZSNDMG.
    Fecha: 19-04-1998
    Formato del fichero: .RPG
    Tamaño: 4Kb
  • Truco que permite pre-visualizar por pantalla listados desde la aplicación que los generó:
    Formato del fichero: .TXT
    Tamaño: 1Kb
  • Utilidad que nos permite convertir números a letras. Óptima para emitir cheques, talones.
    Creada por Raúl Báscones.
    Formato del fichero .TXT
    Tamaño 3 kb.
  • Utilidad para reorganizar todos los ficheros de una librería
    Creada por Carlos Veza
    Formato del fichero .ZIP
    Tamaño 2 kb.
  • Fichero de códigos de entidades bancarias españolas.
    Formato del fichero .TXT
    Tamaño 5 kb.
  • Utilidad para recuperar el fuente de un programa COBOL a través del listado de compilación
    Creada por Isan Martinez.
  • Utilidad: LSTSPLPF.
    Creada por: Blas González
    Utilidad que permite imprimir nuevamente los ficheros de spool que se hayan copiado con
    CPYSPLF FILE(PEDIDO) TOFILE(SPLPF) CTLCHAR(*PRTCTL)
    a un fichero PF, respetando los saltos de página y espaciados entre lineas del fichero original.
    Se pierden los atributos de negrilla, subrayado y CPI.
    Fecha: 24-06-1999
    Formato del fichero: .ZIP
    Tamaño: 1Kb
  • Utilidad para enviar mensajes a la cola de mensajes desde un programa COBOL
    WORKING-STORAGE SECTION.
    *-------------------------------------------------------------------*
    * Variables are defined in order to send message to the *SYSOPR  *
    *-------------------------------------------------------------------*
    01  PROGRAM-VARIABLES.
          05 CL-CMD      PIC X(103) VALUE
               "SNDMSG MSG('Hola! este es mi mensaje')
    -         "TOUSR(*SYSOPR)".
         05 PACK-VAL    PIC 9(10)V9(5) COMP-3 VALUE 88.
    PROCEDURE DIVISION.
             CALL "QCMDEXC" USING CL-CMD PACK-VAL.
    Creada por Isan Martinez.
  • Juan Ramón García, nos envia una serie de programa para trabajar con fechas
    BDPG03 - Comprueba si una fecha es correcta
    BDPG07 - Calcula una nueva fecha sumando días a otra fecha
    BDPG08 - Calcula una nueva fecha restando días a otra fecha
    BDPG10 - Calcula cuantos días de diferencia hay entre dos fechas.
    EJEMPLO - Un ejemplo para calcular que fecha es el siguiente Sábado.

    Todos los programas pueden recibir la fecha en formato de 6 u 8 dígitos, para saber cómo se la estamos enviando hay que especificar el formato de la fecha que enviamos, dicho formato puede ser (leer · como espacio en blanco):

    - DMAA día-mes-año a 8 dígitos
    - AAMD año-mes-día a 8 dígitos
    - MDAA mes-día-año a 8 dígitos
    - DMA· día-mes-año a 6 dígitos ajustado a la izquierda
    - AMD· año-mes-día a 6 dígitos ajustado a la izquierda
    - MDA· mes-día-año a 6 dígitos ajustado a la izquierda
    - ·DMA día-mes-año a 6 dígitos ajustado a la derecha
    - ·AMD año-mes-día a 6 dígitos ajustado a la derecha
    - ·MDA mes-día-año a 6 dígitos ajustado a la derecha

    Los programas que devuelven fechas siempre lo hacen devolviendo 3 campos, día, mes y año (a 4 dígitos) para que el programa llamador se lo monte (con una DS) en el formato que más le convenga.
    Todas las conversiones de años de 2 a 4 dígitos se basan en una "ventana" desde el año 1951 al 2050.
    Al pasar los fuentes al PC la Ñ (eñe) se ha convertido en un símbolo extraño (creo que es el símbolo del yen), supongo que debe ser normal, la verdad es que los PC's me tienen un poco de manía (será porque soy de la vieja escuela).
    Creada por Juan Ramón García

  • Utilidad SNDNETPGM
    El Comando SNDNETPGM Genera un SAVF con todos los programas a enviar y lo envia al equipo destino.
    -El Comando RCVNETPGM Recibir el SAVF y restaurar los programas en el equipo destino. Como te dije antes tu puedes adaptarlo para que RCVNETPGM se genere remotamente, para que envie mas programas y/o a mas equipos, tambien para trasmitir por FTP, etc. NOTA.
    Te vas a encontrar con el Programa RSTIMMED que es el de restauracion que aplica una seguridad especifica de mi 400 (Seguridad adoptada). Si no la utilizas, comentale las lineas y compila. Debes crear Colas de Distribucion en el as400 (DSTQ) si en linea de comando le das GO CMDDSTQ te puedes ayudar o pregunta en el foro. Tambien tienes que crear Entradas al Directorio de Distribucion en el AS400 (DIRE) si en linea de comando le das GO CMDDIRE te ayudas.
    Creada por Robert Torres
    Tamaño:9kb
  • Utilidad que nos permite saber el número de la semana que es
    Creada por Juan Ramón García
    Formato del fichero:TXT
    Tamaño:4 kb.
  • Utilidad que nos permite saber el día se la semana (lunes,martes...) que es
    Creada por Juan Francisco Matoses
    Formato del fichero: RPG
    Tamaño:5 kb.
  • Programas para enviar y recibir ficheros vía FTP
    Creada por Rufino Cáceres
    Formato del fichero: ZIP
    Tamaño:3 kb.
  • Utilidad para colorear las líneas del SEU
    Creada por Francisco Prieto
    Formato del fichero: ZIP
    Tamaño:44 kb.
  • Utilidad. Calendario
    Creada por Juan Matoses Cuquerella
    Formato del fichero: ARJ
    Tamaño:13 kb.
  • Utilidad. Savlstlib
    Permite salvar la lista de biblioteca antes de ejecutar un programa
    Ejecutar el programa con una nueva lista de bibliotecas
    Restaurar la lista de biblioteca previamente salvada
    Creada por Juan Matoses Cuquerella
    Formato del fichero: ZIP
    Tamaño:2 kb.
  • Utilidad ADRESSIP
    Permite recuperar dirección IP de un PC conectado al AS/400
    Creada por Albert Puig
  • Utilidad para convertir fechas a literales
    Creada por Fernado Nuñez
    Formato del fichero: ARJ
    Tamaño:1 kb.
  • CL para recuperar el número de trabajo activos en un subsistema
  • Utilidad para ejecutar un mandato desde otra pantalla
  • Utilidad CPYSRCTOPC. Copia miembros fuente de un archivo a varios archivos ANSI, ubicados en un directorio del AS/400
  • La utilidad WRKPF  permite trabajar con uno o varios ficheros físicos con diferentes opciones (QRY, DFU, copiar, ver definición de campos, copiar a carpetas).
  • Utilidad BTTSPC para visualizar el contenido de un espacio de usuario
  • Transforma una cifra en letras (en portugués) 
    30-01-2001
  • Transforma una cifra en letras (en inglés) 
    30-01-2001
  • La utilidad SPL2STMF convierte archivos de spool con preformatos a ficheros TIFF.
    26-03-2001
  • TIFF2PDF puede convertir archivos TIFF a PDF.
    26-03-2001
  • Rutina de validación del dígito de control de entidades bancarias
    29-03-2001
  • Envio de correo avanzado en AS/400
    06-04-2001
  • Comando EDTDTAARA para edittar editar un área de datos.
    10-04-2001
  • Códigos postales para España
    08-05-2001
  • Utilidad para identar fuentes ILE RPG
    26-06-2001
  • Utilidad desarrollada en Visual Basic para convertir fechas julianas a gregorianas
    14-07-2001
  • Utilidad para convertir ficheros físicos en DBASE en una carpeta
    18-07-2001
  • Utilidad para buscar menues en una biblioteca
    10-08-2001
  • Utilidad para copiar ficheros del AS/400 a un directorio PC con Client Access
    18-09-2001
  • Conversor de Euros. Adaptado para Client Access. Convierte, intuitivamente, a Euros o Pesetas. 
    05-11-2001
  • Conversor de Euros. UEuro  captura los datos presentes en una pantalla de emulación (IBM Client Access  /  IBM   Personal  Communications).
    05-11-2001
  • CL para controlar el proceso de backup diario
    07-11-2001
  • Función desarrollada en VB para convertir fechas julianas a gregorianas y viceversa
    14-11-2001
  • Programa en RPG para convertir el formato de fecha de juliana a gregoriana
    04-12-2001
  • Utilidad para convertir spool a base de datos y volver a utilizarlo posteriormente
    07-01-2002
  • Utilidad para cambiar masivamente el propietario de objetos
    07-01-2002
  • Funcion de redondeo en sql para versiones anteriores a la V4R5
    07-01-2002
  • Ver los usuarios conectados por odbc que normalmente se ven en el WRKACTJOB como QZDASOINT
    16-01-2002
  • Utilidad para colorear los fuentes RPG
    24-01-2002
  • Utilidad para recuperar variables de entorno
    30-01-2002
  • Utilidad  para impedir la reutilizacion de conexiones ODBC en el AS400
    12-03-2002
  • Utilidad FTPLNK. Transfiere archivos entre una carpeta del IFS o de la QDLS del sistema y carpetas de otros sistemas y/o sistemas operativos por medio de FTP
    12-04-2002
  • Utilidad ANZLIB analiza el tamaño de una biblioteca
    22-04-2002
  • Interface XML para RPG. V5R1 o superior
    10-05-2002
  • Utilidad DRTOBJLCK. Ver en tiempo real el estado del bloqueo de los 52 ficheros más utilizados de una biblioteca
    22-05-2002
  • Utilidad RTVJOBSTS. Utiliza un API para recuperar si un trabajo está activo
    08-07-2002
  • Utilidades SAVSPLF y RSTSPLF
    La utilidad consiste en un par de comandos, un grupo de programas y un archivo de pantalla que permiten salvar a cinta y restaurar los archivos de spool seleccionados
    30-08-2002
  • Utilidad para visualizar ficheros PC desde un cl de AS400
    16-12-2002
  • Utilidad para convertir ficheros de spool a html
    09-01-2003
  • Códigos de los municipos de España 190 Kb
    13-01-2003
  • Utilidad EXECSQL (en forma de mandato) que permite ejecutar sentencias SQL desde un programa CL sin necesidad de hacer uso de RUNSQLSTM.
    10-04-2003
  • Utilidad CMPF para comparar ficheros físicos
    22-04-2003
  • Comando DSPDTAQ (que antes estaba en la QUSRTOOL) que sirve para ver el contenido de colas de datos
    02-07-2003
  • Aplicación en JAVA para enviar datos del AS400 a SQL Server.
    02-07-2003
  • Utilidad para visualizar spools y enviarlos por e-mail.
    16-07-2003
  • Fichero en formato XLS con los códigos de Municipios de España completado con códigos postales de España Códigos municipios y códigos postales España 1,46 Mb
    23-10-2003
  • Mandato WRTSRC permite añadir una sentencia fuente en un miembro de archivo fuente. El registro entero puede ser insertado o actualizado. Se puede también especificar posiciones para facilitar el trabajo con lenguajes en formato fijo (como RPG o DDS).
    09-02-2004
  • Utilidad ZCOPCHKCMD. Permite comprobar rapidamente como han ido las copias de seguridad.
    16-03-2004
  • Utilidad SELFEC que permite, a través de un calendario en una window seleccionar una fecha y devolvérsela al programa llamador en formato CCAAMMDD.
    05-04-2004
  • Utilidad para identar programas fuentes
    15-08-2004
  • La utilidad CRTCMDPGM permite insertar en un programa fuente líneas de comentario con mandatos que deben ejecutarse antes de compilar el citado fuente
    16-09-2004
  • SCHINSRC
    Buscador de una cadena de caracteres dentro de los miembros fuente
    Noviembre 2004
  • CHKSPLF (comprobar archivo en spool)
    Este comando tiene por finalidad comprobar si existe en disco un archivo en spool de un trabajo determinado.
    Noviembre 2004
  • Envia consulta de SQL formada por una formula
    Diciembre 2004
  • CHGSTSJRN. Permite Parar, Arrancar y Parar/Arrancar el registro por diario de todos los archivos físicos de una biblioteca
    Enero 2005
  • Envío de múltiples mensajes. con parámetros de sustitución a la línea 24 con SFLMSG.
    Febrero 2005
  • Ejecutar funciones sql en CL
    Febrero 2005
  • Cintoteca. Backup de las bibliotecas de aplicaciones
    Febrero 2005
  • La utilidad RTVACTJOB permite recuperar el número de trabajos activos de un subsistema.
    Mayo 2005
  • Utilidad CRTDUPLIB, permite duplicar objetos y/o bibliotecas.
    Julio 2005
  • Utilidad SCHFLD, permite buscar una variable indicando si solamente nos interesan aquellos miembros que la utilizan como receptora de la información o si es la que la provee
    Octubre 2005
  • Utilidad DLTOLDSPLF
    Permite borrar archivos de spool de forma selectiva, por usuario, cola de salida, hasta una fecha, etc.
    Octubre 2005
  • Utilidad RTVJOBSTS
    Esta utilidad consiste en dos mandatos que pueden incluirse en un programa CL para identificar y controlar los trabajos sometidos por él mismo.
    Como son mandatos que devuelven valores en variables pasadas como parámetros no pueden utilizarse desde la línea de comandos; solo pueden utilizarse dentro de un programa, normalmente, un CL.
    Pueden usarse conjunta o independientemente, uno para identificar el trabajo sometido y otro para determinar su estado y actuar en función del mismo.
    Octubre 2006
  • Programa AS/400 Consultas SQL
    AS/400 Consultas permite ejecutar una instrucción SELECT de SQL y el conjunto de datos resultante lo aloja en una trama de datos desde donde se puede manipular.
    Octubre 2006
  • Utilidad creada en Delphi para backup de bibliotecas
    Octubre 2006
  • Utilidad WMSG para manejar textos en ficheros de mensajes cuando necesitamos desarrollar pantallas multiidiomas

 

NUESTRA COMUNIDAD EN
ÚNETE Y.... ¡¡ PARTICIPA !!
Dossiers técnicos iSeries y AS400
- Seguridad
- Alta disponibilidad.
Nuestros links favoritos
- Tendencias tecnologías de la información
Expertos en tecnologías de la información, nos dan su punto de vista sobre las tendencias actuales y futuras
- Los últimos anuncios sobre hardware-software para iSeries AS400 realizados por IBM
- Freeware y shareware para el iSeries AS400
- Utilidades para el iSeries AS400 realizadas por profesionales
- Documentos. Trucos e ideas para resolver tus problemas
- Los manuales y links más interesantes del iSeries AS400

  Links patrocinados
  •  
  •  

[ Soy nuevo |   Profesionales |   AS qué |   Empresas |    Foros |   Recomiéndanos |    Productos ]
 
Recursos iSeries AS400. Es una web de: PUBLICACIONES HELP400, S.L. CIF:B-60-202827 Gran Vía de les Corts Catalanes, núm. 715, Entresuelo – 3ª - Barcelona - Tel.+34.932.310.049