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
|
