te envio los mios, como veras el primero llama al segundo, para poder modificarlo sin
problemas.
En el segundo controlo un grupo para acceso total. Y permito solo accesos a
direcciones completas, no dejo navegar de carpeta en carpeta. Espero que te sirvan.
/*------------------------------------------------------------------*/
/* Description . . . : This is the exit point program for */
/* FTP */
/*------------------------------------------------------------------*/
PGM PARM(&OKAY &REQUEST)
/*--------------------------------------------------------*/
/* declaration */
/*--------------------------------------------------------*/
DCL VAR(&OKAY) TYPE(*CHAR) LEN(1)
DCL VAR(&REQUEST) TYPE(*CHAR) LEN(341)
/*--------------------------------------------------------*/
/*okey --------------------------------------*/
/*--------------------------------------------------------*/
CHGVAR VAR(&OKAY) VALUE('1')
CALL PGM(EXITFSERV1) PARM(&OKAY &REQUEST)
MONMSG MSGID(CPF0000)
/*--------------------------------------------------------*/
FIN: ENDPGM
/*------------------------------------------------------------------*/
/* Description . . . : This is the exit point program for */
/* EXITFSERV1 FTP */
/*------------------------------------------------------------------*/
PGM PARM(&OKAY &REQUEST)
/*--------------------------------------------------------*/
/* declaration */
/*--------------------------------------------------------*/
DCL VAR(&OKAY) TYPE(*CHAR) LEN(1)
DCL VAR(&REQUEST) TYPE(*CHAR) LEN(341)
DCL VAR(&P5) TYPE(*char) LEN(4)
DCL VAR(&P6) TYPE(*char) LEN(4)
DCL VAR(&P7) TYPE(*char) LEN(300)
DCL VAR(&TEXT) TYPE(*CHAR) LEN(512)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCL VAR(&SVRID) TYPE(*CHAR) LEN(10)
DCL VAR(&FORMAT) TYPE(*CHAR) LEN(8)
DCL VAR(&FUNC) TYPE(*CHAR) LEN(4)
DCL VAR(&FUNCi) TYPE(*CHAR) LEN(4)
DCL VAR(&READ) TYPE(*CHAR) LEN(4)
DCL VAR(&FILE) TYPE(*CHAR) LEN(300)
DCL VAR(&FILE1) TYPE(*CHAR) LEN(300)
DCL VAR(&D) TYPE(*DEC) LEN(8 0)
DCL VAR(&GRUP) TYPE(*CHAR) LEN(10)
MONMSG MSGID(CPF9999) EXEC(GOTO CMDLBL(FIN))
/*--------------------------------------------------------*/
/*usuario --------------------------------------*/
/*--------------------------------------------------------*/
CHGVAR VAR(&USER) VALUE(%SST(&REQUEST 1 10))
/*--------------------------------------------------------*/
/*identificador servidor ---------------------------------*/
/*--------------------------------------------------------*/
CHGVAR VAR(&SVRID) VALUE(%SST(&REQUEST 11 10))
/*--------------------------------------------------------*/
/*funcion ---------------------------------*/
/*--------------------------------------------------------*/
CHGVAR VAR(&P5) VALUE(%SST(&REQUEST 21 4))
CHGVAR VAR(&D) VALUE(%BINARY(&P5))
IF COND(&D = 0) THEN(CHGVAR VAR(&FUNCI) +
VALUE('CHFL'))
IF COND(&D = 1) THEN(CHGVAR VAR(&FUNCI) +
VALUE('CRSF'))
IF COND(&D = 2) THEN(CHGVAR VAR(&FUNCI) +
VALUE('DLFD'))
IF COND(&D = 3) THEN(CHGVAR VAR(&FUNCI) +
VALUE('LIST'))
IF COND(&D = 4) THEN(CHGVAR VAR(&FUNCI) +
VALUE('MOVE'))
IF COND(&D = 5) THEN(CHGVAR VAR(&FUNCI) +
VALUE('OPEN'))
IF COND(&D = 6) THEN(CHGVAR VAR(&FUNCI) +
VALUE('RENA'))
IF COND(&D = 7) THEN(CHGVAR VAR(&FUNCI) +
VALUE('ALLO'))
CHGVAR VAR(&func) VALUE(&D)
/*--------------------------------------------------------*/
/*formato ---------------------------------*/
/*--------------------------------------------------------*/
CHGVAR VAR(&FORMAT) VALUE(%SST(&REQUEST 25 8))
/*--------------------------------------------------------*/
/*read acces --------------------------------------*/
/*--------------------------------------------------------*/
CHGVAR VAR(&READ) VALUE(%SST(&REQUEST 33 4))
/*--------------------------------------------------------*/
/*file name --------------------------------------*/
/*--------------------------------------------------------*/
CHGVAR VAR(&P7) VALUE(%SST(&REQUEST 41 300))
CHGVAR VAR(&P6) VALUE(%SST(&REQUEST 37 4))
CHGVAR VAR(&D) VALUE(%BINARY(&P6))
CHGVAR VAR(&OKAY) VALUE('1')
IF COND(&D > 0) THEN(DO)
CHGVAR VAR(&FILE) VALUE(%SST(&P7 1 &D))
/*--------------------------------------------------------*/
/*okey --------------------------------------*/
/*--------------------------------------------------------*/
RTVUSRPRF USRPRF(&USER) GRPPRF(&GRUP)
MONMSG MSGID(CPF0000) EXEC(CHGVAR VAR(&GRUP) +
VALUE('FALSO'))
IF COND(&GRUP *NE 'INFORMATI') THEN(DO)
CALL PGM(EXITCONV) PARM(&FILE &file1)
IF COND((%SST(&FILE1 1 15) *NE +
'\usrp\informes\') *AND (%SST(&FILE1 1 +
29) *NE '\QIBM\ProdData\CA400\Express\') +
*AND (%SST(&FILE1 1 13) *NE +
'\QCA400\Win32')) THEN(DO)
CHGVAR VAR(&TEXT) VALUE('Exit ser usuario ' *CAT +
&USER *CAT ' id ' *CAT &SVRID *CAT ' func +
' *CAT &FUNC *CAT ' ' *CAT &FUNCI *CAT ' +
format ' *CAT &FORMAT *CAT ' f. acces ' +
*CAT &READ)
SNDBRKMSG MSG(&TEXT) TOMSGQ(QPADEVPIN2)
MONMSG MSGID(CPF0000)
SNDBRKMSG MSG(&fILE1) TOMSGQ(QPADEVPIN2)
MONMSG MSGID(CPF0000)
CALL PGM(AUEXIT) PARM('SERVR1' &TEXT)
CHGVAR VAR(&TEXT) VALUE(&FILE1)
CALL PGM(AUEXIT) PARM('SERVR1' &TEXT)
CHGVAR VAR(&OKAY) VALUE('0')
ENDDO
ENDDO
ENDDO
ELSE CMD(DO)
CHGVAR VAR(&FILE) VALUE('*')
ENDDO
/*--------------------------------------------------------*/
FIN: ENDPGM
Trabajar con Programas de Salida
Punto de salida: QIBM_QPWFS_FILE_SERV Formato: PWFS0100
Teclee opciones, pulse Intro.
1=A�adir 4=Eliminar 5=Visualizar 10=Sustituir
N�mero
Programa Programa
Opc Salida Salida Biblioteca
1 EXITFSERV QSYS
Pedro Pinedo
Analista-Programador
Amcor Flexibles Europa Tobepal Logro�o
(Espa�a)
[EMAIL PROTECTED]
> -----Mensaje original-----
> De: Andoni (Infonegocio) [SMTP:[EMAIL PROTECTED]]
> Enviado el: mi�rcoles, 27 de noviembre de 2002 10:46
> Para: Foro AS/400
> Asunto: Exit Program para Netbios
>
>
> Saludos:
> Supongo que ser� para netbios el exit program que busco, os cuento, ayer desde casa
>accedi desde el explorador a una carpeta del AS400, quisiera poder controlar estos
>accesos desde fuera de la red local.
>
> �Alguien tiene alg�n exit program para poder saber la IP que me entra a la qdls del
>400?.
>
> Gracias.
> --
> Andoni <[EMAIL PROTECTED]>
>
>
> _____________________________________________________
> 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, env> �a el mensaje resultante de pulsar
> mailto:[EMAIL PROTECTED]?body=AVE
_____________________________________________________________________
AMCOR FLEXIBLES EUROPE - 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 EUROPE immediately. Any views expressed in this message
are those of the individual sender and may not necessarily reflect the views of AMCOR
FLEXIBLES EUROPE.
_____________________________________________________
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, env�a el mensaje resultante de pulsar
mailto:[EMAIL PROTECTED]?body=LEAVE
