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
