Los Ftp's y otros los controlo con exit point, direcctamente,
porque el usuario que tiene acceso por ftp pertenece a un grupo. El
problema para mi, y creo que para otros es que el usuario que tiene
permiso para conectarse por ODBC desde una aplicacion cliente servidor
(programada por ti) , no puedes controlar que acceda desde otra aplicacion
a los mismos datos.
mi exit point de FTP
Punto de salida: QIBM_QTMF_SVR_LOGON Formato: TCPL0100
Teclee opciones, pulse Intro.
1=Añadir 4=Eliminar 5=Visualizar 10=Sustituir
Número
Programa Programa
Opc Salida Salida Biblioteca
1 EXITFTP QSYS
/*------------------------------------------------------------------*/
/* Description . . . : This is the exit point program for */
/* FTP */
/*------------------------------------------------------------------*/
PGM PARM(&APP &P2 &P3 &P4 &P5 &P6 &P7 &P8 &P9 +
&P10 &P11)
/*--------------------------------------------------------*/
/* declaration */
/*--------------------------------------------------------*/
DCL VAR(&APP) TYPE(*char) LEN(4)
DCL VAR(&P2) TYPE(*char) LEN(10)
DCL VAR(&P3) TYPE(*char) LEN(4)
DCL VAR(&P4) TYPE(*char) LEN(10)
DCL VAR(&P5) TYPE(*char) LEN(4)
DCL VAR(&P6) TYPE(*char) LEN(15)
DCL VAR(&P7) TYPE(*char) LEN(4)
DCL VAR(&P8) TYPE(*char) LEN(4)
DCL VAR(&P9) TYPE(*char) LEN(10)
DCL VAR(&P10) TYPE(*char) LEN(10)
DCL VAR(&P11) TYPE(*char) LEN(10)
DCL VAR(&text) TYPE(*CHAR) LEN(150)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCL VAR(&GRUP) TYPE(*CHAR) LEN(10)
DCL VAR(&APPLICATIO) TYPE(*DEC) LEN(4 0)
DCL VAR(&AUTHENTICA) TYPE(*CHAR) LEN(10)
DCL VAR(&IP) TYPE(*CHAR) LEN(15)
DCL VAR(&d) TYPE(*dec) LEN(8 0)
DCL VAR(&c) TYPE(*char) LEN(4)
CALL PGM(EXITFTP1) PARM(&APP &P2 &P3 &P4 &P5 &P6 +
&P7 &P8 &P9 &P10 &P11)
/*--------------------------------------------------------*/
END: ENDPGM
*************** Principio de datos ***********************************
/*------------------------------------------------------------------*/
/* Description . . . : This is the exit point program for */
/* FTP */
/*------------------------------------------------------------------*/
PGM PARM(&APP &P2 &P3 &P4 &P5 &P6 &P7 &P8 &P9 +
&P10 &P11)
/*--------------------------------------------------------*/
/* declaration */
/*--------------------------------------------------------*/
DCL VAR(&APP) TYPE(*char) LEN(4)
DCL VAR(&P2) TYPE(*char) LEN(10)
DCL VAR(&P3) TYPE(*char) LEN(4)
DCL VAR(&P4) TYPE(*char) LEN(10)
DCL VAR(&P5) TYPE(*char) LEN(4)
DCL VAR(&P6) TYPE(*char) LEN(15)
DCL VAR(&P7) TYPE(*char) LEN(4)
DCL VAR(&P8) TYPE(*char) LEN(4)
DCL VAR(&P9) TYPE(*char) LEN(10)
DCL VAR(&P10) TYPE(*char) LEN(10)
DCL VAR(&P11) TYPE(*char) LEN(10)
DCL VAR(&text) TYPE(*CHAR) LEN(150)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCL VAR(&GRUP) TYPE(*CHAR) LEN(10)
DCL VAR(&GRU5) TYPE(*CHAR) LEN(5)
DCL VAR(&APPLICATIO) TYPE(*DEC) LEN(4 0)
DCL VAR(&AUTHENTICA) TYPE(*CHAR) LEN(10)
DCL VAR(&IP) TYPE(*CHAR) LEN(15)
DCL VAR(&d) TYPE(*dec) LEN(8 0)
DCL VAR(&c) TYPE(*char) LEN(4)
/*--------------------------------------------------------*/
/*--------------------------------------------------------*/
CHGVAR VAR(&APPLICATIO) VALUE(%BINARY(&APP))
/*--------------------------------------------------------*/
/*usuario --------------------------------------*/
/*--------------------------------------------------------*/
CHGVAR VAR(&user) VALUE(' ')
CHGVAR VAR(&d) VALUE(%BINARY(&p3))
IF COND(&D > 0) THEN(DO)
CHGVAR VAR(&USER) VALUE(%SST(&P2 1 &D))
MONMSG MSGID(CPF0000) EXEC(CHGVAR VAR(&USER) +
VALUE('ERROR'))
ENDDO
/*--------------------------------------------------------*/
/*contraseña --------------------------------------*/
/*--------------------------------------------------------*/
CHGVAR VAR(&AUTHENTICA) VALUE(' ')
CHGVAR VAR(&d) VALUE(%BINARY(&p5))
IF COND(&D > 0) THEN(DO)
CHGVAR VAR(&AUTHENTICA) VALUE(%SST(&P4 1 &D))
ENDDO
/*--------------------------------------------------------*/
/*ip --------------------------------------*/
/*--------------------------------------------------------*/
CHGVAR VAR(&ip) VALUE(' ')
CHGVAR VAR(&d) VALUE(%BINARY(&p7))
IF COND(&D > 0) THEN(DO)
CHGVAR VAR(&IP) VALUE(%SST(&P6 1 &D))
ENDDO
/*--------------------------------------------------------*/
/*okey --------------------------------------*/
/*--------------------------------------------------------*/
CHGVAR VAR(%BINARY(&C)) VALUE(1)
RTVUSRPRF USRPRF(&USER) GRPPRF(&GRUP)
MONMSG MSGID(CPF0000) EXEC(CHGVAR VAR(&GRUP) +
VALUE('FALSO'))
CHGVAR VAR(&GRU5) VALUE(%SST(&GRUP 1 5))
IF COND((&GRU5 *NE 'INFOR') *AND (&USER *NE +
'QSECOFR')) THEN(DO)
CHGVAR VAR(&TEXT) VALUE('Exit ftp usuario ' *CAT +
&USER)
SNDBRKMSG MSG(&TEXT) TOMSGQ(QPADEVPIN2)
MONMSG MSGID(CPF0000)
CHGVAR VAR(&TEXT) VALUE('Exit ftp contrase ' *CAT +
&AUTHENTICA)
SNDBRKMSG MSG(&TEXT) TOMSGQ(QPADEVPIN2)
MONMSG MSGID(CPF0000)
CHGVAR VAR(&TEXT) VALUE('Exit ftp IP ' *CAT +
&ip)
SNDBRKMSG MSG(&TEXT) TOMSGQ(QPADEVPIN2)
MONMSG MSGID(CPF0000)
CHGVAR VAR(&TEXT) VALUE('Exit ftp grupo ' *CAT &GRUP)
SNDBRKMSG MSG(&TEXT) TOMSGQ(QPADEVPIN2)
MONMSG MSGID(CPF0000)
CHGVAR VAR(%BINARY(&C)) VALUE(0)
ENDDO
CHGVAR VAR(&p8) VALUE(&C)
CHGVAR VAR(&p9) VALUE(&USER)
CHGVAR VAR(&p10) VALUE(&AUTHENTICA)
CHGVAR VAR(&p11) VALUE(' ')
/*--------------------------------------------------------*/
END: ENDPGM
Pedro Pinedo Hernandez: Analista-Programador
Grupo Amcor Flexibles Hispania S.L.
Departamento de Informática / IT Department
tfno.:+34 941 28 60 90 - 941 03 01 39
fax: +34 941 20 75 43
Avd. Burgos 67-95
26006 Logroño Spain
[EMAIL PROTECTED]
(quitar nospam del dominio, para enviar)
_______________________________________________
AMCOR FLEXIBLES - LEADING THROUGH INNOVATION
_______________________________________________
CAUTION - This message may contain privileged and confidential information
intended only for the use of the addressee named above. If you are not the
intended recipient of this message you are hereby notified that any use,
dissemination, distribution or reproduction of this message is prohibited. If
you have received this message in error please notify AMCOR FLEXIBLES
immediately. Any views expressed in this message are those of the individual
sender and may not necessarily reflect the views of AMCOR FLEXIBLES.
__________________________________________________
Forum.HELP400 es un servicio más de NEWS/400.
© Publicaciones Help400, S.L. - Todos los derechos reservados
http://www.help400.es
_____________________________________________________
Para darte de baja visita la siguente URL:
http://listas.combios.es/mailman/listinfo/forum.help400
