Sergi:
Las transferencias de Client Access no van por DDM, o sea que no te
pasan por el programa EXIT1A.
Estas peticiones entar por "Acceso petici�n Cliente" que para
activarlos hay que cambiar CHGNETA PCSACC(*REGFAC), que ya lo tienes,
esto activa los programas de salida que esten definidos en los exit
point (WRKREGINF).
En el Client Access antiguo van por QIBM_QTF_TRANSFER, hay le definias
el programa de salida y permites o no el accesso. Te paso un programa ,
como ejemplo, que no permitia subir ficheros a una biblioteca.
Saludos.
Marti Riera
----- Mensaje Original -----
De: [EMAIL PROTECTED]
Fecha: Lunes, Febrero 17, 2003 3:19 pm
Asunto: Re: Programa de salida DDM/DRDA
> Hola Marti, siento no poder ayudarte en este tema, es m�s... te
> escribo
> para solicitar ayuda!!!
>
> Hace un par de semanas que estoy intentando justo lo que a ti te
> funciona,
> controlar los accesos por transferencia de archivos de Client
> Acces
> (entiendo que es por DDM), pero no soy capaz de hacer que
> funcione. Lo he
> probado de distintas maneras pero no tira. Me he creado un exit
> program,
> basandome en algunos manuales y, para provar en plan cutre si
> funcionaba,
> he puesto un SNDBRKMSG con el texto "funciona" y ni eso me hace.
> Con lo
> cual presupongo que nisiquiera se llama a mi programa
> (PGMOD2000/EXIT1A).
> Te adjunto una parte del DSPNETA por si ves alguna cosa extra�a.
>
> Visualizar Atributos de Red
> Sistema:
> N�mero m�ximo saltos . . . . . . . . . . . . . . : 16
> Acceso petici�n DDM . . . . . . . . . . . . . . : EXIT1A
> Biblioteca . . . . . . . . . . . . . . . . . . : PGMOD2000
> Acceso petici�n Cliente . . . . . . . . . . . . : *REGFAC
> Tipo de red RDSI por omisi�n . . . . . . . . . . :
> Lista de conexiones RDSI por omisi�n . . . . . . : QDCCNNLANY
> Permitir soporte AnyNet . . . . . . . . . . . . : *NO
> Dominio de servidor de red . . . . . . . . . . . : Sxxxxxxx
> Permitir soporte virtual de APPN . . . . . . . . : *NO
> Permitir soporte de torre de transporte HPR . . : *NO
> L�mite de dispositivo APPC de creaci�n autom�tica
> de controlador virtual . . . . . . . . . . . . : 100
>
> Gracias por avanzado!
>
> Sergi Sitjes
> Resp. Sistemes d'Informaci�
> GENEBRE, S.A.
> E-mail: [EMAIL PROTECTED]
> Web: http://www.genebre.es
> Tel: +34 93 298 80 02
> Fax: +34 93 298 80 07
>
>
>
>
> MRIERAB <[EMAIL PROTECTED]>
> Enviado por: [EMAIL PROTECTED]
> 14/02/2003 12:30
> Por favor, responda a forum.help400
>
>
> Para: [EMAIL PROTECTED]
> cc:
> Asunto: Programa de salida DDM/DRDA
>
>
> Hola Foro:
>
> Estoy realizando pruebas para controlar los accesos por DDM/DRDA
> (DSPNETA parametro ACCDDM) y estoy registrando a fichero todos los
> accesos que me llegan.
>
> Aparentemente me funciona correctamente y puedo
> habilitar/deshabilitar
> el acceso para librerias o ficheros en concreto del sistema, o
> incluso
> desde que sistema de origen; pero lo que no he conseguido es
> controlarlo por usuario debido, a por lo que he podido comprobar
> hasta
> el momento, que en la peticion si me llega desde un DDMF creado
> con
> conexi�n *SNA no recibo el usuario sino QUSER y en cambio si el
> mismo
> DDM esta creado como *IP si recibo el perfil de usuario de origen
> de la
> petici�n.
>
> La verdad que no se me ocurre porque esto es asi ya que en los
> ejemplos
> del Information Center si que controlan por usuario. Sera debido a
> algun parametro de comunicaciones que no he tenido en cuenta?.
> Alguien
> podr�a echarme una mano sobre esto.
>
> Gracias y Saludos
>
> Marti Riera
>
> NO WAR
> NUNCA MAIS
>
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * MRB*/
/* CLIENT ACCESS/400 - USER EXIT PROGRAM FOR TRANSFER FUNCTION */
/* ADAPTED FROM SOFTCOPY CLIENT ACCESS/400 FOR DOS AND OS/2 */
/* TECHNICAL REFERENCE V3R1. */
/*�Adaptaci�n por: Marti Riera Blanc - 09/11/95 - */
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/
PGM PARM(&STATUS &REQUEST)
DCL VAR(&STATUS) TYPE(*CHAR) LEN(1) /* Accept/Reject indicator */
DCL VAR(&REQUEST) TYPE(*CHAR) LEN(2000) /* Parameter structure */
/* Note: Request is declared as *CHAR LEN(2000) because that is */
/* the limit in CL. The actual length of REQUEST is 4171. */
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/
/* */
/* CLIENT ACCESS/400 PARAMETER DECLARES */
/* */
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * **/
/* COMMON DECLARES */
DCL VAR(&USER) TYPE(*CHAR) LEN(10) /* User ID Client Access/400 */
DCL VAR(&APPLIC) TYPE(*CHAR) LEN(10) /* Client Access application */
DCL VAR(&FUNCTN) TYPE(*CHAR) LEN(10) /* Function being performed */
/* TRANSFER FUNCTION DECLARES */
DCL VAR(&TFOBJ) TYPE(*CHAR) LEN(10) /* Object name */
DCL VAR(&TFLIB) TYPE(*CHAR) LEN(10) /* Object library name */
DCL VAR(&TFMBR) TYPE(*CHAR) LEN(10) /* Member name */
DCL VAR(&TFFMT) TYPE(*CHAR) LEN(10) /* Record format name */
DCL VAR(&TFLEN) TYPE(*DEC) LEN(5 0) /* Length of request */
DCL VAR(&TFREQ) TYPE(*CHAR) LEN(1925) /*Transfer request statement*/
/* OTHER DECLARES */
DCL VAR(&WRKLEN) TYPE(*CHAR) LEN(5)
/* EXTRACT THE VARIOUS PARAMETERS FROM THE STRUCTURE */
/* HEADER */
CHGVAR VAR(&USER) VALUE(%SST(&REQUEST 1 10))
CHGVAR VAR(&APPLIC) VALUE(%SST(&REQUEST 11 10))
CHGVAR VAR(&FUNCTN) VALUE(%SST(&REQUEST 21 10))
/* TRANSFER FUNCTION */
CHGVAR VAR(&TFOBJ) VALUE(%SST(&REQUEST 31 10))
CHGVAR VAR(&TFLIB) VALUE(%SST(&REQUEST 41 10))
CHGVAR VAR(&TFMBR) VALUE(%SST(&REQUEST 51 10))
CHGVAR VAR(&TFFMT) VALUE(%SST(&REQUEST 61 10))
CHGVAR VAR(&WRKLEN) VALUE(%SST(&REQUEST 71 5))
CHGVAR VAR(&TFLEN) VALUE(&WRKLEN)
CHGVAR VAR(&TFREQ) VALUE(%SST(&REQUEST 76 1925))
/* INITIALIZE RETURN VALUE TO ACCEPT THE REQUEST */
CHGVAR VAR(&STATUS) VALUE('1')
/* PROCESS BASED ON CLIENT ACCESS/400 APPLICATION FOR TRANSFER FUNCTION */
/* Si la funci�n pide grabar en biblioteca Mylib se deniega el acceso */
IF COND((&FUNCTN *EQ 'REPLACE') *AND (&TFLIB *EQ 'Mylib')) +
THEN(CHGVAR VAR(&STATUS) VALUE('0'))
RETURN
ENDPGM
