|
 |
 |
- 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
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
|
| ¿Buscas trabajo ? | | Inscríbete en nuestra lista laboral y recibirás las ofertas de trabajo en tu buzón de correo electrónico. |
|
|
¿Tienes algún truco que quieras compartir con todos
los profesionales de Recursos iSeries AS400?.
Envianoslo y si resulta seleccionado
te enviaremos un vale de Amazon por valor de 50$.
Todos los trucos y documentos recibidos serán publicados.
|
|
