¿ 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

Documentos
Utilizar una "user exit" para control de transferencias (CA400 y Excel) y programas ODBC.

Se trata de utilizar una "user exit" para control de transferencias (CA400 y Excel) y programas ODBC. 
Llamar al comando WRKREGINF y pulsar opción 8. 
En la entrada. QIBM_QZDA_SQL1 ZDAQ0100 *YES Servidor de base de datos - A Añadir el programa y librería escrito por nosotros. 
En nuestro ejemplo AXCI000 Este programa tiene 2 parámetros de invocación: 
El primero de 1 byte de longitud Autoriza "1" o Rechaza "0" la transferencia. 
El segundo contiene una estructura con los datos que nos interesa así obtenemos el userid y la sentencia SQL (SELECT * FROM LIB/FILE etc etc) La exit actúa para todos los transfers desde y hasta PC y por cada registro ODBC. 
Este es el fuente CL del programa AXCI000 de ejemplo que seguro abre la imaginación a mas de uno.
PGM PARM(&P1 &P2) DCL VAR(&P1) TYPE(*CHAR) LEN(1) DCL VAR(&P2) TYPE(*CHAR) LEN(512) SNDUSRMSG MSG('P-1=' *CAT &P1 *CAT ' P-2=' *CAT &P2) MSGTYPE(*INFO)TOUSR(QSYSOPR) ENDPGM

Ejemplo enviado por Josep Cantos

19-06-2001

Comentarios de usuarios

Nombre:
Mail:
Comentario:
 

Subir a la parte superior de la web

 

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