Es muy probable que debas tirar y volver a levantar TCP/IP Saludos, Nacho.
-----Mensaje original----- De: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Enviado el: viernes, 31 de enero de 2003 11:52 Para: [EMAIL PROTECTED] Asunto: Exit Program Hola, os adjunto los pasos que he hecho para crear el exit program porque esto no funciona :-( Es que ni me envia el mensaje que le he puesto en plan prueba. Algo debe haber mal, porque parece como que nisiquiera llama al programa. He creado un programa de salida para la transferencia de archivos de Client Acces, al que he llamado EXIT1A. He a�adido el programa de salida al punto de salida con ADDEXITPGM EXITPNT(QIBM_QTF_TRANSFER) FORMAT(TRAN0100) PGMNBR(1) PGM(PGMOD2000/EXIT1A), y luego he hecho un cambio en los atributos de la red con CHGNETA PCSACC(*REGFAC). Todo siguiendo el ejemplo del documento que hay en Recursos (http://www.recursos-as400.com/Docs/GuiadeSeguridad.pdf). El �nico paso que no he seguido al pie de la letra es el CRTCLPGM, porque pone como programa EXIT1 y luego el resto de par�metros ponen EXIT1A. Os adjunto el fuente del programa y al informaci�n del WRKREGINF. Trabajar con Programas de Salida Punto de salida: QIBM_QTF_TRANSFER Formato: TRAN0100 Teclee opciones, pulse Intro. 1=A�adir 4=Eliminar 5=Visualizar 10=Sustituir N�mero Programa Programa Opc Salida Salida Biblioteca 1 EXIT1A PGMOD2000 PGM PARM(&RC &STRU) DCL VAR(&RC) TYPE(*CHAR) LEN(1) /* 1 = acc�s acceptat */ /* 0 = acc�s denegat */ DCL VAR(&STRU) TYPE(*CHAR) LEN(80) /* */ DCL VAR(&USER) TYPE(*CHAR) LEN(10) /* Usuari */ DCL VAR(&APP1) TYPE(*CHAR) LEN(10) /* Funci� */ DCL VAR(&APP2) TYPE(*CHAR) LEN(10) /* Subfunci� */ DCL VAR(&TFOBJ) TYPE(*CHAR) LEN(10) /* Nom del fitxer */ DCL VAR(&TFLIB) TYPE(*CHAR) LEN(10) /* Nom de la biblioteca */ DCL VAR(&TFMBR) TYPE(*CHAR) LEN(10) /* Membre del fitxer */ DCL VAR(&TFFMT) TYPE(*CHAR) LEN(10) /* Format */ DCL VAR(&TYPE) TYPE(*CHAR) LEN(2) /* Tipus de Journal */ MONMSG MSGID(CPF0000) EXEC(GOTO CMDLBL(EXIT)) CHGVAR &RC VALUE('0') /* Per omisi� es denegem l'acc�s */ CHGVAR VAR(&USER) VALUE('%SST(&STRU 1 10))') CHGVAR VAR(&APP2) VALUE('%SST(&STRU 21 10))') CHGVAR VAR(&TFOBJ) VALUE('%SST(&STRU 31 10))') CHGVAR VAR(&TFLIB) VALUE('%SST(&STRU 41 10))') CHGVAR VAR(&TFMBR) VALUE('%SST(&STRU 51 10))') CHGVAR VAR(&TFFMT) VALUE('%SST(&STRU 61 10))') IF COND(&USER *EQ 'QSECOFR') THEN(DO) CHGVAR &RC '1' ENDDO SNDMSG MSG('Funciona') TOUSR(SERGI) EXIT: ENDPGM Gracias :-) 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 ------------------------------------ Este correo electr�nico y los documentos que lo acompa�an, pueden contener informaci�n reservada y/o confidencial dirigida exclusivamente al destinatario. Si Vd. no es el destinatario, no est� autorizado a copiar o distribuir esta comunicaci�n a ninguna otra persona. Si ha recibido este correo electr�nico por error, le rogamos que nos lo devuelva mediante reenv�o a la direcci�n electr�nica del remitente, y lo elimine de su sistema. Gracias por su colaboraci�n. ------------------------------------ The information in this e-mail and in any attachments is confidential and solely for the attention and use of the named addressee(s). If you are not the addressee indicated in this message, you may not copy or deliver this message to anyone. If you have received this communication by error, please, notify the sender by reply e-mail and destroy this message. Thank you very much for your help. _____________________________________________________ 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
